;;--------------------------------------------------------------------------*
;;  Dateiname: HK_Teileinfo.lsp
;;  Version  : 1.0
;;  Datum    : 07.01.2005
;;  Author   : Tasche
;;--------------------------------------------------------------------------*
;;  Beschreibung:                                                                    
;;  Teileinfos anzeigen                                                                                                 
;;
;;   Durch :modifies nil wird der Schreibschutz ignoriert                                                                                                   
;;--------------------------------------------------------------------------*
(in-package :my-special-bom-attr)
(use-package :OLI)
;;--------------------------------------------------------------------------*
;; 
;;--------------------------------------------------------------------------*
;; globale Variablen
;;--------------------------------------------------------------------------*

(sd-defdialog 'hk_teileinfo
  :toolbox-button NIL
  :ignore-pin t
  :dialog-title "HK Teile Info"
  :prompt-text "Teil angeben"
  :dialog-type :terminate
  :variables
  '(
  
  		("Vorgabeparameter")
    
    	(Abmasse	:value-type	:boolean
    				:toggle-type :wide-toggle
					:toggle-type :left-toggle
					:title "Teilemasse "
					:initial-value t 
		);Teilemasse
		
		(hk_display 
			:value-type	:boolean
    		:toggle-type :wide-toggle
			:toggle-type :right-toggle
			:title "clear Display"
			:initial-value t 
		);hk_display 
	
		(TEIL :value-type :part
            :title "Teil"
            :modifies nil 
            :initial-value nil
            :prompt-text "Teil angeben"
            :after-input (hk_teileinfo)
            :next-variable Teil	
      );Teil
      
   );variables

  :local-functions
   '(
     (hk_teileinfo ()
        (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


      ;###Teilemasse
   (if (string= T hk_display)    
   	(Display :clear)
   );;if
   	
	(display (format nil "Info zu Teil:~A      vom:~A" (sd-inq-obj-basename TEIL) (mei::hk-datum-erstellen)))
   (display  "--------------------------------------------------")
   (display " " )
      	(display (format nil "Volumen  :~,3F mm3 " VOLUMEN))
      	(setf Dichte (sd-inq-part-density TEIL))
      	(display (format nil "Dichte   :~,6F g/mm3" Dichte))
      	(setf Gewicht ( / (* VOLUMEN Dichte) 1000))
      	(display (format nil "Gewicht  :~,3F Kg" Gewicht))
      	(display (format nil "Gewicht  :~,3F g"  (* 1000 Gewicht)))
      (if (string= Abmasse "T")     
     		(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 0,0,1 1,0,0 :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))
      	(setf Fertigmasse_Bestellnummer (format nil "~,2Fx~,2Fx~,2F" Laenge Breite Hoehe))
      	(display (format nil "Masse-Box:~,2F ~,2F ~,2F" Laenge Breite Hoehe))
			);;let
		);;if
      (setf hk_liste (oli::sd-inq-obj-mod-time Teil :contents))
      (display " ")
      (display (format nil "Mod Date:~A.~A.~A Mod Time:~A:~A"(nth 5 hk_liste)(nth 3 hk_liste)(nth 1 hk_liste)(nth 7 hk_liste)(nth 9 hk_liste)))
    	
    	(setf hk_konstrukt (sd-inq-item-attributes teil "MY_SPECIAL_BOM_ATTR" '(:Konstrukt)))
    	
    	(display (format nil"Ersteller:~A" hk_konstrukt))
    	
		(display " ")
      (setf material (my-special-bom-attr::bomattr-get-Material Teil)) 
      (setf benennung (my-special-bom-attr::bomattr-get-Benennung Teil))
      (setf benennung2 (mei::bomattr-get-Benennung2 Teil))
      (setf waermebehandlung (mei::bomattr-get-Waermebehandlung Teil))
      (setf pos (my-special-bom-attr::bomattr-get-Pos Teil))
      (setf menge (my-special-bom-attr::bomattr-get-menge Teil))
      (setf Fertigmasse_Bestellnummer (my-special-bom-attr::bomattr-get-Fertigmasse_Bestellnummer Teil))
      (setf hk_legende (mei::bomattr-get-hk_teile_legende Teil))
      ;;(setf Teilegruppe (my-special-bom-attr::bomattr-get-Teilegruppe Teil))
      (setf Revision (my-special-bom-attr::bomattr-get-Revision Teil))
      ;;(setf Zeichnung (my-special-bom-attr::bomattr-get-Zeichnung Teil))
    	(display (format nil "Material        :~A" material)) 
		;;(display (format nil "Zeichnung       :~A" Zeichnung))  
		;;(display (format nil "Teilegruppe     :~A" Teilegruppe))
		(display (format nil "Revision        :~A" Revision))
		(display (format nil "Positionsnummer :~A" pos))
		(display (format nil "Waermebehandlung:~A" waermebehandlung))
		(display (format nil "Benennung       :~A" benennung))
		(display (format nil "Benennung2      :~A" benennung2))
      (display (format nil "Menge           :~A" menge))
      (display (format nil "Masse/Bestellnr :~A~%~%" Fertigmasse_Bestellnummer))
      (display (format nil "Legende:~%~A" hk_legende))
    );teileinfo_info
   );;local-functions

 
);;sd-defdialog