cad2012 lsp教程

1、桌面，右键，新建一个记事本文件，然后改为： 单线变双线.lsp （注意扩展名）。

2、;单线变双线

--------------------------------- Main Program ---------------------------------

(defun c:x2 (/ ss vss dist)

(vl-load-com)

(princ "\n单线变双线 \n选择要变双的曲线:")

(setq ss (ssget '((0 . "Arc,Circle,Ellipse,Line,LwPolyline,Polyline,Spline,XLine")) )

vss (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))

dist (getdist "\n输入偏移距离:"))

(vlax-for obj vss (vla-offset obj dist)(vla-offset obj (- 0 dist)))

(command "erase" ss"" )

)

3、把上面的代码复制到第一步建立的文件（单线变双线.lsp ）中保存。

4、接下来你可以选择下面任何一种加载方式

1、打开CAD2012，直接将 单线变双线.lsp 文件拖到叮够autocad绘图区即可

2、打开CAD2012，工具-->AutoLISP-->加载.....，找到上个步骤制作好塑丽霸的文件，点“加载”，下面会显示“已成功加载……”，表示加载成功。

5、最后来测试一下，随意画一条直线，输入离秤命令x2。接下来按命令提示操作就可以了，是不是很有趣呢，当然这里只是做了一个小演示，功能远不于此，希望对你有用o(∩_∩)o...