(in-package :Salva)
(use-package :OLI)

(setq CAM (format nil "~a/SALVATAGGI AUTOMATICI ANNOTATION/CAM" oli::*Bizzotto-Temp*))

(sd-defdialog 'SALVA_FILE_CAM
:dialog-title "Salva File per CAM"
:toolbox-button t
:variables '(   
    (PARTICOLARE :selection (*sd-assembly-seltype* *sd-part-seltype*)
                 :multiple-items t
                 :show-select-menu t
                 :title "Parte/Gruppo"
                 :after-input
(PROGN (SETF LISTA (LIST))
(DOLIST (X PARTICOLARE)
(IF (STRING= "NIL" (WRITE-TO-STRING (sd-inq-obj-contents-name X)))
(PROGN (sd-display-error "UNA DELLE PARTI SELEZIONATE NON E' CODIFICATA!")
(CLEAR_VP (oli::sd-inq-current-vp))
(add_to_vp_drawlist (oli::sd-inq-current-vp) X)
(fit_vp (oli::sd-inq-current-vp) update_screen)
(sd-display-error "QUESTA E' LA PARTE NON CODIFICATA!
N.B: QUESTA PARTE NON SARA' ESPORTATA!"))
(PROGN(PUSH X LISTA))))))

    ("Formato")

    (STEP :toggle-type :wide-toggle
          :title "STEP"
          :push-action (DOLIST (NOME LISTA)
(STEP_EXPORT :SELECT NOME :FILENAME (format nil "~a/~a.STEP" CAM (sd-inq-obj-contents-name NOME)) :OVERWRITE)))

    (IGES :toggle-type :wide-toggle
          :title "IGES"
          :push-action (DOLIST (NOME LISTA)
(native_cad_out :cad_system :igesdek :PARTS NOME :FILENAME (format nil "~a/~a.IGS" CAM (sd-inq-obj-contents-name NOME)) :OVERWRITE)))

    (SAT  :toggle-type :wide-toggle
          :title "SAT"
          :push-action (DOLIST (NOME LISTA)
(SAVE_SAT :SELECT NOME :FILENAME (format nil "~a/~a.SAT" CAM (sd-inq-obj-contents-name NOME)) :OVERWRITE)))

	(STL :toggle-type :wide-toggle
		 :title "STL"
		 :push-action (DOLIST (NOME LISTA)
(STL :SELECT NOME :FILENAME (format nil "~a/~a.STL" CAM (sd-inq-obj-contents-name NOME)) :OVERWRITE)))
)
:local-functions '()
:ok-action '()
:help-action '())