|#
;;
;;---- 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 the Data table customization
;;
;;---- Now creating a new table to support the entry of RA values within Machining Advisor
;;
;;---- Using the class name "ra_max_val" will cause Machining Advisor to use
;; this table for all features as long as there are no special tables for
;; individual features
;; Caveat: The names of the table has to be given in lowercase letters !
;;
(sd-create-logical-table "mach_adv_library_ra_max_val-table"
:columns '(:ra_max_val)
:columnNames '("Ra max val")
:types '(:length)
:units '(:mm)
:contents '(
(0.025)
(0.0125)
(0.0063)
(0.0032)
(0.0016)
(0.0008)
(0.0004)
(0.0002)
(0.0001)
(0.000025)
)
)
;;
;;---- There must be a display table for each logical table,
;;---- else the table cannot be used at all.
;;
(sd-create-display-table "mach_adv_library_ra_max_val-table"
:tableTitle "Ra max val"
:logicalTable "mach_adv_library_ra_max_val-table"
:columns '(:ra_max_val)
:filterStatusLine nil
:applyColumns '(:ra_max_val)
:selectionMode :single-row
:applyAction :default-tokens
)
(sd-create-logical-table "mach_adv_library_ra_min_val-table"
:columns '(:ra_min_val)
:columnNames '("Ra min val")
:types '(:length)
:units '(:mm)
:contents '(
(0.025)
(0.0125)
(0.0063)
(0.0032)
(0.0016)
(0.0008)
(0.0004)
(0.0002)
(0.0001)
(0.000025)
)
)
(sd-create-display-table "mach_adv_library_ra_min_val-table"
:tableTitle "Ra min val"
:logicalTable "mach_adv_library_ra_min_val-table"
:columns '(:ra_min_val)
:filterStatusLine nil
:applyColumns '(:ra_min_val)
:selectionMode :single-row
:applyAction :default-tokens
)
(sd-create-logical-table "mach_adv_library_ra_value-table"
:columns '(:ra_value)
:columnNames '("Ra value")
:types '(:length)
:units '(:mm)
:contents '(
(0.025)
(0.0125)
(0.0063)
(0.0032)
(0.0016)
(0.0008)
(0.0004)
(0.0002)
(0.0001)
(0.000025)
)
)
(sd-create-display-table "mach_adv_library_ra_value-table"
:tableTitle "Ra value"
:logicalTable "mach_adv_library_ra_value-table"
:columns '(:ra_value)
:filterStatusLine nil
:applyColumns '(:ra_value)
:selectionMode :single-row
:applyAction :default-tokens
);;