Osnaps in LISP

[Volk359]

Greetings all,

In my lisp I'm trying to grab a corner of a box using endpoint osnap:

(setq pt1 (osnap (getpoint "\nSELECT LOWER RIGHT CORNER:") "endp"))

The getpoint works but it doesn't prompt for the endpoint. Any suggestions?

Thanks,

Keith

 

[CarlAK]

The lidp "osnap" will not cause AutoCAD to have a particular osnap active, but it will cause the result 'pt1' to be the point as if the osnap was active.

If you want just the 'endpoint' snap active when user selects, you could set the snap just before tht line, as in:

(setvar "osmode" 1);;or whatever endpt is

then you should restore osmode to original setting

 

[Volk359]

Dang, I should have thought of that but was concentrating too much on the getpoint. Thanks!