;;--------------------------------------------------------------------------*
;; Modulbeschreibung:
;; Menü zum Speichern von BDL&PDF-Files in Annotation
;;--------------------------------------------------------------------------*
;;  Dateiname: plot-pdf-bdl.lsp
;;  Version  : 1.0
;;  Datum    : 25.09.2020
;;  Author   : MiBr
;;--------------------------------------------------------------------------*

(in-package :mibr)
(use-package :oli)

(sd-defdialog 'plot-pdf-bdl
:toolbox-button t
:dialog-title '(sd-multi-lang-string "Create PDF/BDL" :german "PDF/BDL erstellen")

:variables '(
(dir 	:value-type :directory
		:Prompt-text (sd-multi-lang-string "Specify storage path" :german "Ordner zum Speichern angeben")
		:title (sd-multi-lang-string "path" :german "Ordner")
		:initial-value (sd-get-current-working-directory)
		:after-input (progn (sd-set-current-working-directory dir)
							(bdl-fname (Format nil "~a\\~a.bdl" dir (sd-am-inq-drawing-no)))
							(pdf-fname (Format nil "~a\\~a.pdf" dir (sd-am-inq-drawing-no)))
					 )
)
(bdl-fname 	:initial-value (Format nil "~a\\~a.bdl" dir (sd-am-inq-drawing-no)))
(pdf-fname	:initial-value (Format nil "~a\\~a.pdf" dir (sd-am-inq-drawing-no)))
) ;; end variables
:ok-action '(if (or	(sd-inq-file-status bdl-fname :existence) (sd-inq-file-status pdf-fname :existence))
				(let (file_existence)
					(setf file_existence (sd-display-warning "Die Dateien sind bereits vorhanden." 
										 :title "Achtung" :push-1 "Überschr." :push-2 "Abbrechen" :severity :low))
							(if (eql file_existence :yes) (sd-call-cmds (do-it)) (sd-return-from-ok-action))
				) ;end let
				(sd-call-cmds (do-it))
			)

:local-functions '(
(do-it ()
	(am_plot_ex	:Plot_style :PDF_A3
			:output_sheet
			:destination pdf-fname
			:scale :fit
			:value 1
			:ORIENTATION :landscape
			:POSITION :CENTER
			:output_drawing
			:plot
	) ;end am_plot
	(when (sd-inq-file-status bdl-fname :existence)
		(delete-file bdl-fname)
	)
	(am_save_bundle	:FNAME bdl-fname
					:overwrite-drawing :on
					:overwrite-3d :on
	) ;end am_save_bundle
) ;end do-it
) ;end local-functions
) ;;end dialog