---

Hallo Leute,

ich nutze AutoCAD 2009 um Masken für die Photolithographie zu zeichnen. Dieser Anwendungsfall tut aber nichts zur Sache.

Ich habe aber daher mehrere Tausend Elemente (Polylinien). Die Ecken dieser Polylinien möchte ich allesamt verrunden (mit ein und selben Radius). Ist es richtig, dass der Abrunden Befehl nur für eine Polylinie funktioniert? Dass würde nämlich in Arbeitsaufwand ausarten. Kennt jemand einen Befehl, mit dem ich alle Polylinien abrunden kann?

Grüße und Danke im Vorraus.
Steffen

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

---

ok , probier mal

(defun C:FILLET-ALLPL(/ AWS I OBJ)
  (if(and(setq AWS(ssget  '((0 . "*POLYLINE"))))
        (setq R(getreal "\nRundungsradius: "))
    )   
    (progn
      (setvar "FILLETRAD" R)
      (setq I -1)
      (repeat (sslength AWS)
        (setq OBJ(ssname AWS(setq i (1+ I))))       
        (command "_fillet" "_p" OBJ)
        (while (/= 0 (getvar "CMDACTIVE"))(command))
      )
    )
  )
  (princ)
)

<<Hinweise>>

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

---

Hallo CADmium,

ich bin Neuling bei solch komplexen Befehlen. Laut deinen Hinweisen hab ich mir ne txt mit dem Befehl auf meinem Deskop erstellt. Dann hab ich sie als *.lsp umbenannt und mit drag and drop in die Zeichnung gezogen.

Wenn ich es richtig verstanden habe, steht mir nun der Befehl im ACAD zur Verfügung. Wie rufe ich ihn aber auf?? Wie heißt er? Oder wird er automatisch beim reinziehen ausgeführt? Dann hat es nämlich nicht geklappt.

Grüße

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

---

nach den Laden mit FILLET-ALLPL aufrufen  ....

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

---

Hat reibungslos geklappt.

Vielen vielen Dank.

Ich sehe, dass es sich lohnt sich mit den "komplexeren" Befehlen zu beschäftigen.

Grüße

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