欢迎来到天天文库
浏览记录
ID:34415470
大小:35.00 KB
页数:5页
时间:2019-03-05
《cad中lisp程序使用方法》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
CAD中LISP程序使用方法 2007-08-0619:13:32| 分类:学习园地|字号 订阅1.对于提供附件下载的,把附件下载就可以了2.对于提供的源LISP代码,把代码拷贝、粘贴到一个文件,自己起个名或者若程序里面注释推荐了文件名,就用推荐的,然后保存成扩展名是LSP的文件即可了。LISP程序使用方法:加载LISP1.可以使用APPLOAD命令,然后去找到要加载的LISP文件,加载即可。2.可以自己从文件管理器把LISP文件拖动到ACAD的图形窗口,也可以加载3.在命令行后用,(load"c:\temp\xxx.lsp")也可以加载,路径名请输入实际的路径。另:对于一个LSP程序,(defun后面的既是命令或者函数,一般程序应该有提示,若没有,标志符c:后面的单词是可以在ACAD下使用的命令,既可以在COMMAND:后面直接输入,即可执行。CAD快速切换图层LISP代码(方法2)给楼主发一个图层更改的lisp程序,按对应数字键就可以切换到相应的图层。很方便。0————01————OBJ2————6t3————SCETR。。。8————BORDER如果这些不是你想要的图层,将lisp用笔记本打开,把里边的OBJ,6t等图层名改为你想要的就可以了。以后要切换图层时,按相应的数字键即可。 (defunYH_chlayer(YH_layer/YH_S)(if(null(tblsearch"LAYER"YH_layer)) (entmake(list '(0."LAYER") '(100."AcDbSymbolTableRecord") '(100."AcDbLayerTableRecord") (cons2YH_layer) ;图层名称 '(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) )(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()(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)(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")(princ));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(/=gpnil)(command".change"gp"""p""c""5"""))(princ" OK")(princ));enddefunC:5;;数字6(defunC:6(/gp)(setvar"cmdecho"0)(princ" ★改变对象颜色为紫色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""6"""))(princ" OK")(princ));enddefunC:6;;数字7(defunC:7(/gp)(setvar"cmdecho"0)(princ" ★改变对象颜色为白色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""7"""))(princ" OK")(princ));enddefunC:7;;数字8(defunC:8(/gp)(setvar"cmdecho"0)(princ" ★改变对象颜色为深灰色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""8"""))(princ" OK")(princ));enddefunC:8;;数字9(defunC:9(/gp) (setvar"cmdecho"0)(princ" ★改变对象颜色为灰色★")(setqgp(ssget))(if(/=gpnil)(command".change"gp"""p""c""9"""))(princ" OK")(princ));enddefunC:9
此文档下载收益归作者所有
举报原因
联系方式
详细说明
内容无法转码请点击此处