#|===================================================================================================
SW-Lösche-alles.lsp
2016-08-07 SW: erstellt von Wolfgang Seel

|#

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



(sd-defdialog 'SW-Lösche-alles

	:dialog-title "SW-Lösche-alles"
	:toolbox-button  t ; nil 
	:variables '(

(LöschAlles	:title "Bestätigen"
                :toggle-type :wide-toggle                                                                                                                  
                :initial-enable t                                                                                                                        
                :push-action 	(progn 
									(SD-SWITCH-APPLICATION "Annotation")
									(am_drawing_delete :dwg preselect) 
									(SD-SWITCH-APPLICATION "SolidDesigner")
									(uic_reset_session :yes)
								);end progn                                                                                                                        
);end LöschAlles	

 
					 
) ; Variables
:ok-action '( 	progn 
					(sd-call-cmds (SD-SWITCH-APPLICATION "Annotation"))
					(sd-call-cmds (am_drawing_delete :dwg )) 
					(sd-call-cmds (SD-SWITCH-APPLICATION "SolidDesigner"))
					(sd-call-cmds (uic_reset_session :yes ))
			) ; ok-action

:cancel-action '()

:help-action 
	'(sd-display-message "
2016-08-11 SW: erstellt von Wolfgang Seel

Das LISP wurde erstellt um ein komplettes Löschen
von 2D und 3D zu erreichen.
   
Viel Spaß beim Teile löschen !!!	
" :title "SW-Lösche-alles.lsp" :push "Weiter")

);;sd-defdialog