(in-package :cad-cam-link-customization) (use-package :oli) (defun cher_werte_tabelle_sackgewinde() '( ;***** Gew.drm Steigung Bohrdrm Gew.tiefe Bohrtiefe Fase Bohrradius ********; ("metric" "M1" 1.0 0.25 0.8 1.5 2.0 0 0.4) ("metric" "M1,2" 1.2 0.25 1.0 1.6 2.2 0 0.5) ("metric" "M1,6" 1.6 0.35 1.3 3 4 0 0.65) ("metric" "M2" 2 0.40 1.7 4 6.3 0 0.85) ("metric" "M2,5" 2.5 0.45 2.1 5 7.5 0 1.05) ("metric" "M3" 3 0.50 2.6 6 8.8 0 1.25) ("metric" "M4" 4 0.70 3.3 8 11.8 0 1.65) ("metric" "M5" 5 0.80 4.2 10 14.2 0 2.10) ("metric" "M6" 6 1.00 5.0 12 17.1 0 2.50) ("metric" "M8" 8 1.25 6.8 16 22.2 0 3.40) ("metric" "M10" 10 1.50 8.5 20 27.3 0 4.25) ("metric" "M12" 12 1.75 10.5 24 32.3 0 5.25) ("metric" "M14" 14 2.00 12.0 28 36 0 6.00) ("metric" "M16" 16 2.00 14.0 32 41.3 0 7.00) ("metric" "M20" 20 2.50 17.5 40 51.2 0 8.75) ("metric" "M24" 24 3.00 21.5 48 52 0 10.75) ("MF" "M2x0,25" 2 0.25 1.7 4 6 0 0.85) ("MF" "M3x0,35" 3 0.35 2.6 6 8 0 1.30) ("MF" "M3,5x0,35" 3.5 0.35 3.1 7 9 0 1.55) ("MF" "M4x0,35" 4 0.35 3.6 8 10 0 1.80) ("MF" "M4x0,5" 4 0.50 3.5 8 10 0 1.75) ("MF" "M5x0,35" 5 0.35 4.6 10 12 0 2.30) ("MF" "M5x0,5" 5 0.50 4.4 10 13 0 2.20) ("MF" "M6x0,35" 6 0.35 5.6 12 14.5 0 2.80) ("MF" "M6x0,5" 6 0.50 5.5 12 14.5 0 2.75) ("MF" "M6x0,75" 6 0.75 5.2 12 14.5 0 2.60) ("MF" "M8x0,35" 8 0.35 7.6 16 19 0 3.80) ("MF" "M8x0,5" 8 0.50 7.5 16 19 0 3.75) ("MF" "M8x0,75" 8 0.75 7.2 16 19 0 3.60) ("MF" "M8x1" 8 1.00 6.8 15 20 0 3.40) ("MF" "M9x0,6-Lemo" 9 0.6 8.4 18 22 0 4.20) ("MF" "M9x0,75" 9 0.75 8.2 18 22 0 4.10) ("MF" "M9x1" 9 1.00 8.0 18 22 0 4.00) ("MF" "M10x0,5" 10 0.50 9.5 20 24 0 4.75) ("MF" "M10x0,75" 10 0.75 9.2 20 24 0 4.60) ("MF" "M10x1" 10 1.00 9.0 20 24 0 4.50) ("MF" "M10x1,25" 10 1.25 8.5 18 24 0 4.25) ("MF" "M12x0,75" 12 0.75 11.2 22 28 0 5.6) ("MF" "M12x1" 12 1.00 10.8 22 28 0 5.40) ("MF" "M12x1,25" 12 1.25 10.5 22 28 0 5.25) ("MF" "M12x1,5" 12 1.5 10.5 22 28 0 5.25) ("MF" "M13x1" 13 1.00 12.0 26 30 0 6.00) ("MF" "M14x1" 14 1.00 13.0 28 32 0 6.50) ("MF" "M14x1,25" 14 1.25 12.8 28 32 0 6.40) ("MF" "M14x1,5" 14 1.50 12.5 28 32 0 6.25) ("MF" "M15x1" 15 1.00 14.0 30 34 0 7.00) ("MF" "M15x1,5" 15 1.50 13.5 30 34 0 6.75) ("MF" "M16x1" 16 1.00 14.8 30 36 0 7.40) ("MF" "M16x1,5" 16 1.50 14.6 30 36 0 7.30) ("MF" "M18x1" 18 1.00 17.0 36 41 0 8.50) ("MF" "M18x1,5" 18 1.50 16.5 36 41 0 8.25) ("MF" "M20x1" 20 1.00 18.8 36 45 0 9.40) ("MF" "M20x1,5" 20 1.50 18.2 36 45 0 9.10) ("MF" "M22x1" 22 1.00 21.0 44 48 0 10.50) ("MF" "M22x1,5" 22 1.50 20.5 44 48 0 10.25) ("MF" "M22x2" 22 2.00 20.0 44 48 0 10.00) ("MF" "M24x1" 24 1.00 23.0 48 52 0 11.50) ("MF" "M24x1,5" 24 1.50 22.5 48 52 0 11.25) ("MF" "M24x2" 24 2.00 22.0 48 52 0 11.00) ("MF" "M26x1,5" 26 1.50 24.5 50 55 0 12.25) ("MF" "M27x1,5" 27 1.50 25.5 52 57 0 12.75) ("MF" "M28x1,5" 28 1.50 26.5 55 60 0 13.25) ("MF" "M30x1" 30 1.00 29.0 60 66 0 14.50) ("MF" "M30x1,5" 30 1.00 28.5 60 66 0 14.25) ("MF" "M30x2" 30 1.00 28.0 60 66 0 14.00) ("inch" "1/4-20" (0.2500 :inch) (0.05000 :inch) (0.2010 :inch) 13 19 0 (0.1005 :inch)) ("inch" "1/4-28" (0.2500 :inch) (0.03571 :inch) (0.2130 :inch) 13 19 0 (0.1065 :inch)) ("inch" "3/8-16" (0.3750 :inch) (0.06250 :inch) (0.3125 :inch) 13 19 0 (0.15625 :inch)) ("inch" "3/8-24" (0.3750 :inch) (0.04167 :inch) (0.3320 :inch) 13 19 0 (0.1660 :inch)) ("inch" "1/2-13" (0.5000 :inch) (0.07692 :inch) (0.4219 :inch) 15 22 0 (0.21095 :inch)) ("inch" "1/2-20" (0.5000 :inch) (0.05000 :inch) (0.4530 :inch) 15 22 0 (0.2265 :inch)) ("inch" "3/4-10" (0.7500 :inch) (0.10000 :inch) (0.6562 :inch) 18 25 0 (0.3281 :inch)) ("inch" "3/4-16" (0.7500 :inch) (0.06250 :inch) (0.6875 :inch) 18 25 0 (0.34375 :inch)) ("inch" "1-8" (1.0000 :inch) (0.12500 :inch) (0.8750 :inch) 22 30 0 (0.4375 :inch)) ("inch" "1-12" (1.0000 :inch) (0.08333 :inch) (0.9219 :inch) 24 32 0 (0.46095 :inch)) ("BSP" "G 1/16" (0.3039 :inch) (0.0358 :inch) (0.2420 :inch) 10 15 0 (0.12199 :inch)) ("BSP" "G 1/8" (0.3831 :inch) (0.0358 :inch) (0.3464 :inch) 15 20 0 (0.17322 :inch)) ("BSP" "G 1/4" (0.5181 :inch) (0.0526 :inch) (0.4646 :inch) 20 25 0 (0.23228 :inch)) ("BSP" "G 3/8" (0.6559 :inch) (0.0526 :inch) (0.6004 :inch) 20 25 0 (0.30012 :inch)) ("BSP" "G 1/2" (0.8248 :inch) (0.0714 :inch) (0.7480 :inch) 30 40 0 (0.37402 :inch)) ("BSP" "G 3/4" (1.0409 :inch) (0.0714 :inch) (0.9646 :inch) 40 50 0 (0.48228 :inch)) ("BSP" "G 1" (1.3091 :inch) (0.0909 :inch) (1.2106 :inch) 50 65 0 (0.60531 :inch)) ("BSP" "G 1 1/2" (1.8819 :inch) (0.0909 :inch) (1.7906 :inch) 75 90 0 (0.89528 :inch)) ;*****************************************************************************************************************; ) ) (sd-create-logical-table "mach_adv_library-partially_threaded_blindhole-thread_dia-table" :columns '(:tap_units :tap :thread_dia :thread_size :drill_dia :tap_depth :drill_depth :chamfer_depth :drill_rad) :columnNames '("Gewindeart" "Bezeichng" "GewDrm" "GewSteigung" "BohrDrm" "GewTiefe" "BohrTiefe" "Fasentiefe" "Bohrradius") :keyColumns '(:tap_units :tap :thread_dia :thread_size :drill_dia :tap_depth :drill_depth :chamfer_depth :drill_rad) :secured nil :types '(:string :string :length :length :length :length :length :length :length) :units '(nil nil :mm :mm :mm :mm :mm :mm :mm) :contents (cher_werte_tabelle_sackgewinde) ) (sd-create-logical-table "mach_adv_library-partially_threaded_blindhole-tap-table" :columns '(:tap_units :tap :thread_dia :thread_size :drill_dia :tap_depth :drill_depth :chamfer_depth :drill_rad) :columnNames '("Gewindeart" "Bezeichng" "GewDrm" "GewSteigung" "BohrDrm" "GewTiefe" "BohrTiefe" "Fasentiefe" "Bohrradius") :keyColumns '(:tap_units :tap :thread_dia :thread_size :drill_dia :tap_depth :drill_depth :chamfer_depth :drill_rad) :secured nil :types '(:string :string :length :length :length :length :length :length :length) :units '(nil nil :mm :mm :mm :mm :mm :mm :mm) :contents (cher_werte_tabelle_sackgewinde) ) (sd-create-display-table "mach_adv_library-partially_threaded_blindhole-thread_dia-table" :tableTitle "Sackgewindebohrung" :logicalTable "mach_adv_library-partially_threaded_blindhole-thread_dia-table" :columns '(:tap :thread_dia :thread_size :drill_dia :tap_depth :drill_depth :chamfer_depth :drill_rad) :filterStatusLine nil :applyColumns '(:tap) :selectionMode :single-row :applyAction :default-tokens ) (sd-create-display-table "mach_adv_library-partially_threaded_blindhole-tap-table" :tableTitle "Sackgewindebohrung" :logicalTable "mach_adv_library-partially_threaded_blindhole-tap-table" :columns '(:tap :thread_dia :thread_size :drill_dia :tap_depth :drill_depth :chamfer_depth :drill_rad) :filterStatusLine nil :applyColumns '(:tap) :selectionMode :single-row :applyAction :default-tokens ) ; Flag-Anpassungen (MACHADV_SET_FEATURE_FLAG_TEXT :feature_type "MACH_ADV_LIBRARY_PARTIALLY_THREADED_BLINDHOLE" ; ohne Flag :feature_flagstring "" ; nur Gewindeflag ; :feature_flagstring "M{3}" ; Standard ; :feature_flagstring "M{3} Sackloch~%BT={2}GT={5}" ) ;..............................................................................;