Harry
04-13-2004, 12:16 AM
I want to make a routine to generate a blind hole.
I manage to make downprinted code but get stuck.
I get three error messages:
1) Given point is not on selected face
(even if i place a workplane on the face before calling the routine.)
2) You have specified an unexpected input value. (2 times)
Does this mean that a variable is of a wrong type?
3) Not all necessary inputs are specified. (n times)
I can not find in the documentation which inputs are mandatory, does anyone know?
(in-package :my-package)
(use-package :oli)
;-----------------------------------------------------------------------------
;load machining module
(load "CadCamAdapter")
(sd-defdialog 'place_blind_hole
:dialog-title "Place blind hole"
:variables '(
(UI_FACE
:value-type :face
:title "machining face"
:initial-value nil
)
(UI_STARTPOINT
:value-type :point-3d
:title "pick a point"
:initial-value nil
)
(UI_AXIS
:value-type :measure-direction
:title "set axis"
:initial-value nil
)
);variables
:ok-action
'(let*
(;local vars
)
(cad-cam-link-ui::MACH_ADV_LIBRARY_BLINDHOLE
:action :create
:SEL_FACE UI_FACE
:CEN_PNT UI_STARTPOINT
:AXIS UI_AXIS
:DRILL_DIA 5
:DRILL_DEPTH 15
:CONE_ANGLE 118
:NAME "TEST_HOLE"
:FLAG_DP off
:DIA_DP off
:DEPTH_DP off
);MACH_ADV_LIBRARY_BLINDHOLE
);let
)
I manage to make downprinted code but get stuck.
I get three error messages:
1) Given point is not on selected face
(even if i place a workplane on the face before calling the routine.)
2) You have specified an unexpected input value. (2 times)
Does this mean that a variable is of a wrong type?
3) Not all necessary inputs are specified. (n times)
I can not find in the documentation which inputs are mandatory, does anyone know?
(in-package :my-package)
(use-package :oli)
;-----------------------------------------------------------------------------
;load machining module
(load "CadCamAdapter")
(sd-defdialog 'place_blind_hole
:dialog-title "Place blind hole"
:variables '(
(UI_FACE
:value-type :face
:title "machining face"
:initial-value nil
)
(UI_STARTPOINT
:value-type :point-3d
:title "pick a point"
:initial-value nil
)
(UI_AXIS
:value-type :measure-direction
:title "set axis"
:initial-value nil
)
);variables
:ok-action
'(let*
(;local vars
)
(cad-cam-link-ui::MACH_ADV_LIBRARY_BLINDHOLE
:action :create
:SEL_FACE UI_FACE
:CEN_PNT UI_STARTPOINT
:AXIS UI_AXIS
:DRILL_DIA 5
:DRILL_DEPTH 15
:CONE_ANGLE 118
:NAME "TEST_HOLE"
:FLAG_DP off
:DIA_DP off
:DEPTH_DP off
);MACH_ADV_LIBRARY_BLINDHOLE
);let
)