Hallo,
ich habe mich mal versucht, allerdings scheitere ich an der Verschiebung der AE. Hat einer der "Lisp-besser-als-ich-könner" eine Idee, was hier falsch sein könnte?
(in-package :my-package)
(use-package :oli)
(sd-defdialog 'AE_im_Zwischenraum
:dialog-title "AE im Zwischenraum"
:toolbox-button t
:variables
'(
(Ausgangsflaeche :value-type :point-3d
:multiple-items nil
:title "par. FlÌche"
; :initial-value nil
:prompt-text "Ausgangsflaeche angeben"
; :after-input (los-gehts)
:modifies nil
)
(erste_flaeche :value-type :face
:multiple-items nil
:title "1. FlÌche"
; :initial-value nil
:prompt-text "1. Flaeche angeben"
; :after-input (los-gehts)
:modifies nil
)
(zweite_flaeche :value-type :face
:multiple-items nil
:title "2. FlÌche"
; :initial-value nil
:prompt-text "2. Flaeche angeben"
; :after-input (los-gehts)
:modifies nil
)
) ;end Variables
:ok-action '(los-gehts)
:local-functions '(
(los-gehts ()
(progn
(sd-call-cmds (create_workplane :new :par_face :face Ausgangsflaeche :offset (measure_dist :sf_sf erste_flaeche zweite_flaeche) ))
) ;end progn
) ;end los-gehts
) ;end local functions
) ;end sd-defdialog
Grüße, Michael
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP