lihuixun 发表于 2005-10-2 22:52:00

求删除图层lsp程序

   那位有删除选种物体所在的层的lsp程序

至今没学会 发表于 2021-4-17 16:45:25

wei209 发表于 2005-10-7 22:14
点什么删什么层
请高手指点！
;启动命令　ＤＥ

你这个文件可以删掉，层还在呀:Q

blue123 发表于 2005-10-3 21:41:00

命令: overkill

wmz 发表于 2005-10-4 10:01:00

blue123发表于2005-10-3 21:41:00static/image/common/back.gif命令: overkill

请问大侠,这overkill是个什么命令呀?怎么用呢?<BR>

xshrimp 发表于 2005-10-4 10:16:00

express中有此命令。仔细看看。

wmz 发表于 2005-10-4 10:39:00

可是,这express我也不知道.请明示!

lihuixun 发表于 2005-10-5 19:04:00

是cad的扩展工具，网上有下

wei209 发表于 2005-10-5 20:52:00

<P>想法,先锁定全部图层 打开要删除的图层&nbsp;&nbsp;清除 打开所有图层 清层 完成!</P>
<P>LISP在写 过几天贴上!</P>

wei209 发表于 2005-10-7 22:14:00

<P>点什么删什么层</P>
<P>请高手指点！</P>
<P>;启动命令　ＤＥ</P>
<P>(defun c:de()<BR>(command"layer""on""*""")<BR>(prompt"　******209制作******&nbsp;&nbsp;&nbsp; 点取要删除的一个图层:")<BR>(setq a (ssget))<BR>(if (not a)(command"layer""u""*""""")<BR>&nbsp;(progn<BR>&nbsp;(command"layer""lo""*""")<BR>&nbsp;(setq mumer 0)<BR>&nbsp; (setq tysm (sslength a))<BR>&nbsp;&nbsp; (repeat tysm<BR>&nbsp;&nbsp; (setq ty1 (ssname a mumer))<BR>&nbsp;&nbsp; (setq sj1 (entget ty1))<BR>&nbsp;&nbsp; (setq tc1 (cdr(assoc 8 sj1)))<BR>&nbsp;&nbsp; (command"layer""u"tc1"")<BR>&nbsp;&nbsp; (command"erase""all""")<BR>&nbsp;&nbsp; (command"layer""u""*""")<BR>&nbsp;&nbsp; (setq mumer (1+ mumer))<BR>&nbsp; )<BR>&nbsp;)<BR>)<BR>(command"purge""all" "" "no")<BR>(princ)<BR>)</P>

lihuixun 发表于 2005-10-8 00:10:00

很好，可以吧多余的图层也删了，谢谢

无痕 发表于 2005-10-8 04:39:00

块定义实体的图层处理！
页: [1] 2
查看完整版本: 求删除图层lsp程序