(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

在绘图过程中，用户可根据需要，用AutoLISP方便地定义出实用的绘图命令，从而提高绘图速度。当然，还可以将自定义的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