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