---

Hallo,

suche nach einem Befehl zum Runden (R=1.30mm)aller 2D-Polylinien,AutoCAD2007... bin auf den Befehl FILLET-ALLPL gestoßen, leider sind viele meiner PL zu kurz für diesen Befehl.
Kennt jemand einen anderen Befehl.

Gruß snobo

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

---

Hallo snobo,
das könnte eine kleine Lisp-Zeile machen:

Code:

---

(defun c:FilletAll ()
  (setvar "FILLETRAD" 1.3)
  (foreach n (mapcar 'cadr (ssnamex (ssget '((0 . "LWPOLYLINE"))))) (command "_fillet" "_p" n))
)

---

Grüsse, Henning

[EDIT]Wenn Dein Polylinien zu kurz sind für den Radius, dann kann allerdings auch das intelligenteste Programm keine Abrundung erstellen.[/EDIT]

Wie LISP Tool laden ?

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 25. Okt. 2013 editiert.]

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

---

Hallo Henning,

vielen Dank erst mal für deine Hilfe, hätte aber noch eine Frage was will mir der Befehl nil am Ende der Ausführung sagen.

Befehl: FilletAll
Objekte wählen: 1 gefunden
Objekte wählen:
_fillet
Aktuelle Einstellungen: Modus = STUTZEN, Radius = 1.3000
Erstes Objekt wählen oder [rÜckgängig/Polylinie/Radius/Stutzen/Mehrere]: _p
2D-Polylinie wählen:
53 Linien wurden abgerundet
6 waren parallel    8 waren zu kurz
Befehl: nil

Gruß snobo

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

---

Jeder Lisp Funktionsaufruf hat immer irgendeine Rückgabe.
Kein Rückgabewert bzw. eine leere Rückgabe/Liste ist "Nil".

(+ 3 5) => 8
(princ "Hello World") => "Hello World"
(textpage) => nil

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

Udo Hübner
www.CAD-Huebner.de

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