Hallo zusammen,
das muntere Fragen geht weiter.
Ich habe im Forum recherchiert und habe nur Teillösungen zu meinem Problem finden können.
Dank Jörn Bosse und ein paar Ideen hier im Forum konnte ich eine kleine Lisp zurechtschreiben:
Code:
(if(setq linien(ssget "_X" '((0 . "LINE")(62 . 7)(370 . 9))));Erstelle ein Selectionset aus sämtlichen Elementen mit den Eigenschaften Linie, Farbe weiß und Linienstärke 0,09mm
(progn
(setq n 0)
(repeat (sslength linien)
(cond ((= (cdr (assoc 0 (entget (ssname linien n)))) "LINE")
(setq dist (distance (cdr (assoc 11 (entget (ssname linien n)))) (cdr (assoc 10 (entget (ssname linien n))))))
(if (/= dist 0.1)
(ssdel (ssname linien n)linien))
(setq n (+ n 1)))))t
(if (>(sslength linien)0)
(command "_.erase" linien "")) ))
Ausgabe:Fehler: Fehlerhafter Argumenttyp: lentityp nil
Es geht mir darum Linien der Farbe weiß, Linienstärke 0,09mm und Länge 0.1 auszuwählen und dann aus der Zeichnung zu entfernen.
Über Hilfestellungen wäre ich sehr dankbar.
------------------
Gruß Max
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP