---

Bogen.lsp

Hallo

Habe hier ein Lisp der mir ein Kanalbogen zeichnet,
möchte gerne diese als Block einfügen.
Wäre froh für eine Lösung, Danke.

Starten mit: L005B1

Nano

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

---

wenn du das lisp so weit anpasst, das es für sich erstmal läuft, dann kann mann ja mal drüber schauen.
aber z.zt sind noch viele Fehler drin.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Bogen.lsp

Sory

lisp war nicht richtig..

Nano

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

---

Bogen3.lsp

JA JA JA Wiesel

habe noch eine Variable vergessen, darf doch nicht sein.

MFG nano  

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

---

Ohne mal weiter auf den Kot einzugehen....
ergänze deine Variablen am Anfang mit:

Code:

---

\r ""
zaehler 1
Blockname"Kanalbogen"

---

Ersetze dann die Zeile am Ende:

Code:

---

(COMMAND "_rotate" L-elem "" "_non" l005p00 "\\")

---

durch die Zeilen:

Code:

---

(command "_-block"
(progn
(while(tblobjname"block" Blockname)
(setq blockname(strcat Blockname (itoa zaehler))
      zaehler (1+ zaehler))
)
Blockname
)
l005p00 L-elem "")
(command "_insert" Blockname l005p00 "1" "1" "0")
(COMMAND "_rotate" "_l" "" "_non" l005p00 pause)

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Danke Wiesel

GENIAL!!!! kurz und bündig.
Danke noch für all diese Jahren bis DU immer HILFSBEREIT.
Ich schau noch in dein Forum.

Nano

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