2008打螺丝孔简化程式

OSD里面有自带的打螺孔及开槽的工具,不过用起来相当的麻烦,要输入很多的参数,特别是打沉头孔.各位做机械的朋友都知道,一台设备设计下来,最多的就是螺丝孔,所以想把它简化一下:比如M4的,我就只需要做三个按钮"沉头","螺牙带深度","螺牙贯穿",操作的时候按下按钮,再选一个点就可以了,顺便说一下:我试着用录制宏做了,录出来的宏如下
(set_pers_context "Toolbar-relative" create_custom_feature "mach_adv_library_threaded_throughhole" set_pers_context "Toolbar-relative" mach_adv_library_threaded_throughhole :action :create :sel_face
"*** 屏幕点选 ***"
:thread_dia :tap "6-1" :chamfer_depth 0 complete )
这个宏运行到需要屏幕选取的时候就出错了,再这里跟大家讨论一下,看看哪位高人了解OSD里面的选择函数(就比如AUTOCAD LISP 里面的"GETPOINT"之类)支个招啊,谢谢!

不太熟悉，

可以，但無法復選，每次都要點NEXT,才可以打下一個孔，期望改善.

這個能做成LSP文件嗎？是否可以設成快捷鍵，當然如果是LSP文件就已經滿足了.{:soso_e113:}

有谁有螺丝孔的二次开发程序啊，共享一下

这个程式能做完善，做自动化和模具的朋友一定会爱死你们的，呵呵

谢谢CFAN,试了一下,在最后加上:SEL_FACE就更完美了,可以直接先面了.不过我们打孔都要给中心,选了面后还要选一个中点,现在还没有法解决,试了加一个:CEN_PNT,但不能和:SEL_FACE同时用,程式运行时只认最后一个.不过不重要了,现在已经解决了我的问题.
再次感谢,

测试了一下,先把Recorder内容全部删除，然后输入如下指令即可，完成按中键即可。
mach_adv_library_counterbored_throughhole :action :create
:sink_depth 10 :hole_dia 10 :sink_dia 20

16# CFan_OSD

楼上兄弟请看:
set_pers_context "Toolbar-relative" create_custom_feature "mach_adv_library_counterbored_throughhole" set_pers_context "Toolbar-relative" mach_adv_library_counterbored_throughhole :action :create :sel_face
:sink_depth 5.5 :hole_dia 5.5 :yes :sink_dia 10
以上宏是录制的我要打一个M5的沉头孔,录制时的情况如图1,运行的时候就变成这如图2,选择一个面后如图3,如我在上面所说,":sink_depth 5.5 :hole_dia 5.5 :yes :sink_dia 10 " 这一句并没有被执行.

应该不会，要么就是参数输入的类型不对。
要么你把你的要求用图表示出来，我来看看。
你要做什么样子的沉头螺丝孔
我对打螺孔不熟