第一步,用记事本把以下内容保存为z0.lsp文件第二步,点击工具—AUTOLISP——加载——z0.lsp文件第三步,命令行输入z0,回车,选ALL,回车,所有不共面的线条全部归零。以下为记事本内容——(defunC:Z0(/SS1)(setvar"cmdecho"0)(if(setqSS1(ssget))(progn(command".undo""be")(princ"\n正在处理图形数据,请稍候...")(terpri)(command".ucs""w")(command".move"SS1
2024-01-17评论:0访问次数:685
请问CADautolisp二次开发怎么弄啊;;;灯管T4(defunC:T4206()用户输入T4206执行命令(不带任何参数)以加载并立即运行后续的程序。(graphscr)(setvar"cmdecho"0);;;命令行显示关闭(setqP1(getpoint"\n请指定灯管(T4206.5mm6W)放置位置:"));;;设定一个插入点P1,返回点(command"-INSERT""D:/YZ_ZCAD/TK/DGT/T4206.dwg""S""1"P1"0")在执行CAD标准命令时,可以在命令前面加
2024-01-04评论:访问次数:876
如何学习CAD的图层;;保留当前图层(defunC:A1()(setvar"cmdecho"0)(setqIN0)(setqLAnil)(setqSS(ssget"X"))为了帮助大家更好地理解,让我们一起了解一下这段代码的具体含义:“(setqDQTCM(getvar"CLAYER"))”。这段代码的作用是获取当前图层的名称,并将其赋值给变量DQTCM。这样,我们就可以在后续的操作中使用这个变量来引用当前图层。(if(/=SSnil)(progn(princ"\n正在处理图形数据,请稍候...")(re
2024-01-05评论:访问次数:268
CAD怎么自己编lisp程序做了隐藏和显示两个命令.我编写的简单,功能不太全.你看着用吧复制下列代码,创建acad.lsp.放在在CAD安装目录第一层文件夹下,可自动加载啊:;在命令行输入该命令hidsel,然后选择图元,结果没选的被改到隐藏层(defunC:hidsel(/all;所有图元xs;非隐藏图元yc;隐藏图元nnamdat)(setvar"CMDECHO"0);关闭命令回显(command"_layer""n""临时隐藏图层""")(command"_layer""off""临时隐藏图层"""
2024-01-08评论:访问次数:522