[LISP函数]：删除指定图层包括该图层中的所有物体的LISP

saintdog

主题：删除指定图层包括该图层中的所有物体。
命令：KP
说明：删除指定图层（必需未锁定、未冻结）
在ACAD2K、14版本下使用。

eachy

对删除块内指定层的实体用api很容易办到：

1. 
   
2. xdrx_entity_delete
   
3. 
   
4. 功    能：删除当前空间或者块定义中的实体
   
5. 
   
6. 调用格式：(xdrx_entity_delete <实体名或者选择集>)
   
7. 
   
8. 返 回 值：成功返回T
   
9. 
   
10. 说    明：实体可以是块中的实体

复制代码

eachy

可以多选的层删除

2. (defun c:dla (/ ss counter e l s)
   
3.   (princ "\n 删除所选物体所在图层上的所有物体...")
   
4.   (setq ss (ssget))
   
5.   (setq counter 0)
   
6.   (while
   
7.     (setq e (ssname ss counter))
   
8.      (setq l (cdr (assoc 8 (entget e))))
   
9.      (setq S (ssget "X" (list (cons 8 l))))
   
10.      (progn
    
11.        (command "erase" s "")
    
12.      )
    
13.      (setq counter (+ counter 1))
    
14.      (prompt (strcat "\n\t删除..." """ l "层" """))
    
15.      (princ)
    
16.   )
    
17. )

(defun c:dla (/ ss counter e l s)<br />   (princ "\n 删除所选物体所在图层上的所有物体...")<br />   (setq ss (ssget))<br />   (setq counter 0)<br />   (while<br />     (setq e (ssname ss counter))<br />      (setq l (cdr (assoc 8 (entget e))))<br />      (setq S (ssget "X" (list (cons 8 l))))<br />      (progn<br />        (command "erase" s "")<br />      )<br />      (setq counter (+ counter 1))<br />      (prompt (strcat "\n\t删除..." """ l "层" """))<br />      (princ)<br />   )<br /> )

LUCAS

;;;这样不就好多了吗?
(defun C:KP (/ L)
  (setq L (strcase (getstring "\nEnter layer to delete:")))
  (command "_.ERASE" (ssget "X" (list (cons 8 L))) "")
  (princ)
)

e2002

最初由 LUCAS 发布
[B];;;这样不就好多了吗?
(defun C:KP (/ L)
  (setq L (strcase (getstring "\nEnter layer to delete:")))
  (command "_.ERASE" (ssget "X" (list (cons 8 L))) "")
  (princ)
) [/B]

这样只能删除当前Space中指定层上的对象...,如果确实需要删除此层,还必需判断:
1. 非当前Space中是否有此层上的对象
2. 各Block中是否有此层上的对象

YueFeng

这个用选择选择过滤器不好吗？

fylinwater

由于我发的帖子少所以不能下载附件  不知道这里讨论的原代码是什么
但我看到这里讨论的代码  好象对定义在这个层里的块一点没办法  
  其实要删除指定层的东西只要先用图层隔离然后全部框选就可以删除了  何必多创造一个命令呢

cnxycxd

看看

zykch

eachy 发表于 2002-2-2 20:18

谢谢，编了一下午，不如你几句话

xdcad9819

学习学习学习学习学习学习学习学习学习学习