;; Logische Tabelle für Gewinde_Sackloch_Bohrungen erstellen
;; Lochtype Teilgewindesckbohrung (12)
(in-package :cad-cam-link-customization)

(sd-create-logical-table "mach_adv_library-partially_threaded_blindhole-thread_dia-table"
 :columns		'( :description :thread_dia :thread_size :drill_dia :tap_depth :drill_depth :chamfer_depth)
 :columnNames	' (" Type  "  "Gew"  "GS"                         "BD"         "GT"  "BT"      "C")
 :keyColumns	'( :description :thread_dia :thread_size :drill_dia  :chamfer_depth)
 :secured		nil	
 :types		'( :string        :length		:length	:length	 :length	:length	:length)
 :units		'(nil	     :mm		:mm	:mm	:mm	:mm	:mm)
 :contents		'( ("M3  "		  3	0.50	  2.5	10	13	0)
		   ("M4  "		  4	0.70	  3.3	12	15	0)
		   ("M5  "		  5	0.80	  4.2	12	15	0)
		   ("M6  "		  6	1.00	  5.0	12	15	0)
		   ("M8  "		  8	1.25	  6.8	15	18	0)
		   ("M10"		10	1.5	   8.5	17	20	0)
		   ("M12"		12	1.75	10.5	22	25	0)
		   ("M14"		14	2.00	12.0	25	28	0)
		   ("M16"		16	2.00	14.0	27	30	0)
		   ("M20"		20	2.50	17.5	29	32	0)
		   ("M24"		24	3.00	21.5	32	35	0)
		   ("M30"		30	3.50	26.5	37	40	0)))


;;---- Display Tabelle für Teilgewinde_Sackbohrungen erstellen 

(sd-create-display-table "mach_adv_library-partially_threaded_blindhole-thread_dia-table"
 :tableTitle  		"Gewinde_Sack_Loecher "
 :logicalTable   		"mach_adv_library-partially_threaded_blindhole-thread_dia-table"
 :columns   		'(  :description :thread_dia :thread_size :tap_depth :drill_depth :chamfer_depth)
 :filterStatusLine		nil
 :applyColumns		'( :thread_dia :thread_size :tap_depth :drill_depth :chamfer_depth)
 :selectionMode		:single-row
 :applyAction		:default-tokens
)


;;---- Beschriftung fuer Teilgewinde_Sackbohrungen anpassen

(MACHADV_SET_FEATURE_FLAG_TEXT
    :feature_type "MACH_ADV_LIBRARY_PARTIALLY_THREADED_BLINDHOLE"
    :feature_flagstring "M{3} Sackloch~%BT={2}GT={5} "
)

;; Mashining aufrufen
create_custom_feature "mach_adv_library_partially_threaded_blindhole"