;;--------------------------------------------------------------------------*
;; Dateiname: HK_Baugruppensimulation.lsp
;; Version  : 1.0
;; Datum    : .2005
;; Author   : Tasche
;; Version   :12.01D
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; bewegt Baugruppen nach Vorgaben                                                                                                  
;;                                                                                                   
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; Vorgaben setzen:                   
;;--------------------------------------------------------------------------*
;;(setf hk_lfnr 1)        
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_bg_simulation
		:toolbox-button t
   	:dialog-title "HK Baugrp. Simulation"
   	:prompt-text "Teile auswaehlen"
   	:variables
   	'(
   		("Werkzeug oeffnen ")
   		
	      (bauteile  
	      		  :value-type :feature
			        :title "Oeffnungsw."
			        :initial-value nil
     				  :modifies nil 
	              :prompt-text "Feature fuer Oeffnungsweg auswaehlen"
			);;bauteil
			
			(oeffnungs_weg  
	      		  			:value-type :number
			        			:title "Laenge"
			        			:initial-value nil
			        			:modifies nil
	              			:prompt-text "Verfahrweg eingeben"
			);;oeffnungs_weg
			
			("Auswerferweg 1")
			
			(auwerfer_1		
							:value-type :feature
			        		:title "Ausw. Weg 1"
			        		:initial-value nil
     						:modifies nil 
	              		:prompt-text "Feature fuer Auswerferweg 1 auswaehlen"	
	      );;auswerfer_1
	      
	      (ausw_weg_1
	      		  		:value-type :number
			        		:title "Laenge"
			        		:initial-value nil
			        		:modifies nil
	              		:prompt-text "Verfahrweg eingeben"
			);;ausw_weg_1
			
			
			(" Backen oeffnen")
			
			(backe_rechts  
	      		  		:value-type :feature
			        		:title "Backe rechts"
			        		:initial-value nil
     				  		:modifies nil 
	              		:prompt-text "Feature fuer rechte Backe auswaehlen"
			);;backe_rechts
			
			(backe_links  
	      		  		:value-type :feature
			        		:title "Backe links"
			        		:initial-value nil
     				  		:modifies nil 
	              		:prompt-text "Feature fuer linke Backe auswaehlen"
			);;backe_links
			
			(backen_weg  
	      		  		:value-type :number
			        		:title "Laenge"
			        		:initial-value nil
     						:modifies nil 
	              		:prompt-text "Verfahrweg fuer Backen eingeben"
			);;backen_weg
			
			
				              
	   );variables
	      
	  :local-functions
   	'(
   		(hk_oeffnungsweg ()
   			(position_pa
					:part_assembly
					:in_feature
					:FULL_NAME :START_NAME bauteile :END_NAME
					:translate
					:dir_len
					:neg_z oeffnungs_weg
					complete
				)		
			);;hk_oeffnungsweg
			
			(hk_auswerfer_weg_1 ()
   			(position_pa
					:part_assembly
					:in_feature
					:FULL_NAME :START_NAME auwerfer_1 :END_NAME
					:translate
					:dir_len
					:z ausw_weg_1
					complete
				)	
			);;hk_auswerfer_weg_1
			
			(hk_backenweg_rechts ()
   			(position_pa
					:part_assembly
					:in_feature
					:FULL_NAME :START_NAME backe_rechts :END_NAME
					:translate
					:dir_len
					:x backen_weg
					complete
				)	
			);;hk_backenweg_rechts

			
			(hk_backenweg_links ()
   			(position_pa
					:part_assembly
					:in_feature
					:FULL_NAME :START_NAME backe_links :END_NAME
					:translate
					:dir_len
					:neg_x backen_weg
					complete
				)	
			);;hk_backenweg_links
			
			(hk_action ()
				(hk_oeffnungsweg)
    			(hk_auswerfer_weg_1)
    			(hk_backenweg_rechts)
    			(hk_backenweg_links)
    		);;hk_action
		   	
		);local-function
		
		 :ok-action
    		'(hk_action)
    		
);sd-defdialog