---

Hi!
Ich würde gerne einen 3D Bogen mit einer AutoLisp Funktion zeichenn, der durch 3 Punkte im Raum geht.
Die folgende Funktion funktioniert nicht, das Autolisp das eingestellte BKS ignoriert.
Wer kann mir da weiterhelfen?

(defun c:3dArc ()
  (setq p1 (getpoint "First point of arc: "))
  (setq p2 (getpoint "Second point of arc: "))
  (setq p3 (getpoint "Third point of arc: "))
  (command "_ucs" "_3P" p1 p2 p3)
  (command "_arc" p1 p2 p3)
)

------------------
www.profly.org

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

---

Willkomen im Forum und versuchs damit:

(defun c:3dArc (/ P1 P2 P3)
  (command "_ucs" "_w")
  (setq p1 (getpoint "First point of arc: "))
  (setq p2 (getpoint "Second point of arc: "))
  (setq p3 (getpoint "Third point of arc: "))
  (command "_ucs" "_3P" p1 p2 p3)
  (command "_arc" (trans p1 0 1)(trans p2 0 1)(trans p3 0 1))
)

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

---

...und denk immer schön daran: Egal, wie du ihn gezeichnet hast, der GC 10 ist dann NICHT (!!!) der Mittelpunkt in Weltkoordinaten, sondern in OBJEKTKoordinaten, die vom GC 210 abhängen. Nimm dir dieses Schild "Vosicht, Glatteis!", mit dem ich hier wedele, zu Herzen.

Schöne Grüße + warme Füße, Justus

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