CAD切换标注样式的LISP

工具autolist，visual，LISP编辑器，可以切换标注样式。lisp语言适用于cad二次开发，你可以通过lisp语言编程来增加自己想要但是通用模块里没有的命令，比如你想画个螺钉，但是cad通用模块中不提供这个命令，这贺兄时候你就可以通过lisp语言编程编写一个画螺哪拍世钉的命令，在画图过程中，你只需要输入命令，然后输入螺钉的基本参数就可以很快画出一个螺钉。李肢

(defun c:try( / p)定义命令行命令“try”，定义局部变量“p”

(setq p (getpoint "from point: "))利用交互获得一个点，将该点坐标存入变量“p”当中

(command "PLINE")利用命令行启动“PLINE”多段线命令，

(while p循环开宏弯兄始，当p不为蔽袭空（即交互时一直给出下一点）时，无限循环。闹仿

(command p)将p的值（用户给出或选定的坐标点）输入至命令行，做为“PLINE”命令的参数。

(setq p (getpoint "to point: "))获取下一点坐标，重新存入变量p中

)

(command)等同于按下空格或回车键，用于结束“PLINE”命令

)

将A建成块，比如命令该块的名称为A0

然后对B进行定距等分，定距等分的命令为me

在提示中注意看，我们设定距离为25，插液肆入块，块名称为刚才我们建的那个A0

这样就可以快速对B完成你想要的

另外，在对A进行建块的时候要注宴老意指定基晌埋升点

最好指定A的中点为基点

---