|#
;;
;;---- all customization of Dialogs belonging to Machining Advisor have to be
;;---- made within package ':cad-cam-link-customization'
;;
(in-package :cad-cam-link-customization)
;;
;;---- To use the Integration Kit functionality, you have to use the package 'oli'
;; which contains all the functions of the Integration Kit and stands for
;;---- Open-Lisp-Interface
;;
(use-package :oli)
;;
;;---- For more information about the table names or function names
;; mentioned below, please refer to Anpassung von Datentabellen.
;;
;;---- Now changing (i.e. replacing) contents of the tap-table of Machining Advisor
;; Using the class name "TappedHoles" will cause Machining Advisor to use
;; this table for all Tapped Holes as long as there are no special tables for
;; individual tapped holes like "PartiallyThreadedThroughHoles"
;; Caveat: The names of the table has to be given in lowercase letters !
;; The colums contain the following data :
;; 1. Column Name : Tap Units
;; Key : :tap_units
;; Type : 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
;; }
;; Unit : nil
;; 2. Column Name : Tap
;; Key : :thread_dia_id instead ;;     of :tap since %%ProductName%% 17.00 within the thread_dia-table
;; Type : string
;; Unit : nil
;; 3. Column Name : Drill Rad (the radius of the pilot hole)
;; Key : :drill_rad
;; Type : :length
;; Unit : :mm
;; 4. Column Name : Tap Rad (radius of the nominal diameter of the thread)
;; Key : :tap_rad
;; Type : :length
;; Unit : :mm
;; 5. Column Name : Thread Size (the pitch or thread lead of the thread)
;; Key : :thread_size
;; Type : :length
;; Unit : :mm
;; 6. Column Name : Chamfer Rad (the outer radius of the chamfer)
;; Key : :cham_rad
;; Type : :length
;; Unit : :mm
;; 7. Column Name : Standard Tap Clearance (approximately 6 times thread pitch)
;; Key : :std_tap_clearance
;; Type : :length
;; Unit : :mm
;; 8. Column Name : Thread Starts
;; Key : :thread_starts
;; Type : :number
;; Unit : nil
;; 9. Column Name : Nominal Pipe Dia
;; Key : :nominal_pipe_dia
;; Type : :length
;; Unit : :mm ;;
;; 10. Column Name : Thread TPI (the pitch or thread lead of the thread given in threads-per-inch)
;; Key : :thread_tpi
;; Type : :number
;; Unit : nil
;; 11. Column Name : Thread TPI nominator
;; Key : :thread_tpi_num
;; Type : :number
;; Unit : nil
;; 12. Column Name : Thread TPI denominator
;; Key : :thread_tpi_den
;; Type : :number
;; Unit : nil
;;
;; for further information about the "sd-insert-logical-table-row" please
;; refer to the documentation of the %%ProductName%% Integration Kit
;;
;; As you can see within the example, the units of the columns can be redefined and have to be
;; specified therefore, but you can override the units for every entry by specifying a LISP list
;; containing a value and a units keyword.
;;
;; This example adds the threads with diameter 20 - 64 to the table by adding one row at a
;; time. The result is the same table as within the first example. The content of the list
;; supplied as value for the key :content is the same as one line in the table of the first
;; example.
;; If you want to remove original lines you can use the corresponding function
;; 'sd-remove-logicial-table-row'
;;
;; A speciality of the tap-table is shown below as well. For compatibility
;; reasons with older versions of Machining Advisor, the tap table has to
;; be supplied twice with the same contents
;; table 1: "mach_adv_library-tappedholes-tap-table"
;; table 2: "mach_adv_library-tappedholes-thread_dia-table"
;; Up to %%ProductName%% 09.0x the "tap" table was the only one needed
;; later versions need the "thread_dia" table, which will be displayed
;; when pushing the thread_dia button and the "tap" table behind the scenes
;; to be able to process tapped holes from Rev 09.0x and to work properly
;; With %%ProductName%% 17.00 the need to implement both the "tap" table and the "thread_dia" table and to keep those synchronized has been mostly eliminated. It is only needed, if you have other dialogs using the threaded holes which specify the thread via the :tap parameter. The column key :tap has been replaced by :thread_dia_id within the "thread_dia" table.;;
;; This way is the method to use, if you want to add only some additional lines into the
;; tables supplied by Creo Elements/Direct or want to remove some of the values as they are not
;; used within your company.
;;
;; If you specify a imperial thread with a certain tpi value (eg. 40 tpi), you ought to specify the
;; :thread_size as 0.0 and :thread_tpi as 40, :thread_tpi_num as 0 and :thread_dpi_den as 1.
;; For UNC and NPT threads there are some threads defined as 4½ tpi or 11½ tpi, in this case the three
;; values will be "4 1 2" and "11 1 2".
;;
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "16-2")
:contents
'("metric" "20-2.5" 8.75 10.0 2.5 11.133 7.5 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "20-2.5")
:contents
'("metric" "24-3" 10.5 12.0 3.0 13.367 8.5 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "24-3")
:contents
'("metric" "30-3.5" 13.25 15.0 3.5 16.600 10.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "30-3.5")
:contents
'("metric" "36-4" 16 18.0 4.0 19.833 11.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "36-4")
:contents
'("metric" "42-4.5" 18.75 21.0 4.5 23.067 12.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "42-4.5")
:contents
'("metric" "48-5" 21.5 24.0 5.0 26.333 13.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "48-5")
:contents
'("metric" "56-5.5" 25.25 28.0 5.5 30.533 15.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-tap-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:tap "56-5.5")
:contents
'("metric" "64-6" 28.75 32.0 6.0 34.767 16.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id"16-2")
:contents
'("metric" "20-2.5" 8.75 10.0 2.5 11.133 7.5 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id "20-2.5")
:contents
'("metric" "24-3" 10.5 12.0 3.0 13.367 8.5 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id "24-3")
:contents
'("metric" "30-3.5" 13.25 15.0 3.5 16.600 10.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id "30-3.5")
:contents
'("metric" "36-4" 16 18.0 4.0 19.833 11.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id "36-4")
:contents
'("metric" "42-4.5" 18.75 21.0 4.5 23.067 12.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id "42-4.5")
:contents
'("metric" "48-5" 21.5 24.0 5.0 26.333 13.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id "48-5")
:contents
'("metric" "56-5.5" 25.25 28.0 5.5 30.533 15.0 1 0.0 0 0 1))
(sd-insert-logical-table-row "mach_adv_library-tappedholes-thread_dia-table"
:position :below-specific
:overwriteIfExists nil
:units '(nil nil :mm :mm :mm :mm :mm nil :mm nil nil nil)
:plist '(:thread_dia_id "56-5.5")
:contents
'("metric" "64-6" 28.75 32.0 6.0 34.767 16.0 1 0.0 0 0 1))
;;