Pause für GRIPS (Autodesk/Lisp)

Guten Morgen

Code:
(defun c:test ( / #aws #ename #elist1 #elist2)
(if (setq #aws (ssget "_:S" '((0 . "LINE"))))
(progn
(print (setq #elist1 (entget (setq #ename (ssname #aws 0)))))
(print)
(sssetfirst (ssget "_P") (ssget "_P"))
(command pause pause)
(setq #elist2 (entget #ename))
)
)
)

Obiger Code funktioniert in 2010 und 2007, nicht aber in 2005.

Nach Auswahl einer Linie wird die Entity-Liste gespeichert und dann die GRIPS (blau) aktiviert. Das funkt bei allen Versionen.

Dann sollte man einen der beiden Endpunkte anfassen (Grip rot) und verschieben können (command pause pause). Bei 2005 wird aber der gewählte Grip nicht rot. Das passiert erst, nachdem alle "pause" abgearbeitet sind - in obigen Beispiel beim 3. Klick.

Letzlich sollte die veränderte Entity-Liste geliefert werden. Problem ist, dass das Prog aber schon nach dem 2. Klick weiterläuft.

Jemand ne Idee?

------------------
Schöne Grüße
Ernst

www.geopaint.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP