---

Innerhalb eines LISP-Programmes werden Geometrien (Linien und Bögen) gezeichnet und verschiedene Elemente sollen gegeneinander abgerundet werden. Bislang sieht mein Code in etwa (reduziert auf das wesentliche) folgendermaßen aus:

(command "_line" von-punkt1 nach-punkt1 "")
(setq e1 (ssget "_l"))
(command "_line" von-punkt2 nach-punkt2 "")
(setq e2 (ssget "_l"))
(command "_fillet" "_r" radius (ssname e1 0) (ssname e2 0))

In vielen Fällen funktionier das auch bestens. Das Problem aber ist, daß es beim abrunden unter Umständen bis zu 4 verschiedene Lösungsmöglichkeiten gibt, die man beim "händischen" abrunden bekanntlich durch die Wahl eines geeigneten Pickpunktes steuert. Wie könnte man mittels LISP bei der Objektwahl einen "Pickpunkt" mitgeben? Mir würde es genügen, dazu den "von-punkt" oder "nach-punkt" der jeweiligen Linie zu benutzen, da ich weiß, welchen der Punkte ich für das gewollte Ergebnis brauche. Nur: wie kann ich dem Abrunden-Befehl einen Elemetnamen UND eine Koordinate (als "Pickpunkt") übergeben? 

Bin für jeden Tip dankbar.

jupa

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

---

 

Zitat:

---

Original erstellt von jupa:
... Nur: wie kann ich dem Abrunden-Befehl einen Elemetnamen UND eine Koordinate (als "Pickpunkt") übergeben? 

Bin für jeden Tip dankbar.

jupa

---

_FILLET akzeptiert auch Objektübergabe mit angehängtem Pickpunkt, wie sie zum Beispiel die Funktion (ENTSEL) zurückgibt.

Code:

---

...
(setq e2 (ssget "_l"))
(setq Pickpt (cdr (assoc 10 (entget (ssname e2 0)))))
(command "_fillet" "_r" radius (ssname e1 0) (list (ssname e2 0) Pickpt)))

---

Dafür das der übergebene Pickpunkt auf bzw. in der Nähe des Objektes liegt musst du aber selbst sorgen.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 05. Nov. 2010 editiert.]

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

---

Danke für die rasche Antwort. "_FILLET akzeptiert auch Objektübergabe mit angehängtem Pickpunkt" klingt vielversprechend. Wenn's nicht klappt, steh ich morgen hier wieder auf der Matte.

Schönes Wochenende

jupa

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

---

Funktioniert bestens. Nochmals danke an Udo.

jupa

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