求助：删除图层的问题

perdu

我现在的图中有好多图层，分别是数字命名的，如：1002 ，1003，2001


如何用lisp写一段程序删除，以1，或者2开头的图层那？？


谢谢

wjm3

存在对象的图层是不能直接用purge删除的.请试试以下程序: (defun c:dellay(/ laye dellay_obj dellay_obj_len ans)
(setvar "cmdecho" 0)
(command "._layer" "t" 0 "on" 0 "u" 0 ""
"._clayer" 0)
(setq laye (getstring "\n请输入需删除的层码:"))
(if (= (tblsearch "layer" laye) nil) (progn (princ (strcat "\n本文件不存在 <" laye "> 层,请确认!")) (exit)))
(command "._layer" "t" laye "u" laye "")
(setq dellay_obj (ssget "x" (list (cons 8 laye))))
(if (/= dellay_obj nil)
(progn
(setq dellay_obj_len (sslength dellay_obj))
(princ (strcat "\n <" laye "> 层存在" (itoa dellay_obj_len) "个对象!"))
(initget "Yes No")
(setq ans (getkword "继续Yes / 取消No <N>:"))
(if (null ans) (setq ans "No"))
(if (= ans "No") (exit))
(command "._erase" "p" ""
"._purge" "la" laye "n"))
(command "._purge" "la" laye "n")
)
(prompt (strcat "\n <" laye "> 层已删除!"))
(prompt "\n程序版次: V1.0 开发人员:wjm3 完成日期:2004年03月01日")
(prin1)
) ;;;end file

meflying

(defun c:test( / lay name)
(setq lay nil)
(setvar "cmdecho" 0)
(while (setq lay (tblnext "layer" (not lay)))
(setq name (cdr (assoc 2 lay)))
(if (or (= (substr name 1 1) "1") (= (substr name 1 1) "2"))
(command "_.PURGE" "la" name "n")
)
)
(princ)
)

crane_QS

如果删除的层不是很多，命令行直接输入这个也可以


(command "erase"         (ssget "x" '((8 . "1003"))) "")

meflying

crane_QS发表于2004-4-6 16:40:00如果删除的层不是很多，命令行直接输入这个也可以 (command \"erase\" (ssget \"x\" '((8 . \"1003\"))) \"\")

这样能删除图层???你用的是什么系统?我从R12用到了2005,还从来没有发现这样也可以

perdu

谢谢了


No unreferenced layers found.


怎么包这个啊，好像图层也没有删除调那？

meflying

图

crane_QS

哦,你是想光删图层啊?!


我以为是删除图层里的图了,呵呵~误会了

meflying

我想楼主既然想删掉这些层,肯定这些层里已经没有东西了,而且如楼上的,要一个一个地输入层名,那还要程序做什么?LAYER命令已经相当方便了