Hallo
habe hier ein lisp die mir alle Wipeout löschen kann,
habe jedoch in der Zeichnung ein Block der mehrere Wipeout's hat
die möchte ich auch löschen. habe im Forum nichts gefunden.
Bitte um Hilfe
Danke Nano
(defun C
EL-W()
(SETQ aimagep (SSGET "_X" '((0 . "WIPEOUT"))))
(IF (/= aimagep nil)(COMMAND "_erase" aimagep ""))
)
oder
(defun C
EL-W (/ SGET)
(setq sget (ssget "x"))
(sssetfirst sget sget)
(setq SGET (ssget "x" (list (cons 0 "WIPEOUT"))))
(if SGET
(command "_.erase" SGET "")
)
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP