;;--------------------------------------------------------------------------*
;;  Copyright 2010  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: multiple-x_t.lsp
;;  Version  : 2.0
;;  Datum    : 27.10.2010
;;  Author   : Gt
;;--------------------------------------------------------------------------*

(in-package :custom)

(use-package :OLI)

;;--------------------------------------------------------------------------*

(sd-defdialog 'dc4-speichere-teile-x_t-dialog
:dialog-title "x_t speichern"
;;:dialog-control :sequential
:variables
  '(
    (verz  :value-type :string
           :prompt-text "Verzeichnis zum Speichern angeben"
           :title "Verzeichnis"
           :initial-value (sd-get-current-working-directory)
           :check-function
            #'(lambda (dir)
               (if (sd-directory-p (format nil "~a//" dir))
                :ok
                (values :error "Dieses Verzeichnis existiert nicht!")))
    )
    (over  :value-type :boolean
           :toggle-type :wide-toggle
           :title "Ueberschreiben"
           :initial-value nil
    )
     (parts :selection
               (*sd-assembly-seltype* *sd-part-seltype*)
               :multiple-items t
               :show-select-menu t
               :title "Teile/Bgr."
     )
					("Dateiname aus:")
    (base  :value-type :grouped-boolean
           :title "Struktur"
           :initial-value t
    )
    (cont  :value-type :grouped-boolean
           :title "Modell"
           :initial-value nil
    )
   )
:mutual-exclusion '((base cont))
:local-functions
  '((doit-action ()
     (let (datei index teil)
      (dolist (teil parts)
						 (if base
								(setf datei (format nil "~a//~a.x_t" verz (sd-inq-obj-basename teil)))
								(setf datei (format nil "~a//~a.x_t" verz (sd-inq-obj-contents-name teil)))
							);;if	
       (if over
        (progn
					(sd-call-cmds (native_cad_out :cad_system :parasolid_unigraphics :PARTS teil :filename datei :overwrite))
        );;progn
        (progn
         (setf index 1)
         (loop
          (if (sd-inq-file-status datei :existence)
           (progn
            (setf datei (format nil "~a//~a-~a.x_t" verz (sd-inq-obj-contents-name teil) index))
            (setf index (+ index 1))
           );;progn
           (return nil)
          );;if
         );;loop
         (sd-call-cmds (native_cad_out :cad_system :parasolid_unigraphics :PARTS teil :filename datei :overwrite))
        );;progn
       );;if
      );;dolist
     );;let
		 (act_deact_module :Deact "UG_DIRECT_LINK" "MODULE-CONTROLLER-Data Interfaces-UG_DIRECT_LINK-TB" '(STARTUP::DEACTIVATE-SD-UG-ADAPTER))
    )
   )
:ok-action
   '(doit-action)
:help-action '()
)