求删除图层lsp程序

lihuixun

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

至今没学会

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

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

blue123

命令: overkill

wmz

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

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

xshrimp

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

wmz

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

lihuixun

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

wei209

想法,先锁定全部图层 打开要删除的图层  清除 打开所有图层 清层 完成!

LISP在写 过几天贴上!

wei209

点什么删什么层

请高手指点！

;启动命令　ＤＥ

(defun c:de()
(command"layer""on""*""")
(prompt"　******209制作******    点取要删除的一个图层:")
(setq a (ssget))
(if (not a)(command"layer""u""*""""")
 (progn
 (command"layer""lo""*""")
 (setq mumer 0)
  (setq tysm (sslength a))
   (repeat tysm
   (setq ty1 (ssname a mumer))
   (setq sj1 (entget ty1))
   (setq tc1 (cdr(assoc 8 sj1)))
   (command"layer""u"tc1"")
   (command"erase""all""")
   (command"layer""u""*""")
   (setq mumer (1+ mumer))
  )
 )
)
(command"purge""all" "" "no")
(princ)
)

lihuixun

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

无痕

块定义实体的图层处理！