---

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

---

Auf die Schnelle:

Code:

---

(defun c:DELLINES( / AWS OBJ I)
  (if(setq AWS(ssget "_X" '((0 . "LINE")(62 . 7)(370 . 9))))
    (progn
      (setq I -1)
      (repeat (sslength AWS)
        (if(and(setq OBJ (ssname AWS(setq I(1+ I))))
              (equal (distance (cdr (assoc 10 (entget OBJ)))
                                (cdr (assoc 11 (entget OBJ)))
                      )
                      0.1
                      0.0000001
              )     
          )
          (command "_.erase" OBJ "")
        )
      )
    )
  )
)

---

------------------
  - 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

---

SUPER! Besten Dank CADmium.
Das Programm macht so genau das, was ich möchte.

------------------
Gruß Max

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