求助：删除图层的问题

perdu · 发表于 2004-4-6 13:55:00

我现在的图中有好多图层，分别是数字命名的，如：1002 ，1003，2001
如何用lisp写一段程序删除，以1，或者2开头的图层那？？
谢谢

meflying · 发表于 2004-4-6 15:07:00

(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 · 发表于 2004-4-6 16:40:00

如果删除的层不是很多，命令行直接输入这个也可以
(command "erase" (ssget "x" '((8 . "1003"))) "")

meflying · 发表于 2004-4-6 16:44:00

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

perdu · 发表于 2004-4-6 16:47:00

谢谢了
No unreferenced layers found.
怎么包这个啊，好像图层也没有删除调那？

meflying · 发表于 2004-4-6 17:15:00

crane_QS · 发表于 2004-4-6 17:30:00

哦,你是想光删图层啊?!
我以为是删除图层里的图了,呵呵~误会了

wjm3 · 发表于 2004-4-7 00:26:00

存在对象的图层是不能直接用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本文件不存在  层,请确认!")) (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  层存在" (itoa dellay_obj_len) "个对象!"))
   (initget "Yes No")
   (setq ans (getkword "继续Yes / 取消No :"))
   (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  层已删除!"))
   (prompt "\n程序版次: V1.0    开发人员:wjm3    完成日期:2004年03月01日")
   (prin1)
   )    ;;;end file

meflying · 发表于 2004-4-7 09:50:00

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

求助：删除图层的问题

发表回复

精选推荐

浏览过的版块