Topic: Osnap during Entsel ?

[snownut2]

This is from the Aacd Developer Help guide, in the Entsel function subject.

"The current Osnap setting is ignored by this function unless you specifically request it while you are in the function. "

Yet I do not find it possible to do this, even while toggling the osnap on or off while function is active.

Any tricks for this in lisp, here is the current line in my code;

Code: [Select]

(while (not (setq ent (entsel "Select Entity :"))))

Bruce

[ribarm]

Maybe this :

Code: [Select]

(while
  (setq pt (getpoint "Select Entity :"))
  (setq ent (nentselp pt))
  (princ ent)
)


[ronjonp]

Or maybe:

Code: [Select]

(while (and (not (setq ent (entsel "Select Entity :")))))
(if (osnap (cadr ent) "END")
  (alert "snap!")
  (alert "boo!")
)

[CAB]

I was not aware that osnaps worked with entsel. Does not work on ACAD 2006 or before.

[snownut2]

Code: [Select]

(while (and (not (setq ent (entsel "Select Entity :")))))
(if (osnap (cadr ent) "END")
  (alert "snap!")
  (alert "boo!")
)

Ron,

2-questions why add the and statement in the while function & using the "osnap" with the "END" does that default to the current osnap setting.

I see the result is the entity is snapped to an end-point or mid-point.

Thanks for your assistance in this.

[ronjonp]

Snownut2,

The 'AND' does not need not be there    was written in haste. If you wanted it to use the current osnap settings, you'd have to look at the OSMODE variable and determine which snaps were active.
http://docs.autodesk.com/ACD/2014/ENU/files/GUID-DD9B3216-A533-4D47-95D8-7585F738FD75.htm


Looks like Irneb has created the function you need here:
http://www.theswamp.org/index.php?topic=44737.msg499586#msg499586

Here is a simple example:

Code: [Select]

(osnap (getpoint)
       (vl-string-right-trim
","
(apply 'strcat (mapcar '(lambda (x) (strcat x ",")) (osmode->snaplist (getvar 'osmode))))
       )
)