#|===================================================================================================
SW-Hinweise-setzen.lsp
2016-09-06 SW: erstellt von Wolfgang Seel
|#

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

(sd-defdialog 'SW-Hinweise-setzen
    :toolbox-button nil							;; Wird in Werkzeugliste eingetragen
	:dialog-title "SW-Hinweise-setzen"	  					;; Überschrift 
	:variables  				
     '(
	 ("Hinweistext")
	 (TEXT	:value-type :string
				:title "Text"
				:prompt-text "Bitte Text eingeben"
	) ; Text
	 ("Textfläche wählen")	
	(FLAECHE	:value-type :face
				:title "Fläche"
				:prompt-text "Bitte Fläche für Text-Attribut angeben."
				:after-input 
				(progn 	
				;(DISPLAY FLAECHE)
				) ;progn
	) ; Flaeche
	 ("Datei - URL einbinden")
	(Laden
          :value-type :boolean
          :toggle-type :wide-toggle
          :title (sd-multi-lang-string "Bind File" :german "Datei einbinden")
		  :after-input (if Laden
							(progn (sd-set-variable-status 'Waehlen :visible t)
							(sd-set-variable-status 'Datei :visible t)
							(setq datei (format nil "~a\/~a-Korrekturliste.xls" (sd-get-current-working-directory) (sd-am-inq-drawing-no) ))
							);;progn
							(progn (sd-set-variable-status 'File :visible nil)
							(sd-set-variable-status 'Datei :visible nil)
							(sd-set-variable-status 'Waehlen :visible nil)
							(setf datei nil)
							);;progn 
					   );;if
          :initial-value nil
	) ; laden

	(Datei 	:value-type :string
			:title "Datei"
			:initial-visible nil
			:after-input
						(progn				
						) ;progn
	) ;; Datei
	
	(Waehlen
          :value-type :boolean
          :toggle-type :wide-toggle
          :title (sd-multi-lang-string "Search extra File" :german "Datei frei waehlen")
		  :initial-visible nil
		  :after-input (if Waehlen
							(progn (sd-set-variable-status 'File :visible t)
							);;progn
							(progn (sd-set-variable-status 'File :visible nil)
							(setf FILE nil)
							);;progn COM-1441.0-Korrekturliste.xls
					   );;if
          :initial-value nil
	) ; laden
	(FILE	:value-type :filename
			:title "Korr-Datei"
			:initial-visible nil
;			:initial-value datei
		    :initialdirectory (sd-get-current-working-directory)
            :direction :output ;:input
;			:initialpattern "*.x_t;*.xmt_txt"
			:fileType :parasolid_unigraphics
				:after-input
						(progn
						(setq datei (first file))
						(sd-set-variable-status 'File :visible nil)
						) ;progn
	) ; Datei
	
	("Textfarbe wählen")	
	(FARBE 	:value-type :rgb-color
			:title "Farbe:"
			:initial-value 16711680 ;; nil
    )
	
	 (Text-erstellen 
		:push-action (Text-erstellen)
		:title "3D-Text erstellen"
		:initial-enable t
		:toggle-type :wide-toggle
	  )	
	  

) ; variables
:local-functions '(

(Text-erstellen ()
;			(set_anno_color :text 65280) ; 3D-Text Farbe grün setzen
;			(set_anno_color :text 65535) ; 3D-Text Cyan rot setzen
;			(set_anno_color :text 16711935) ; 3D-Text Magenta setzen		
;			(set_anno_color :text 16776960) ; 3D-Text Gelb setzen
;			(set_anno_color :text 65280) ; 3D-Text Farbe grün setzen		
;			(set_anno_color :text 16711680) ; 3D-Text Farbe rot setzen

(oli::set_anno_color :text FARBE)  ;; gewählte Farbe setzen (Standard rot)
	(if (equal datei nil)
(sd-call-cmds 
		(Cocreate_3d_note
		:action
		:create
		:items FLAECHE
		:note Text
		:CATEGORY :mfg
		) ;; Cocreate_3d_note 
		) ;; sd-call-cmds
(progn 
		(if (equal (sd-inq-file-status datei :existence) nil)
				(uic_copy_file :source_fileuic_copy_file :source_file "C:/PTC/Konfig/LISP-Makros/Listen/Korrekturliste.xls" 
				:destination_file Datei complete)
				) ;; Endif

		(sd-call-cmds 
		(Cocreate_3d_note
		:action
		:create
		:items FLAECHE
		:note Text
;		:url Datei 
		:ref_file Datei ;; "C:/PTC/Konfig/Makro-Download/3D-Farbig/3D-Docu.txt"
		:CATEGORY :mfg
		) ;; Cocreate_3d_note
		) ;; sd-call-cmds
) ;progn
	) ; endif
		(setf FLAECHE nil)
		(oli::set_anno_color :text 65280) ; 3D-Text Farbe Standard grün zurück setzen 
		) ; Text-erstellen
) ;; :local-functions
:ok-action '() 

:cancel-action '()
	
:help-action '(sd-display-message "
2016-09-06 erstellt von Wolfgang Seel

Makro zur 3D-Text Verbesserung

Funktionsprinzip:
   
Viel Spaß beim 3D-Texte erstellen !!!

" :title "SW-Hinweise-setzen.lsp" :push "Weiter")
) ; sd-Defdialog