|# ;; ;;---- 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
データテーブルのカスタマイズ ;; ;;---- 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 );;