(in-package :my-tools)
(in-package :oli)
(sd-defdialog 'sm_unfold_one_click
 :variables
 '(
   (base_face
     :selection *sd-face-seltype*   ;; ggf. *sd-plane-seltype*
     ;; :check-function (this-is-a-SM-part-right?) 
     )
   )
  :ok-action
  '(let (t-file m-file sm-part)
    (setq sm-part (sd-inq-parent-obj base_face))
    (setq m-file (format nil "~A/CoCreate_SheetMetal_~A.mi"  (sd-inq-temp-dir) (sd-inq-obj-basename sm-part)))
    (setq t-file (format nil "~A/CoCreate_SheetMetal_~A.txt" (sd-inq-temp-dir) (sd-inq-obj-basename sm-part)))
    (sd-call-cmds (SHA_UNFOLD
                    :base_face base_face      ;; Grundflaeche anwaehlen
                    :output_to_vp :off  
                    :output_to_me10 :off
                    :filename m-file :OVERWRITE  ;; Haekkchen in MI-Datei setzen
                    :summary  t-file :OVERWRITE  ;;  Ablageort bestimmen und Namen vergeben
                    :bend_allowance_shop
                    :cone_allowance 0.5
                    :sharp_bend_radius 0.4
                    :show_downside :on
                    )) ;; ganze mit OK bestaetigen.
    )
  )