|#
;;
;;---- 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.
;;
;;
#|