---

Ich frage in einem LISP-Makro die Abmaße über sd-inq-exact-box the-part z-dir x-dir so wie hier, ...

(setf z-dir 0,0,1)
(setf x-dir 1,0,0)
(setf the-box (sd-inq-exact-box the-part z-dir x-dir
:source-space :local
:dest-space :local))
(setf ausgangs-punkt (nth 0 the-box))
(setf end-punkt (nth 1 the-box))

Problem ist, dass die Abmaße nur passen, wenn der gemessene Klotz auch in der richtigen Ausrichtung liegt, was bei mir auch 95% der Teile machen, aber der Rest geht nicht.

Wie muss folgender Dialog Korrekt aussehen, damit ich die x + z Ausrichtung am Teil abgreifen kann?
Und der sd-inq-exact-box Befehl mit den Werten zurecht kommt?

(z-Dir
      :value-type :direction
        rompt-text "Z-Achse angeben"
      :title "Z-Achse:"
      :initial-direction-axis t
      :built-in-feedback nil
      :initial-value  0,0,1
)

Gruß Wolfgang

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

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

---

Codeschnipsel aus meinem Makros:

Dialogvariable

Code:

---

...
(ldir :value-type :measure-direction
:prompt-text "Richtung der Laengenmessung angeben"
:title "Laenge"
:initial-value '(1,0,0 0,0,0 :Z)
)
(hdir :value-type :measure-direction
:prompt-text "Richtung der Hoehenmessung angeben"
:title "Hoehe"
:initial-value '(0,0,1 0,0,0 :XZ)
)
...

---

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Vielen Dank, ...

hat funktioniert wie immer, ...

Gruß Wolfgang

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

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