Customizing the default cone angle of the drill tool tip
This is an example file showing the possibility to customize the 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) ;; ;;---- When a dialog dealing with Blind Holes it will set an initial ;; value for the cone angle of the drill tool tip. ;; With normal tools and "normal" steel, this angle is 118 degrees, ;; but with with other materials (e.g. stainless steel or ;; aluminium) you will want to use other drill tools with different ;; cone angles for performance reasons ;; ;; 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-DEFAULT-DRILL-CONE-ANGLE (&key part library feature-long-name feature-class-name ) ;; ;;---- your code to determine the tool tip cone angle ;; ;; ;; ;; ;; ;;---- ;;---- for demonstation purposes only a fixed value (sd-deg-to-rad 90.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 } ;; ;;---- and is expected to return a single longfloat. ;; ;; #|