;; ;;---- die Anpassung der Dialoge im Machining Advisor erfolgt ;;---- im Paket ':cad-cam-link-customization' ;; (in-package :cad-cam-link-customization) ;; ;;---- Um die Integration Kit Funktionalität nutzen zu können, müssen Sie das ;; Paket 'oli' verwenden, das die Funktionen für das Integration Kit enthält ;;---- und für Open-Lisp-Interface steht ;; (use-package :oli) ;; ;;---- Weitere Informationen zu den unten aufgeführten Tabellennamen oder Funktionsnamen ;; entnehmen Sie bitte der ;;Liste der Tabellen- und Funktionsnamen. ;;---- Nun werden die Inhalte der Gewindetabelle im;; Machining Advisor geändert (d.h. ersetzt) ;; Wird der Klassenname "TappedHoles" verwendet, verwendet der Machining Advisor ;; diese Tabelle für alle Gewindebohrungen, solange keine bestimmten Tabellen ;; für einzelne Gewindebohrungen wie "PartiallyThreadedThroughHoles" bestehen ;; Vorbehalt: Die Tabellennamen müssen mit einem Kleinbuchstaben beginnen! ;; Die Spalten enthalten folgende Daten: ;; ;; 1. Spaltenname : Gewindeeinheiten ;; Schlüssel : :tap_units ;; Typ : string { ;; "inch" :inch ;; "metric" :metric ;; "BSF" :bsf ;; "BSW" :bsw ;; "BSP" :bsp ;; "UNC" :unc ;; "UNF" :unf ;; "NPT" :npt ;; "Rp" :pipe_rp ;; "G" :pipe_g ;; "JIS_B_0203" :pipe_jis_b_0203 ;; "PG" :pipe_pg ;; "MF" :metric_fine ;; "Trapezoid" :trapezoid ;; "FlatTrapezoid" :flat_tapezoid ;; "Saw" :saw ;; "Round" :round ;; "Round_Mining" :round_mining ;; "Edison" :edison ;; } ;; Einheit : null ;; ;; 2. Spaltenname : Gewindedurchmesser-ID ;; Schlüssel : :thread_dia_id ;; Typ : string ;; Einheit : null ;; ;; 3. Spaltenname : Bohrradius (Radius des Führungslochs) ;; Schlüssel : :drill_rad ;; Typ : :length ;; Einheit : :mm ;; ;; 4. Spaltenname : Gewinderadius (Radius des Nenndurchmessers der Bohrung) ;; Schlüssel : :tap_rad ;; Typ : :length ;; Einheit : :mm ;; ;; 5. Spaltenname : Gewindegröße (Höhe oder Steigung des Gewindes) ;; Schlüssel : :thread_size ;; Typ : :length ;; Einheit : :mm ;; ;; 6. Spaltenname : Fasenradius (Außenradius der Fase) ;; Schlüssel : :cham_rad ;; Typ : :length ;; Einheit : :mm ;; ;; 7. Spaltenname : Standard-Gewindespiel (etwa 6-fache Gewindehöhe) ;; Schlüssel : :std_tap_clearance ;; Typ : :length ;; Einheit : :mm ;; ;; 8. Spaltenname : Gewindegänge ;; Schlüssel : :thread_size ;; Typ : :number ;; Einheit : null ;; ;; 9. Spaltenname : Nenndurchmesser Rohr ;; Schlüssel : :nominal_pipe_dia ;; Typ : :length ;; Einheit : :mm ;; ;; 10. Spaltenname : Gewinde-TPI (Höhe oder Steigung des Gewindes in Threads per Inch) ;; Schlüssel : :thread_tpi ;; Typ : :number ;; Einheit : null ;; ;; 11. Spaltenname : Benenner Gewinde-TPI ;; Schlüssel : :thread_tpi_num ;; Typ : :number ;; Einheit : null ;; ;; 12. Spaltenname : Nenner Gewinde-TPI ;; Schlüssel : :thread_tpi_den ;; Typ : :number ;; Einheit : null ;; ;; weitere Informationen zu "sd-change-logical-table-contents" ;; entnehmen Sie bitte der Dokumentation zum SolidDesigner Integration Kit ;; ;; Wie im Beispiel erkennbar, können Sie die Einheiten der Spalten neu definieren und ;; zu diesem Zweck vorher spezifizieren. Sie können die Einheiten allerdings für jeden Eintrag überschreiben, indem Sie eine LISP-Liste ;; mit einem Wert und einem Einheitenschlüsselwort festlegen. ;; ;; Im Folgenden wird eine Besonderheit der Gewindetabelle dargestellt. Aus Gründen ;; der Kompatibilität mit älteren Versionen von Machining Advisor muss die Tabelle ;; zweimal mit denselben Inhalten gefüllt werden ;; Tabelle 1: "mach_adv_library-tappedholes-tap-table" ;; Tabelle 2: "mach_adv_library-tappedholes-thread_dia-table" ;; Bis zu SolidDesigner 09.0x war nur die Tabelle "tap" erforderlich ;; spätere Versionen erfordern die Tabelle "thread_dia", die angezeigt wird, ;; sobald im Hintergrund die Schaltfläche "thread_dia" sowie die Tabelle "tap" aktiviert werden, ;; um Gewindebohrungen aus Rev 09.0x zu verarbeiten. ;; ;;---- Die Zeilen bis einschließlich "16-2" repräsentieren die Tabelle, wie sie in Version 11.50 von Machining Advisor bereitgestellt wurde. ;; (let ( (table-content '( ;; [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] ;;ZOLLGEWINDE Gewindeeinheiten Gewindebezeichnung Bohrradius Gewinderadius Steigung Fasenradius Gewindelänge Gangzahl Rohr-Nenndruchmesser Gewinde-TPI Benenner Gewinde-TPI Nenner Gewinde-TPI ; ("inch" "#4-40" (0.0445 :inch) (0.056 :inch) 0.0 (0.0675 :inch) (0.15 :inch) 1 0.0 40 0 1 ) ; ("inch" "#5-40" (0.05075 :inch) (0.0625 :inch) 0.0 (0.074 :inch) (0.15 :inch) 1 0.0 40 0 1 ) ; ("inch" "#6-32" (0.05325 :inch) (0.069 :inch) 0.0 (0.08325 :inch) (0.188 :inch) 1 0.0 32 0 1 ) ; ("inch" "#8-32" (0.068 :inch) (0.082 :inch) 0.0 (0.09625 :inch) (0.188 :inch) 1 0.0 32 0 1 ) ; ("inch" "#10-24" (0.0735 :inch) (0.095 :inch) 0.0 (0.11425 :inch) (0.25 :inch) 1 0.0 24 0 1 ) ; ("inch" "#10-32" (0.0795 :inch) (0.095 :inch) 0.0 (0.10925 :inch) (0.188 :inch) 1 0.0 32 0 1 ) ; ("inch" "#12-24" (0.0885 :inch) (0.108 :inch) 0.0 (0.12725 :inch) (0.25 :inch) 1 0.0 24 0 1 ) ; ("inch" "#12-28" (0.09 :inch) (0.108 :inch) 0.0 (0.12725 :inch) (0.215 :inch) 1 0.0 28 0 1 ) ; ("inch" "1/4-20" (0.1005 :inch) (0.125 :inch) 0.0 (0.148 :inch) (0.300 :inch) 1 0.0 20 0 1 ) ; ("inch" "1/4-28" (0.1065 :inch) (0.125 :inch) 0.0 (0.14125 :inch) (0.215 :inch) 1 0.0 28 0 1 ) ; ("inch" "5/16-18" (0.1285 :inch) (0.15625 :inch) 0.0 (0.1815 :inch) (0.333 :inch) 1 0.0 18 0 1 ) ; ("inch" "5/16-24" (0.132 :inch) (0.15625 :inch) 0.0 (0.17525 :inch) (0.25 :inch) 1 0.0 24 0 1 ) ; ("inch" "3/8-16" (0.15625 :inch) (0.1875 :inch) 0.0 (0.216 :inch) (0.375 :inch) 1 0.0 16 0 1 ) ; ("inch" "3/8-24" (0.166 :inch) (0.1875 :inch) 0.0 (0.20675 :inch) (0.25 :inch) 1 0.0 24 0 1 ) ; ("inch" "7/16-14" (0.184 :inch) (0.21875 :inch) 0.0 (0.2515 :inch) (0.429 :inch) 1 0.0 14 0 1 ) ; ("inch" "7/16-20" (0.1953 :inch) (0.21875 :inch) 0.0 (0.2415 :inch) (0.300 :inch) 1 0.0 20 0 1 ) ; ("inch" "1/2-13" (0.21095 :inch) (0.25 :inch) 0.0 (0.2855 :inch) (0.462 :inch) 1 0.0 13 0 1 ) ; ("inch" "1/2-20" (0.2265 :inch) (0.25 :inch) 0.0 (0.273 :inch) (0.300 :inch) 1 0.0 20 0 1 ) ; ("inch" "9/16-12" (0.2422 :inch) (0.28125 :inch) 0.0 (0.3195 :inch) (0.500 :inch) 1 0.0 12 0 1 ) ; ("inch" "9/16-18" (0.2578 :inch) (0.28125 :inch) 0.0 (0.3065 :inch) (0.333 :inch) 1 0.0 18 0 1 ) ; ("inch" "5/8-11" (0.2656 :inch) (0.3125 :inch) 0.0 (0.3545 :inch) (0.546 :inch) 1 0.0 11 0 1 ) ; ("inch" "5/8-18" (0.28905 :inch) (0.3125 :inch) 0.0 (0.338 :inch) (0.333 :inch) 1 0.0 18 0 1 ) ; ("inch" "3/4-10" (0.3281 :inch) (0.375 :inch) 0.0 (0.421 :inch) (0.600 :inch) 1 0.0 10 0 1 ) ; ("inch" "3/4-16" (0.34375 :inch) (0.375 :inch) 0.0 (0.4035 :inch) (0.375 :inch) 1 0.0 16 0 1 ) ; ("inch" "7/8-9" (0.3828 :inch) (0.4375 :inch) 0.0 (0.4885 :inch) (0.667 :inch) 1 0.0 9 0 1 ) ; ("inch" "7/8-14" (0.40625 :inch) (0.4375 :inch) 0.0 (0.4705 :inch) (0.429 :inch) 1 0.0 14 0 1 ) ; ("inch" "1-8" (0.4375 :inch) (0.5 :inch) 0.0 (0.5575 :inch) (0.750 :inch) 1 0.0 8 0 1 ) ; ("inch" "1-12" (0.46095 :inch) (0.5 :inch) 0.0 (0.5375 :inch) (0.500 :inch) 1 0.0 12 0 1 ) ("inch" "G 1/8 (28 Gang/Zoll)" 4.4 4.864 0.907 4.8640 8 1 3.1375 28 0 1 ) ("inch" "G 1/4 (19 Gang/Zoll)" 5.9 6.5785 1.337 6.5785 12 1 6.350 19 0 1 ) ("inch" "G 3/8 (19 Gang/Zoll)" 7.475 8.331 1.337 8.331 12 1 9.525 19 0 1 ) ("inch" "G 1/2 (14 Gang/Zoll)" 9.3155 10.4775 1.814 10.4775 14 1 12.70 14 0 1 ) ;; [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] ;;METRISCH-REGEL Gewindeeinheiten Gewindebezeichnung Bohrungsradius Nenn-Radius Steigung Fasenradius Gewindelänge Gangzahl Rohr-Nenndruchmesser Gewinde-TPI Benenner Gewinde-TPI Nenner Gewinde-TPI ("metric" "M 1 x 0.5 Regel" 0.3465 0.5 0.5 0.5 1.5 1 0.0 0 0 1 ) ("metric" "M 1.2 x 0.25 Regel" 0.4465 0.6 0.25 0.6 1.5 1 0.0 0 0 1 ) ("metric" "M 1.6 x 0.35 Regel" 0.585 0.8 0.35 0.8 2.1 1 0.0 0 0 1 ) ("metric" "M 2 x 0.4 Regel" 0.7545 1.0 0.4 1.0 2.4 1 0.0 0 0 1 ) ("metric" "M 2.2 x 0.45 Regel" 0.824 1.1 0.45 1.1 2.7 1 0.0 0 0 1 ) ("metric" "M 2.5 x 0.45 Regel" 0.974 1.25 0.45 1.25 2.7 1 0.0 0 0 1 ) ("metric" "M 3 x 0.5 Regel" 1.1935 1.5 0.5 1.5 3.0 1 0.0 0 0 1 ) ("metric" "M 4 x 0.7 Regel" 1.5705 2.0 0.7 2.0 4.2 1 0.0 0 0 1 ) ("metric" "M 5 x 0.8 Regel" 2.0095 2.5 0.8 2.5 4.8 1 0.0 0 0 1 ) ("metric" "M 6 x 1 Regel" 2.3865 3.0 1.0 3.0 6.0 1 0.0 0 0 1 ) ("metric" "M 8 x 1.25 Regel" 3.233 4.0 1.25 4.0 7.5 1 0.0 0 0 1 ) ("metric" "M 10 x 1.5 Regel" 4.08 5.0 1.5 5.0 9.0 1 0.0 0 0 1 ) ("metric" "M 12 x 1.75 Regel" 4.9265 6.0 1.75 6.0 10.5 1 0.0 0 0 1 ) ("metric" "M 14 x 2 Regel" 5.773 7.0 2.0 7.0 12.0 1 0.0 0 0 1 ) ("metric" "M 16 x 2 Regel" 6.773 8.0 2.0 8.0 12.0 1 0.0 0 0 1 ) ("metric" "M 18 x 2.5 Regel" 7.4965 9.0 2.5 9.0 15.0 1 0.0 0 0 1 ) ("metric" "M 20 x 2.5 Regel" 8.4665 10.0 2.5 10.0 15.0 1 0.0 0 0 1 ) ("metric" "M 24 x 3 Regel" 10.1595 12.0 3.0 12.0 18.0 1 0.0 0 0 1 ) ("metric" "M 30 x 3.5 Regel" 12.853 15.0 3.5 15.0 21.0 1 0.0 0 0 1 ) ("metric" "M 36 x 4 Regel" 15.5465 18.0 4.0 18.0 24.0 1 0.0 0 0 1 ) ("metric" "M 42 x 4.5 Regel" 18.2395 21.0 4.5 21.0 27.0 1 0.0 0 0 1 ) ;; [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] ;;METRISCH-FEIN Gewindeeinheiten Gewindebezeichnung Bohrungsradius Nenn-Radius Steigung Fasenradius Gewindelänge Gangzahl Rohr-Nenndruchmesser Gewinde-TPI Benenner Gewinde-TPI Nenner Gewinde-TPI ("MF" "M 4 x 0.5 Feingew." 1.7295 2 0.5 2.00 3.0 1 0.0 0 0 1 ) ("MF" "M 5 x 0.5 Feingew." 2.2295 2.5 0.5 2.50 3.0 1 0.0 0 0 1 ) ("MF" "M 6 x 0.5 Feingew." 2.7295 3.0 0.5 3.0 3.0 1 0.0 0 0 1 ) ("MF" "M 6 x 0.75 Feingew." 2.6 3.0 0.75 3.00 4.5 1 0.0 0 0 1 ) ("MF" "M 8 x 0.5 Feingew." 3.7295 4.0 0.5 4.00 3.0 1 0.0 0 0 1 ) ("MF" "M 8 x 0.75 Feingew." 3.6 4.0 0.75 4.00 4.5 1 0.0 0 0 1 ) ("MF" "M 8 x 1 Feingew." 3.5 4.0 1.0 4.00 6.0 1 0.0 0 0 1 ) ("MF" "M 10 x 0.5 Feingew." 4.7295 5.0 0.5 5.00 3.0 1 0.0 0 0 1 ) ("MF" "M 10 x 0.75 Feingew." 4.6 5.0 0.75 5.00 4.5 1 0.0 0 0 1 ) ("MF" "M 10 x 1.0 Feingew." 4.5 5.0 1.0 5.00 6.0 1 0.0 0 0 1 ) ("MF" "M 10 x 1.25 Feingew." 4.35 5.0 1.25 5.00 7.5 1 0.0 0 0 1 ) ("MF" "M 12 x 1.0 Feingew." 5.5 6.0 1.0 6.00 6.0 1 0.0 0 0 1 ) ("MF" "M 12 x 1.25 Feingew." 5.35 6.0 1.25 6.00 7.5 1 0.0 0 0 1 ) ("MF" "M 12 x 1.5 Feingew." 5.25 6.0 1.5 6.00 9.0 1 0.0 0 0 1 ) ("MF" "M 14 x 1.0 Feingew." 6.5 7.0 1.0 7.00 6.0 1 0.0 0 0 1 ) ("MF" "M 14 x 1.25 Feingew." 6.35 7.0 1.25 7.00 7.5 1 0.0 0 0 1 ) ("MF" "M 14 x 1.5 Feingew." 6.25 7.0 1.5 7.00 9.0 1 0.0 0 0 1 ) ("MF" "M 16 x 1.0 Feingew." 7.5 8.0 1.0 8.00 6.0 1 0.0 0 0 1 ) ("MF" "M 16 x 1.5 Feingew." 7.25 8.0 1.5 8.00 9.0 1 0.0 0 0 1 ) ("MF" "M 18 x 1.0 Feingew." 8.5 9.0 1.0 9.00 6.0 1 0.0 0 0 1 ) ("MF" "M 18 x 1.5 Feingew." 8.25 9.0 1.5 9.00 9.0 1 0.0 0 0 1 ) ("MF" "M 18 x 2.0 Feingew." 7.9175 9.0 2.0 9.00 12.0 1 0.0 0 0 1 ) ("MF" "M 20 x 1.0 Feingew." 9.5 10.0 1.0 10.00 6.0 1 0.0 0 0 1 ) ("MF" "M 20 x 1.5 Feingew." 9.25 10.0 1.5 10.00 9.0 1 0.0 0 0 1 ) ("MF" "M 20 x 2.0 Feingew." 8.9175 10.0 2.0 10.00 12.0 1 0.0 0 0 1 ) ("MF" "M 22 x 1 Feingew." 10.5 11.0 1.0 10.5 6.0 1 0.0 0 0 1 ) ("MF" "M 22 x 1.5 Feingew." 10.25 11.0 1.5 10.25 9.0 1 0.0 0 0 1 ) ("MF" "M 22 x 2.0 Feingew." 10.0 11.0 2.0 10.0 12.0 1 0.0 0 0 1 ) ("MF" "M 24 x 1 Feingew." 11.5 12.0 1.0 11.5 6.0 1 0.0 0 0 1 ) ("MF" "M 24 x 1.5 Feingew." 11.25 12.0 1.5 11.25 9.0 1 0.0 0 0 1 ) ("MF" "M 24 x 2.0 Feingew." 11.0 12.0 2.0 11.0 12.0 1 0.0 0 0 1 ) ("MF" "M 25 x 1.5 Feingew." 11.75 12.5 1.5 12.5 12.0 1 0.0 0 0 1 ) ("MF" "M 30 x 1.5 Feingew." 13.5 15.0 1.5 13.5 9.0 1 0.0 0 0 1 ) ("MF" "M 36 x 1.5 Feingew." 17.25 18.0 1.5 17.25 9.0 1 0.0 0 0 1 ) ("MF" "M 42 x 1.5 Feingew." 20.250 21.0 1.5 21.0 27.0 1 0.0 0 0 1 ) ("MF" "M 48 x 1.5 Feingew." 23.250 24.0 1.5 24.0 27.0 1 0.0 0 0 1 ) ("MF" "M 300 x 4 Feingew." 148.0 150.0 1.5 148.0 24.0 1 0.0 0 0 1 ) );;end table-content )) (sd-change-logical-table-contents "mach_adv_library-tappedholes-tap-table" :units '(null null :mm :mm :mm :mm :mm null :mm null null null) :contents table-content ) (sd-change-logical-table-contents "mach_adv_library-tappedholes-thread_dia-table" :units '(null null :mm :mm :mm :mm :mm null :mm null null null) :contents table-content ) )