1.语法简单2.功能函数强大3.撰写的环境不挑剔4.直译式程式5.横跨AutoCAD各作业平台
工具/原料
电脑一台，性能能玩游戏就行
方法/步骤
1、桌面，右键，新建一个记事本文件，然后改为：单线变双线.lsp（注意扩展名）。
2、;单线变双线------颍骈城茇---------------------------MainProgram---------------------------------(defunc多唉捋胝:x2(/ssvssdist)(vl-load-com)(princ"\n单线变双线\n选择要变双的曲线:")(setqss(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-forobjvss(vla-offsetobjdist)(vla-offsetobj(-0dist)))(command"erase"ss""))
3、把上面的代码复制到第一步建立的文件（单线变双线.lsp）中保存。
4、接下来你可以选择下面任何一种加载方式打开觊皱筠桡CAD2012，直接将单线变双线.lsp文件拖到autocad绘图区即可打开CAD20吭稿荔徊12，工具-->AutoLISP-->加载.....，找到上个步骤制作好的文件，点“加载”，下面会显示“已成功加载……”，表示加载成功。
5、最后来测试一下，随意画一条直线，输入命令x2。接下来按命令提示操作就可以了，是不是很有趣呢，当然这里只是做了一个小演示，功能远不于此，希望对你有用o(∩_∩)o...