Hi My Friends,
I want to define a command for making holes quickly, here is my code, SFace is the selected face, RePnt is the selected 3D point, They are correct.but I am running, the system prompt "parameter not fully defined", is a custom feature does not support Lisp?
Code:
(defun psd-make-hole(SFace YFace SNum)
(let (AllFace RePnt
(OwnerPart (sd-inq-parent-obj SFace))
(SFCenter (sd-vec-scale (sd-vec-add(sd-face-ll-pnt (sd-inq-face-geo SFace :Dest-space :global))(sd-face-ur-pnt (sd-inq-face-geo SFace :Dest-space :global))) 0.5)))
(setf AllFace (sd-call-cmds (get_selection :focus_type *sd-plane-seltype* :select :in_part OwnerPart :all_3d)))
(setf RePnt (sd-vec-translate SFCenter (sd-plane-normal(sd-inq-geo-props YFace :Dest-space :global)) (- (sd-call-cmds (measure_dist oint_surface SFCenter YFace)) (+ 4 (/ SNum 2)))))
;;The error occurred in the following code
(create_custom_feature mach_adv_library_countersunk_throughhole :action :create
:sel_face SFace
:cen_pnt RePnt
:axis (sd-plane-normal(sd-inq-geo-props SFaces :Dest-space :global))
:Drill_dia SNum
:chamfer_depth 0
:chamfer_angle 90
:back_chamfer_depth 0
:back_chamfer_angle 90
:name "hole")
)
)
Thanks
------------------
A mechanical engineer who loves to program
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP