;;--------------------------------------------------------------------------*
;; Dateiname: HK_Viewer_Menu.lsp
;; Version  : 1.0
;; Datum    : 10.09.2004
;; Author   : Tasche
;; Version   :12.01D
;;--------------------------------------------------------------------------*
;; Modulbeschreibung:                                                                    
;; Eigenes Menue fuer OSD Viewer                                                                                                  
;;                                                                                                   
;;--------------------------------------------------------------------------*
(in-package :mei)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; globale Variablen
;;--------------------------------------------------------------------------*
(setf *hk_pfad_name* "T:/Konstruktion/HK_Eigene_SD_Macros/")
(load (format nil "~A~A" *hk_pfad_name* "HK_OSD_Anno_Funktionen.lsp"))
(load (format nil "~A~A" *hk_pfad_name* "HK_Stifte.pen"))


(sd-defdialog 'hk_3D_Viewer
		:toolbox-button t
		:ignore-pin t
   	:dialog-title "Eigenes Viewer Menue"
   	:prompt-text "HK Eigenes Menue"
	   :dialog-type :terminate
   	:variables
   	'(
	      (Sch-lang-ein	:push-action (mei::hk-schnitt-laengs-1-aktiv)
	      					:toggle-type	:grouped-toggle
	      					:title "Schnitt-L-Ein"
	      					:after-input (set_pers_context "Toolbox-Context" hk_3d_viewer)
	      		 
			)
			
			(Alle-Schn-aus	:push-action (MEI::HK-ALLE-SCHNITTE-AUS)
	      					:toggle-type	:grouped-toggle
	      					:title "Alle Schn. aus"
	      					:after-input (set_pers_context "Toolbox-Context" hk_3d_viewer)
	      		 
			)
			
			(Alle-AEs-aus		:push-action (MEI::hk-alle-arbeitsebenen-aus)
	      					:toggle-type	:grouped-toggle
	      					:title "Alle AE's. aus"
	      					:after-input (set_pers_context "Toolbox-Context" hk_3d_viewer)
	      		 
			)


			
			(Segelschein	:push-action (sd-display-url "http://www.vhs-lw.de")
	      					:toggle-type	:grouped-toggle
	      					:title "Segelschein"
	      					:after-input (set_pers_context "Toolbox-Context" hk_3d_viewer)              
			)	              
			
			
			(" Teile ein aus zeigen Info")
			
			(TEIL_aus :value-type :part
           		:title "Teil unsichtb."
           		:modifies nil 
           		:prompt-text "Teil unsichtbar schalten"
           		:next-variable 'Teil_aus
           		:after-input (teil-unsichtbar)
			);Teil-aus 
				              
			(TEIL_akt :value-type :part
           		:title "Teil aktiv"
           		:modifies nil 
           		:prompt-text "Teil aktiv schalten und in Strukturliste anzeigen"
           		:after-input (teil-aktuell)
     		)	
     		
     		(Alle_aus :value-type :part
     	       	:title "Teil_akt_sichtb"
     	       	:prompt-text "aktuelles Teil waehlen, und alle anderen werden unsichtbar geschaltet"
             	:after-input (teil-aktuell-aus)
     		)                  
				
			(TEIL :value-type :part
           		:title "Teile Info"
           		:modifies nil 
           		:prompt-text "Info zu Teil abfragen"
           		:after-input (teile_info_zeigen)
     		)	
     		
     		
     		
	   );variables
	      
	  :local-functions
   	'(
   	
   		(teil-unsichtbar ()      
       		(REMOVE_FROM_VP_DRAWLIST "1" :with-wp (sd-inq-obj-pathname Teil_aus))
       		(set_pers_context "Toolbox-Context" hk_3d_viewer)
     		);teil-unsichtbar
   	
   		
   	  (teil-aktuell ()
       		(current_part Teil_akt)
       		(setf HK_WERT1 (format nil "~A" (sd-inq-obj-basename  (SD-INQ-CURR-PART)))) 
       		(search_gbrowser_item :gbrowser "parcel-gbrowser"  :name HK_WERT1)
       		(set_pers_context "Toolbox-Context" hk_3d_viewer)
     	  );teil-aktuell  
   	
   	(teil-aktuell-aus ()
        (setq SHEET_TEXT_1 (sd-inq-obj-pathname (first (sd-inq-obj-children (sd-pathname-to-obj "/")))))
        (REMOVE_FROM_VP_DRAWLIST "1" :with-wp SHEET_TEXT_1)
        (add_to_vp_drawlist "1" :with-wp Alle_aus)
        (current_part Alle_aus)
        (search_gbrowser_item :gbrowser "parcel-gbrowser"  :name HK_WERT1)
        (set_pers_context "Toolbox-Context" hk_3d_viewer)   
     	)
   	
   	(teile_info_zeigen ()
        (setq VOLUMEN
          (sd-call-cmds
            (get_vol_prop
	       		:for_part
	       		:part_asmb (sd-inq-obj-pathname TEIL)
	       		:volume)
	       		:failure nil
	   		);sd-call-cmds
        );;setq volume
     	(let
      (the-box z-dir x-dir ausgangs-punkt end-punkt fertig-masse Laenge Breite Hoehe)
      (setf z-dir 0,0,1)
      (setf x-dir 1,0,0)
      (setf the-box (sd-inq-exact-box Teil z-dir x-dir :source-space :local :dest-space :local))     
      (setf ausgangs-punkt (nth 0 the-box))
      (setf end-punkt (nth 1 the-box))
      (setf fertig-masse (sd-vec-subtract end-punkt ausgangs-punkt))
      (setf Laenge (gpnt3d_x fertig-masse))
      (setf Breite (gpnt3d_y fertig-masse))
      (setf Hoehe (gpnt3d_z fertig-masse)) 
      (display :clear)	
      (display (format nil "Info zu Teil:~A "(sd-inq-obj-basename TEIL)))
      (display  "---------------------------------")
      (display " " )
      (display (format nil "Volumen  :~,4F mm3 " VOLUMEN))
      (setf Dichte (sd-inq-part-density TEIL))
      (display (format nil "Dichte   :~,4F g/mm3" Dichte))
      (setf Gewicht ( / (* VOLUMEN Dichte) 1000))
      (display (format nil "Gewicht  :~,6F Kg" Gewicht))
      (display (format nil "Masse-Box:~,2Fx~,2Fx~,2F" Laenge Breite Hoehe))
      (display " ")
     );let 
    );teileinfo_info
   	
   	 	
   		
		);local-function
);sd-defdialog