#|
;*********************************************************************************************
; Dateiname 	: 	BMK_Formelemente_button.lsp
; Autor         : 	Benjamin Ruß
; Erstellt      :	12.02.2009
;*********************************************************************************************
; Beschreibung:		- 	Erzeugt eine Auswahlbox mit Buttons
					zum direkten starten des Machining Advisors (Formelementmanager),
;					mit den zugehörigen Wertetabellen (Tables)
;*********************************************************************************************
; Änderungen:	01.04.09	B.Ruß		Auswahlbuttons vervollständigt	
;
;*********************************************************************************************
|#
(in-package :BMK)
(use-package :OLI)

(setq bmk_lisp_dir (oli::sd-sys-getenv "SDSITECUSTOMIZEDIR"))

(sd-create-menu "BMK Formelemente"
  :title "BMK Formelemente"
  :contents
  `(
    	(:buttonBox "Zapfensenkungen"
		:title "Zapfensenkungen"
		:buttons 
		(	
			("Hm"  	:label "Hm"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Zapfensenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Zapfensenkung_Hm.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole")
						) ; end progn
			) ; end Hm
			
			("Jm"  	:label "Jm"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Zapfensenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Zapfensenkung_Jm.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole")
						) ; end progn
			) ; end Jm
			
			("Km"  	:label "Km"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Zapfensenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Zapfensenkung_Km.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole")
						) ; end progn
			) ; end Km

			("Hf"  	:label "Hf"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Zapfensenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Zapfensenkung_Hf.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole")
						) ; end progn
			) ; end Hf

			("Jf"  	:label "Jf"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Zapfensenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Zapfensenkung_Jf.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole")
						) ; end progn
			) ; end Jf
			
			("Kf"  	:label "Kf"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Zapfensenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Zapfensenkung_Kf.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole")
						) ; end progn
			) ; end Kf
		);end buttons	 
		);end buttonbox
			  	 
		(:buttonBox "Kegelsenkungen"
		:title "Kegelsenkungen"
		:buttons
		(	
			("Am"  	:label "Am"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Kegelsenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Kegelsenkung_Am.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_countersunk_throughhole")
						) ; end progn
			) ; end Am
			
			("Bm"  	:label "Bm"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Kegelsenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Kegelsenkung_Bm.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_countersunk_throughhole")
						) ; end progn
			) ; end Bm
			
			("Af"  	:label "Af"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Kegelsenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Kegelsenkung_Af.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole_with_chamfer")
						) ; end progn
			) ; end Af

			("Bf"  	:label "Bf"
						:image  (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Kegelsenk.bmp")
						:pushAction
						(progn
							(load (format NIL "~A/~A"
							(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Kegelsenkung_Bf.lsp"))
							(CREATE_CUSTOM_FEATURE "mach_adv_library_counterbored_throughhole_with_chamfer")
						) ; end progn
			) ; end Bf
		);end buttons	 
		);end buttonbox
			  	 		
		(:buttonBox "Innengewinde"
		:title "Innengewinde"
	     :buttons
			(
				("Sackgew." :label "Sackgew."
							:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Sackgewinde.bmp")
							:pushAction
							(progn
								(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_PARTIALLY_THREADED_BLINDHOLE")
							) ; end progn
				) ; end Sackgew.
	
				("Durchg." :label "Durchg."
							:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Durchgangsgewinde.bmp")
							:pushAction
							(progn
								(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_THREADED_THROUGHHOLE")
							) ; end progn
				) ; end Durchg.
	
				("Teilgew." :label "Teilgew."
							:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Teilgewinde.bmp")
							:pushAction
							(progn
								(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_PARTIALLY_THREADED_THROUGHHOLE")
							) ; end progn
				) ; end Teilgew.		
			)
   		)
		
		(:buttonBox "Aussengewinde"
		:title "Aussengewinde"
	     :buttons
			(
				("mit Ausl." :label "mit Ausl." 
							:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Aussengew_Ausl.bmp")
							:pushAction
							(progn
								(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_outer_THREAD_with_clearance")
							) ; end progn
				) ; end mit Ausl.
				
				("mit Freist." :label "mit Freist." 
								:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Aussengew_Freist.bmp")
								:pushAction
								(progn
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_outer_THREAD_with_groove")
								) ; end progn
				) ; end mit Freist.
							
				("St.m.Ausl." 	:label "St.m.Ausl." 
								:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Aussengew_Ausl.bmp")
								:pushAction
								(progn
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_THREAD_bolt_with_clearance")
								) ; end progn
				) ; end St.m.Ausl.
				
				("St.m.Frei." 	:label "St.m.Frei." 
								:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Aussengew_Freist.bmp")
								:pushAction
								(progn
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_THREAD_bolt_with_groove")
								) ; end progn
				) ; end St.m.Frei.
			)
   		)
	
		(:buttonBox "Bohrung"
		:title "Bohrung"
	     :buttons
			(
				("Sackb." 		:label "Sackb." 
								:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Sackbo.bmp")
								:pushAction
								(progn
									(load (format NIL "~A/~A"
									(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/bmk_sackbohrung.lsp"))
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_blindhole")  
								) ; end progn
				) ; end Sackb.
								
				("Zapf.Senk."	:label "Zapf.Senk." 
								:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Zapfensenkung.bmp")
								:pushAction
								(progn
									(load (format NIL "~A/~A"
									(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/bmk_zapfensenkung.lsp"))
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_flat_blindhole")
								) ; end progn
				) ; end Zapf.Senk.
								
				("Durchg."		:label "Durchg." 
								:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Durchgangsbo.bmp")
								:pushAction
								(progn
									(load (format NIL "~A/~A"
									(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/bmk_durchgangsbohrung.lsp"))
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_COUNTERsunk_THROUGHHOLE")
								) ; end progn
				) ; end Durchg.
			)	
   		)
	
		(:buttonBox "Passbohrung"
		:title "Passbohrung"
	     :buttons
			(
				("Durchg." 	:label "Durchg." 
							:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Passung_Du.bmp")
							:pushAction
								(progn
									(load (format NIL "~A/~A"
									(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Passung_Durch.lsp"))
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_COUNTERsunk_THROUGHHOLE")
								) ; end progn
				) ; end Durchg.
							
				("Sackb."  	:label "Sackb." 
							:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/Passung_Sa.bmp")
							:pushAction
								(progn
									(load (format NIL "~A/~A"
									(sd-sys-getenv "SDSITECUSTOMIZEDIR") "MACHININGADVISOR/bmk_formelemente_button/BMK_Passung_Sack.lsp"))
									(CREATE_CUSTOM_FEATURE "MACH_ADV_LIBRARY_blindhole")
								) ; end progn
				) ; end Sackb. 
			)
  		)
	);end contents

); end sd-create-menue

(sd-add-menu-button "BMK Formelemente"
		:label 		"BMK Formelemente"
		:parent 	'("TASK" "SolidDesigner")		;;Menürscheint in OneSpace Designer
	;	:parent 	'("TASK" "Annotation")						;;Menürscheint in Annotation
		:mapmenu 	"BMK Formelemente"
		:image (format nil "~A/~A" bmk_lisp_dir "/bmk_lisp_makro/bitmaps/machining.bmp")
);end sd-add-menu-button

(display "BMK-Formelente-Box geladen")