Hallo
ich habe hier das Makro (Winkel von 3D-Kanten messen)
http://osd.cad.de/lisp_3d_60.htm
gefunden, was für mich ganz nützlich sein könnte.
Leider kann ich nur Kanten anwählen, was muss ich im Code
ändern, das ich auch Achsen anwählen kann?
Aus der Hilfe habe ich
Code:
*sd-coord-sys-axis-seltype*
*sd-coord-sys-origin-seltype*
*sd-coord-sys-elem-seltype*
entnommen und eingefügt, leider klappt das nicht.
Gruß
Code:
(in-package :custom)
(use-package :OLI)(sd-defdialog 'iwg-kantenwinkel-berechnen-dialog
:Dialog-title "Kantenwinkel"
:toolbox-button t
:variables
'(
(bezkt :selection (*sd-line-3d-seltype* *sd-line-2d-seltype* *sd-c-line-2d-seltype* *sd-c-finite-line-2d-seltype*)
:multiple-items nil
:tongue:rompt-text "Bezugskante angeben"
:title "Bezug"
:initial-value nil
)
(messkt :selection (*sd-line-3d-seltype* *sd-line-2d-seltype* *sd-c-line-2d-seltype* *sd-c-finite-line-2d-seltype* *sd-coord-sys-axis-seltype* *sd-coord-sys-origin-seltype* *sd-coord-sys-elem-seltype*)
:multiple-items t
:show-select-menu t
:tongue:rompt-text "Kanten deren Winkel berechnet werden soll angeben"
:title "Messen"
:initial-value nil
:after-input (go-action)
)
)
:local-functions
'(
(go-action ()
(let (kt)
(dolist (kt messkt)
(display (/ (round (* (sd-rad-to-deg (sd-call-cmds (measure_angle :edge bezkt kt))) 100)) 100.0))
);;dolist
(setf messkt nil)
);;let
)
)
:redface:k-action
'()
)
[Diese Nachricht wurde von noxx am 07. Mrz. 2016 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP