Customizing default values for variables (here Chamfer Depth)
This is an example file showing the possibility to customize the Countersunk Blind Hole dialog box in the Creo Elements/Direct Machining Advisor by using the Creo Elements/Direct Modeling Integration Kit. This example is maintained according to the actual status of Creo Elements/Direct Machining Advisor. The file is not guaranteed to work with future releases of Creo Elements/Direct Machining Advisor without the changes that are required in absolutely necessary cases.
No guarantee is implied that the values conform to the standard.
|# ;; ;;---- 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 list of table and function names. ;; ;;---- When the dialog dealing with Countersunk Blind Holes is called ;; it will not set an initial value for the chamfer depth. You may ;; want to specify a default chamfer depth according to your ;; company standards. ;; ;; In order to achieve this, there is a callback interface ;; provided, which allows material or site based reasoning. ;; ;;---- The function called by that callback interface has to have the ;;---- signature as follows (defun get-mach_adv_library-countersunk_blindhole-chamfer_depth-default-fnc (&key part library feature-long-name feature-class-name feature-variable feature-subvariable ) ;; ;;---- your code to determine the chamfer_depth ;; ;; ;; ;; ;; ;;---- ;;---- for demonstation purposes only a fixed value 2.0 ) ;; ;;---- this function will be called by Machining Advisor with ;; ;; :part { SEL_ITEM } ;; :library { STRING [ "mach_adv_library" ]} ;; :feature-long-name { STRING } ;; :feature-class-name { STRING } <pre>;; ;;---- and is expected to return a single longfloat (or whatever the variable needs). ;; ;; #|