---

Hallo zusammen

gibt es per LISP eine Möglichkeit alle Linien (eventuell auch Polylinien) auszuwählen,
die ungleich dem Winkel 0,90,180 und 270 sind.
Das Problem hat man immer wenn man DWGs bekommt, wo die Schraffuren zerlegt sind.

Es ist immer mühselig diese Linien händisch zu löschen 

Es geht zwar mit der Schnellauswahl, aber da kann man meines Wissens immer nur einen Winkel angeben
Bei Polylinien geht es gar nicht, weil da in der Schnellauswahl kein Winkel angezeigt wird.

Danke im Voraus 

------------------
Gruß
Werner

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

---

EDITIERT:

Hi,

das sollte gehen (ob das Ergebnis dann zufriedenstellend ist, das sei mal dahingestellt).
NÖ, man kann die Eigenschaften nicht in Relation setzen im ssget-Filter,
also doch ein paar Codezeilen mehr.

Ein Beispielprogramm: Klick!

SSGET AND OR = !=

https://help.autodesk.com/view/ACD/2024/DEU/?guid=GUID-7BE77062-C359-4D01-915B-69CF672C653B
https://help.autodesk.com/view/ACD/2024/DEU/?guid=GUID-5CB54129-22A1-42B9-B97C-2D2F5597F90E
https://help.autodesk.com/view/ACD/2024/DEU/?guid=GUID-877CEEA5-0D88-48DF-8450-B9421031A1B7

Super Fingerübung für die Erstellung von Filterlisten.

(Polylinien können so nicht funktionieren, aber ein kleinen Tool wäre auch dafür kein Problem. Allerdings: Polylinien zur Darstellung von aus "aufgelösten Schraffuren" habe ich noch nie gesehen)

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

---

Damit bekommst du Linien mit Toleranzwinkel in einer Liste zurück.
Der Winkel kann natürlich auch 0.0 sein.

Code:

---

(setq toleranzwinkel 0.001) ; im Bogenmaß
(vl-remove-if-not
  '(lambda (obj)
    (vl-every 'null
      (mapcar '(lambda (w)
  (equal (vla-get-angle obj) w toleranzwinkel)
)
      (list 0.0 (* pi 0.5) pi (* pi 1.5))
      )
    )
  )
  (k_satz->objlist (ssget "x" '((0 . "LINE"))))
)

---

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Hallo cadffm

der Beispielcode von Lee Mac funktioniert einwandfrei. 
Ich wähle jetzt die "geraden" Linien aus und verschiebe die
dann um ein bestimmtes Maß.

Dann wähle ich die restlichen Linien über die Schnellauswahl in
dem bestimmten Bereich aus (das sind dann alle Linien die einen anderen
Winkel haben) und lösche diese.

Somit habe ich mein Ziel über einen kleinen Umweg erreicht. 

Programmiertechnisch kriege ich das nicht anders hin, aber das passt ja so für mich.

Polylinien mit ungeradem Winkel lassen sich wohl nicht so einfach auswählen?

Danke für deine Hilfe

Ich bin schon viele Jahre "stiller" Gast in diesem Forum
und frage mich immer wieder, wie man soviel über AutoCAD wissen kann

------------------
Gruß
Werner

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