---

Hallo
Wie soll ich den command definieren das er mir aus den folgenden Linien ein Block macht 
Da ich ein Anfänger bin kann es sein das, die Frage total blöd ist. 

(command "linie" unlin1 untling1  "")
(command "linie" unlin2 untling2  "")
(command "linie" uulin2 uuling1  "")
(command "linie" uulin1 uuling2  "")
(command "bogen" ldo5l "e" untrech3 "r"  49.0)
(command "bogen" uulinbogen2 "e" uulinbogen1 "r"  54.4)

(command "_block" bname "test" (list unlin1 untling1 unlin2 untling2 uulin2 uuling1 uulin1 uuling2............) "") - ????? so funktioniert nicht!!!

Gruß
RoyCAD
 

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

---

Also wenn es darum geht Blockdefinitionen(BLOCK)
zu erstellen würde ich über ENTMAKE gehen - nicht über Command !

[dafür mußt du dir natürlich erstmal Zeit nehmen und dich einlesen -Forum&ACADhilfe..]

suche mal im Forum nach BLOCKDEFFORLOAD von H.Brischke - so kommst du (was BLOCK angeht
am schnellsten dahinter..

[Diese Nachricht wurde von cadffm am 06. Dez. 2004 editiert.]

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

---

ist zwar schrott, aber probiers mal so ähnlich
(setq AW(ssadd))
(command "linie" unlin1 untling1  "")
(ssadd (entlast) AW)
(command "linie" unlin2 untling2  "")
(ssadd (entlast) AW)
(command "linie" uulin2 uuling1  "")
(ssadd (entlast) AW)
(command "linie" uulin1 uuling2  "")
(ssadd (entlast) AW)
(command "bogen" ldo5l "e" untrech3 "r"  49.0)
(ssadd (entlast) AW)
(command "bogen" uulinbogen2 "e" uulinbogen1 "r"  54.4)
(ssadd (entlast) AW)
(command "_-block" "test" '(0 0 0) AW "")
(command "_-insert "test" '(0 0 0) 1 1 1 0)

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

so geht das nicht, das hast du aber sicher schon selbst gemerkt.

Du musst dir die Elementnamen der Linien merken, oder gleich einem Auswahlsatz hinzufügen.
(setq aws (ssadd))
(command "_.LINE" ...)
(setq aws (ssadd (entlast)aws))
(command "_.LINE" ...)
(setq aws (ssadd (entlast)aws))
...
(command _.-block" "NAME" (getpoint "\nBASISPUNKT") aws "")

Ungetestet, könnte also sein, dass hier und da etwas klemmt. Prinzip sollte aber klar sein.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!                          Autodesk User Group Central Europe
AutoLISP-Programmierung für AutoCAD              AUGCE Manager Deutschland
Da weiß man, wann man's hat!
                             

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

---

> Du musst dir die Elementnamen der Linien merken, oder gleich einem
> Auswahlsatz hinzufügen.

Das macht Thomas/CADmium auch.

> (setq aws (ssadd))
> (command "_.LINE" ...)
> (setq aws (ssadd (entlast)aws))

Die letzte Zeile ist Unfug. (ssadd ...) ist neben (set), (setq) und (defun) eine der vier destruktiven Funktionen im Grundwortschatz von AutoLisp, das (setq) ist also völlig überflüssig.

Im Prinzip war der Ansatz von CADmium schon ok - bis auf die mangelnde Internationalisierung.

@cadffm
> zu erstellen würde ich über ENTMAKE gehen - nicht über Command
Gibt es dafür einen stichhaltigen Grund?

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

@mapcar
Nein ! (konntest du dir ja aber auch denken  )

Warum ich es dennoch sagte liegt an dem Punkt der hier bei den
Antwortgebern oft vorkommt: Weil man es sich so angewöhnt hat..

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