#|
SW-Prüfen-Test.lsp
erstellt am 29.07.2020 von Wolfgang Seel

Das Makro prüft Teile auf Fehler

|#

(in-package  :SW)
(use-package ':oli)

(sd-defdialog   'SW-Pruefen-Makro
	:dialog-title "SW-Prüfen-Makro"
	:toolbox-button t
	:variables 
	'( 
		
 
  (Teil
   :title "Teile-Auswahl"
   :selection (*sd-object-seltype*)
   :multiple-items nil
   :prompt-text "Teile zum Prüfen wählen."
   :initial-value nil
   :after-input (progn (sd-call-cmds (SW::SW_Teil_pruefen Teil) ) (setq Teil nil) );progn
     )

	
) ; end variables

:local-functions '( 


)
:ok-action '   ( )	

:cancel-action '( )

:help-action '(sd-display-message "
SW-PrüfenMakro.lsp
erstellt am 29.07.2020 von Wolfgang Seel

" :title "SW-PrüfenMakro.lsp" :push "Weiter")

) ; sd-defdialog

(defun SW_Teil_pruefen (Teil)

	(DISPLAY :clear)
			 (sd-call-cmds (k2-ui::check_part :objects Teil
                                        :maximal_check
										:labels :off
										:minimal_edge :off
										:voids :off
										:knife_edges :off
										:max_number_control_points :off
                                        :verbose  :off
										:warnings :off
										:NO_DISPLAY_BOX :off
							)
                    :success
                            (progn
                              (setq Ergebnis *sd-action-result*)
                            )

				);Prüfroutine
				(DISPLAY :clear)
				
				(if (equal Ergebnis nil)
					(DISPLAY "Das Teil ist OK. Alles Wunderbar")
					(Display "Das Teil ist Beschädigt, so was machst Du jetzt." )
				);endif

);defun