(setq LASTOBJ(entlast)) :_ letztes Element der Zeichnung
... kopieren ( dabei werden ja neue Elemente erzeugt)
... und dann alle neuen einsammeln
(while (setq LASTOBJ(entnext LASTOBJ))
(setq OBJLIST(cons LASTOBJ OBJLIST))
)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP