---

Hallo CAD Gemeinde,
ich habe ein älteres Lisp Tool gefunden mit dem man automatisch Linien die im 45° Winkel gezeichnet wurden löschen kann. Dieses wird z.B. für Mauerwerksschraffuren benötigt. Jetzt möchte ich aber nicht das das Tool die Linien löscht, sondern nach dem Filtern wieder abbricht, sodass dich die gefilterten Elemente verändern kann (anderer Layer)

Wäre toll wenn mir jemand die Lisproutine entsprechend anpassen könnte. Meine Lisp Kenntnisse gehen nämlich gegen null 

(defun c:schraff45 (/ SET CT OB NAME OB10 OB11 DO ER AN)
(setq m:err *error* *error* *merr*)
  (princ "\nEs werden nur Linien gefiltert!")
  (setq SET (ssget '((0 . "LINE"))))
  (setq CT 0)
  (if (= ER nil) (setq ER 0))
  (setq DO (ssadd)) ;leeren auswahlsatz erzeugen
  (command "_.UNDO" "_GROUP")
  (while (setq NAME (ssname SET CT))
    (setq OB (entget NAME))
    (setq OB10 (cdr (assoc 10 OB)))
    (setq OB11 (cdr (assoc 11 OB)))
    (setq AN (angtos (angle OB10 OB11)))
    (cond
      ((or (= AN "225") (= AN "315") (= AN "135") (= AN "45")) (entdel NAME) (setq ER (1+ ER)))   
    );cond
    (setq CT (1+ CT))
  );while
  (command "_.UNDO" "_END")
  (princ (strcat "\nBisher gelöscht: " (rtos ER 2 0)))
(setq *error* m:err m:err nil)
  (princ)
);defun

Vielen Dank für die Hilfe

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

---

Das geht schon mit der Schnellauswahl .. Befehl _qselect .... Objekttyp Linie ,eigenschaft : winkel  Operator: =    Wert: 45

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Prinzipiell schon, aber je nach dem wie die Linie gezeichnet wurde gibt es vier Möglichkeiten: 45° 135° 225° 315°.
Außerdem ist mir das zu Umständlich.
Das Lisptool berücksichtigt alle Möglichkeiten und wäre direkt von meinem eigenen Mausmenü aus aufrufbar. Geht wesentlich schneller als sich durch die Schnellauswahl zu klicken. Zumal es mir diese nicht immer funktioniert.

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

---

Code:

---

(defun c:W45Lines (/ SS DO CT OB NAME)
  (princ "\nEs werden nur Linien im Winkel 45,135,225 und 315° gefiltert!")
  (setq SS (ssget '((0 . "LINE"))))
  (setq CT 0)
  (setq DO (ssadd)) ;leeren auswahlsatz erzeugen
  (while (setq NAME (ssname SS CT))
    (setq OB (entget NAME))
    (if (member (read(angtos (angle (cdr(assoc 10 OB)) (cdr (assoc 11 OB)))))  '(45.0 135.0 225.0 315.0))
        (setq CT (1+ CT))
        (ssdel NAME SS)
    );if
  );while
  (if (zerop(sslength ss))
      (princ"\nKeine Linie gewählt")
      (progn(princ(strcat "\n" (rtos(sslength ss)2 0) " Linien gefiltert"))(sssetfirst nil SS))
  )
  (princ)
);defun

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

---

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

---

Genau so was hab ich gesucht.
Vielen herzlichen Dank. Funktioniert super! 

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