|# ;; ;;---- 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
データテーブルのカスタマイズ ;; ;; Caveat: The names of the table has to be given in lowercase letters ! ;; ;; The colums contain the following data : ;; 1. Column Name : Description ;; Key : :description (not expected at all by the dialog) ;; Type : string ;; Unit : nil ;; 2. Column Name : Hole diameter ;; Key : :drill_dia ;; Type : :length ;; Unit : :mm ;; 3. Column Name : Hole Diameter Tolerance ;; Key : :drill_dia_tol ;; Type : :list ;; Unit : nil ;; 4. Column Name : Chamfer Depth ;; Key : :chamfer_depth ;; Type : :length ;; Unit : :mm ;; 5. Column Name : Side Surface Quality ;; Key : :side_sf_qual ;; Type : :list ;; Unit : nil ;; ;; for further information about the "sd-create-logical-table" please ;; refer to the documentation of the Creo Elements/Direct Modeling 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. ;;---- ;; (sd-create-logical-table "mach_adv_library-countersunk_throughhole-drill_dia-table" :columns '( :drill_dia_id :drill_dia :drill_dia_tol :chamfer_depth :side_sf_qual) :columnNames '( "Description" "Hole Diameter" "Hole Diameter Tolerance" "Chamfer Depth" "Side Surface Quality") :types '( :string :length :list :length :list) :units '( nil :mm nil :mm :nil) :contents '( ( "16f" 17.0 (:value 17 :tol_type :iso :iso "H12") .4 (:iso :N5) ) ( "16m" 18.0 (:value 18 :tol_type :iso :iso "H13") .5 (:ra_type :ra_value :ra_value 0.0625) ) ( "16g" 19.0 (:value 19 :tol_type :iso :iso "H14") .5 (:ra_type :ra_value :ra_value 0.125) ) ) ) ;; ;;---- 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-countersunk_throughhole-drill_dia-table" :tableTitle "Countersunk" :logicalTable "mach_adv_library-countersunk_throughhole-drill_dia-table" :columns '(:description :drill_dia) :filterStatusLine nil :applyColumns '(:drill_dia) :selectionMode :single-row :applyAction :default-tokens ) ;;