#|
My Extrude
Note: This is an example file showing concepts of the Integration Kit.
The code itself is not supported and will never be supported.
|#
(in-package :EXAMPLES)
(use-package :OLI)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(sd-defdialog 'my_extrude
:dialog-title "Extrude"
:variables
'((A_PART :value-type :part-incl-new
:modifies :contents
:title "Part"
:prompt-text "Identify part to extrude.")
(A_WP :value-type :wp-with-profile
:title "Workplane"
:prompt-text "Identify workplane to extrude.")
(DISTANCE :value-type :distance
:prompt-text "Specify distance to extrude."
:initial-value 42))
:ok-action
'(sd-call-cmds
(extrude :part a_part
:wp a_wp
:distance distance)))
;;