---

AnfrageCADDE.dwg.txt Konuswickeln.lsp.txt

Liebe LISPler,

im Anhang meine kläglicher Versuch und eine Beispieldatei.

Ich möchte einen "normalen", geraden Konus abwickeln. Die Werte kommen aus einer 2D-Zeichnung und dort sind alle erforderlichen Maße greifbar. Die Rechnung ist auch nicht wirklich kompliziert, aber dann will ich mit diesen Werten Zeichnen. Abgesehen davon, daß ich es mit "entmake" erst einmal aufgebe (für den ersten Wurf reichen die Commands ...), aber der Befehl _.rotate ist mir dabei suspekt.

Es soll ein Objekt (Schnittlinie), welches ich vorher gezeichnet habe ( und über entlast auf einer Variablen deponiere) als Kopie gedreht werden. Leider scheint der Befehl von LISP aus anders zu reagieren, als wenn er über Tastatur eingegeben wird.

Über VLIDE habe ich die rechnerischen Werte geprüft, die stimmen schon alle.

Vielleicht kann mal wer einen Blick darauf werden ...

------------------
lg, der Hausmeister
_______________________________________

46 + 1 = ein Lächeln

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

---

du hast eine Klammer am Ende zu viel
für was stehen die Anführungszeichen im Befehl _rotate nach dem "k" ?

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

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

---

Zitat:

---

Original erstellt von alterHausmeister:
Liebe LISPler,

im Anhang meine kläglicher Versuch und eine Beispieldatei.

---

(setq Schnittlinie (entlast))

Das gibt Dir einen Entitynamen.

(command "_.rotate" Schnittlinie "" Point_S "k" "" Winkel)          ;

ROTATE verlangt, wie die meisten AutoCAD-Befehle, keinen Entitynamen, sondern ein PICKSET (Auswahlsatz). Was soll das "k" und das "" da drin?

So wird's eventuell was:
(command "_.rotate" (ssadd Schnittlinie) "" Point_S Winkel)

Und dazu:
(entmake '((0 . "CIRCLE") (10 Point_S) (40 . MassC)))

Erstens quotest Du die ganze DXF-Liste, und was quoten bedeutet, liest Du am besten in Mapcars Lisp-Kurs durch: http://www.autolisp-tutorial.mapcar.net/.  Da werden also die Variablen Point_S und MassC nicht ausgewertet.

Zweitens fängst Du da eine Liste mit (10 ...) an, einer andere mit (40 ...). Grundregel von Lisp ist aber, dass das erste Element einer zu evaluierenden Liste immer ein Funktionsname sein muss. Da muss also stehen: (cons 10 Point_S) bzw (cons 40 MassC)

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

---

Zitat:

---

Original erstellt von CADwiesel:
du hast eine Klammer am Ende zu viel
für was stehen die Anführungszeichen im Befehl _rotate nach dem "k" ?

---

... ja, die Klammern, die treiben mich noch in den Wahnsinn ...

Mit dem "k" wollte ich die originale Linie stehen lassen und eine Kopie derselben drehen. Normalerweise steht noch (Kopie/Bezug) als Möglichkeit zur Verfügung und diese Eingabe wird mit >Enter< bestätigt. Soweit mein Gedanke ...

Zitat:

---

Original erstellt von archtools:
So wird's eventuell was:
(command "_.rotate" (ssadd Schnittlinie) "" Point_S Winkel)

---

Danke, zumindest dreht er die Linie nun auf den gewünschten Wert. Dann ziehe ich die originale Linie einfach noch einmal. Es ist nur nervig, wenn man"n" diesen Ablauf 20x am Tage macht. Das erleichtert nun schon einiges. Das mit "entmake" muß ich aber irgendwann mal begreifen ...

------------------
lg, der Hausmeister
_______________________________________

46 + 1 = ein Lächeln

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

---

Zitat:

---

Original erstellt von alterHausmeister:
Danke, zumindest dreht er die Linie nun auf den gewünschten Wert. Dann ziehe ich die originale Linie einfach noch einmal.

---

Acad verarbeitet sowohl
(command "_.rotate" Schnittlinie "" Point_S "k" Winkel )
als auch
(command "_.rotate" (ssadd Schnittlinie) "" Point_S "_c" Winkel)
bzw
(command "_.rotate" (ssadd Schnittlinie) "" Point_S "k" Winkel)

besser ist
(entmake (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2))))
den Punkt p2 kannst u.a. mittels polar berechnen

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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