;; Logische Tabelle für Gewinde_Durchgangs_Bohrungen erstellen
;; Lochtype Gewindebohrung (13)
(in-package :cad-cam-link-customization)

(sd-create-logical-table "mach_adv_library-threaded_throughhole-thread_dia-table"
 :columns		'( :description :thread_dia :thread_size :drill_dia  :chamfer_depth)
 :columnNames	' (" Gew.Type  "  "Gew.Bohr"  "Steigung" "Bohrung"  "Fasenbreite")
 :keyColumns	'( :description :thread_dia :thread_size :drill_dia  :chamfer_depth)
 :secured		nil	
 :types		'( :string        :length		:length	:length	:length)
 :units		'(nil	     :mm		:mm	:mm	:mm)
 :contents		'( ("M3  "		  3	0.50	  2.5	0)
		   ("M4  "		  4	0.70	  3.3	0)
		   ("M5  "		  5	0.80	  4.2	0)
		   ("M6  "		  6	1.00	  5.0	0)
		   ("M8  "		  8	1.25	  6.8	0)
		   ("M10"		10	1.5	   8.5	0)
		   ("M12"		12	1.75	10.5	0)
		   ("M14"		14	2.00	12.0	0)
		   ("M16"		16	2.00	14.0	0)
		   ("M20"		20	2.50	17.5	0)
		   ("M24"		24	3.00	21.5	0)
		   ("M30"		30	3.50	26.5	0)))


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

(sd-create-display-table "mach_adv_library-threaded_throughhole-thread_dia-table"
 :tableTitle  		"Gewinde_Durchgangs_Loecher "
 :logicalTable   		"mach_adv_library-threaded_throughhole-thread_dia-table"
 :columns   		'(  :description :thread_dia :thread_size)
 :filterStatusLine		nil
 :applyColumns		'( :thread_dia)
 :selectionMode		:single-row
 :applyAction		:default
)


;;---- Beschriftung für Teilgewinde_Durchgangsbohrung  im 3D-Annotation anpassen

(MACHADV_SET_FEATURE_FLAG_TEXT
    :feature_type "MACH_ADV_LIBRARY_THREADED_THROUGHHOLE"
    :feature_flagstring "M{3} DG_Loch~%BT={2}" 
)

(MACHADV_SET_FEATURE_ABBREVIATION
    :feature_type "MACH_ADV_LIBRARY_THREADED_THROUGHHOLE"
    :feature_abbrev "Gew_DG_Loch"
)

;; Mashining aufrufen
create_custom_feature "mach_adv_library_threaded_throughhole"