(command "pline" pt11 pt12 pt13 pt14 "");画螺纹线
(command "pline" pt12 pt13 "")
(setq pt21 (polar pc (+ (/ pi 2.0) ang) (+ r1 10.0));计算剖面线边界上的点坐标
pt22 (polar pt21 ang (+ l2 15.0));可根据需要设置剖面线边界的大小
pt23 (polar pt22 (- ang (/ pi 2.0)) (+ d 20.0))
pt24 (polar pc (+ (* pi 1.5) ang) (+ r1 10.0)))
(command "pline" pt21 pt22 pt23 pt24 "c");生成剖面线的边界
(setq s2 (ssget "l"))
(command "zoom" "a")
(command "hatch" "U" "45" "2" "n" s2 s1 "");画剖面线,形成消隐螺纹孔
);end
三、圆的中心线绘制命令“zxx”
在绘图中，若需要绘制已知圆的中心线，可调用下面的程序。加载后在命令行中键入“zxx”并回车，只要按提示选择圆并输入中心线的延伸长度，即可自动生成该圆的中心线，并可连续绘制。代码示例如下所示。
(defun C:zxx()
(setvar "osmode" 512)
(setq loop T)
(while loop
(setq pc (getpoint "\n 请用鼠标选择圆:"))
(setq s(ssget pc))
(if s
(progn
(setq s1(entget(ssname s 0))
pt0(cdr(assoc 10 s1));获得圆心坐标
r (cdr(assoc 40 s1));获得圆的半径
)
(setq l (getreal "\n 请输入中心线延伸长度(mm):"))
(command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")
(command "ltscale" 8);设置线型比例
(command "line"
(polar pt0 (- pi) (+ r l));画中心线
(polar pt0 0 (+ r l)) "")
(command "line" (polar pt0 (-(/ pi 2.0)) (+ r l))
(polar pt0 (/ pi 2.0) (+ r l)) "")
(command "layer" "s" 0 "")
);progn
(setq loop nil)
);if
);while
);end defun
用户还可以将自定义的AutoCAD命令定制成用户菜单或工具栏,以方便使用。如，将上面介绍的几个绘图命令定制到下拉菜单中的方法是：打开AutoCAD安装目录下SUPPORT子目录中的ACAD.MNU文件，在***POP7项的最后加入下面内容，再加载已修改的菜单文件即可。
[--]
ID_User [键槽图绘制(jct)]^C^C_(if(not jct)(load "d:/Acad R14/jct.lip"));jct;^p
ID_User [螺纹孔绘制(lwk)]^C^C_(if(not lwk)(load "d:/Acad R14/lwk.lip"));lwk;^p
ID_User [中心线(zxx)]^C^C_(if(not zxx)(load "d:/Acad R14/zxx.lip"));zxx;^p
