---

Hallo,

Ich will aber nicht manuell auswählen! - Das hätte ich auch als Betreff schreiben können. Wahrscheinlich hätte mir das einige Kritik eingetragen.

Ich erstelle eine Linie und weise dieses Objekt einer Variablen zu:

Code:

---

(entmake
'((0 . "Line")(67 . 0)(8 . "0")
(10 0.0 0.0 0.0)(11 0.0 0.0 0.8))
)
(setq Ax1 (entget(entlast)))

---

Dann passiert da einiges im Programm. Irgendwann möchte ich diese Linie drehen:

Code:

---

(setq p1 (list -0.5 0 0.8))
(setq p2 (list 0.5 0 0.8))
(command "3ddrehen" Ax1 "" p1 p2 PC)

---

PC wird als numerischer Wert an die Sub übergeben. Leider wird nix gedreht. Die Objektauswahl schlägt fehl. Wenn ich alle Objekte in der Zeichnung drehen will, mache ich das so:

Code:

---

(defun turn3d (p1 p2)
(setq w 5)
(setq ss1 (ssget "_X"))
(command "3ddrehen" ss1 "" p1 p2 w)
)

---

und das klappt tadellos. Sicher ist es die Auswahl des Objekts - aber wie mache ich's richtig?

Grüsse,
Frank

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

---

entweder (setq Ax1 (entlast))und
(command "3ddrehen" Ax1 "" p1 p2 PC)

oder bei (setq Ax1 (entget(entlast)))
(command "3ddrehen" (cdr(assoc -1 Ax1)) "" p1 p2 PC)

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

danke Dir. Nachdem Du mir den Tipp gegeben hast, kann ich in der Onlinehilfe auch nachvollziehen, was benötigt wird...

Dafür ist das Ziel jetzt in greifbarer Nähe und das Ganze wird mir viel nervtötende Handarbeit ersparen.

Grüsse,
Frank

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