CAD中LISP程序使用方法.doc

《CAD中LISP程序使用方法.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CAD中LISP程序使用方法  2007-08-0619:13:32

2、  分类：学习园地

3、字号 订阅1.对于提供附件下载的，把附件下载就可以了2.对于提供的源LISP代码，把代码拷贝、粘贴到一个文件，自己起个名或者若程序里面注释推荐了文件名，就用推荐的，然后保存成扩展名是LSP的文件即可了。LISP程序使用方法：加载LISP1.可以使用APPLOAD命令，然后去找到要加载的LISP文件，加载即可。2.可以自己从文件管理器把LISP文件拖动到ACAD的图形窗口，也可以加载3.在命令行后用，(loa

4、d"c:\temp\xxx.lsp")也可以加载，路径名请输入实际的路径。另：对于一个LSP程序，(defun后面的既是命令或者函数，一般程序应该有提示，若没有，标志符c:后面的单词是可以在ACAD下使用的命令，既可以在COMMAND:后面直接输入，即可执行。CAD快速切换图层LISP代码（方法2）给楼主发一个图层更改的lisp程序，按对应数字键就可以切换到相应的图层。很方便。0————01————OBJ2————6t3————SCETR。。。8————BORDER如果这些不是你想要的图层，

5、将lisp用笔记本打开，把里边的OBJ，6t等图层名改为你想要的就可以了。以后要切换图层时，按相应的数字键即可。(defunYH_chlayer(YH_layer/YH_S)(if(null(tblsearch"LAYER"YH_layer))   (entmake(list       '(0."LAYER")       '(100."AcDbSymbolTableRecord")       '(100."AcDbLayerTableRecord")       (cons2YH_laye

6、r)         ;图层名称       '(70.0)                ;图层状态       '(62.7)                ;图层颜色       '(6."bylayer")         ;图层线型)     )   )(setqYH_S(cadr(ssgetfirst)))(ifYH_S   (command"CHPROP"YH_S"""la"YH_layer"c""bylayer""")   (setvar"clayer"YH_layer)   )

7、(princ))(defunc:0()(YH_chlayer"0"))(defunc:1()(YH_chlayer"OBJ"))(defunc:2()(YH_chlayer"6t"))(defunc:3()(YH_chlayer"SCETR"))(defunc:4()(YH_chlayer"HIDD"))(defunc:5()(YH_chlayer"DIM"))(defunc:6()(YH_chlayer"DASH"))(defunc:7()(YH_chlayer"TEXT"))(defunc:

8、8()(YH_chlayer"BORDER"))#Cad到上面一行为址，保存为lsp格式。LISP小程序,改变对象颜色;;数字1(defunC:1(/gp)(setvar"cmdecho"0)(princ"★改变对象颜色为红色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""1"""))(princ"OK")(princ));enddefunC:1;;数字2(defunC:2(/gp)(setvar"cmdecho"0)(

9、princ"★改变对象颜色为黄色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""2"""))(princ"OK")(princ));enddefunC:2;;数字3(defunC:3(/gp)(setvar"cmdecho"0)(princ"★改变对象颜色为绿色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""3"""))(princ"OK")(p

10、rinc));enddefunC:3;;数字4(defunC:4(/gp)(setvar"cmdecho"0)(princ"★改变对象颜色为青色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""4"""))(princ"OK")(princ));enddefunC:4;;数字5(defunC:5(/gp)(setvar"cmdecho"0)(princ"★改变对象颜色为蓝色★")(setqgp(ssget))(if(/