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

;;