[寻找]：請大大幫忙編個這樣的程序好嗎？

ljs026

要將圖層合併，合併到目標層後將原來圖層刪除！另一個是刪除一個層（包括層上的所有實體）

cqnj023

laytrans命令即可解决第1个问题

ljs026

可以幫編個程序嗎？

eachy

最初由 ljs026 发布
[B]可以幫編個程序嗎？ [/B]

2. 
   
3. (defun c:delLyrall (/ str e ss)
   
4.   (setvar "cmdecho" 0)
   
5.   (if (=
   
6.         (setq str (getstring "\n输入删除层名<回车拾取层实体>: "))
   
7.         ""
   
8.       )
   
9.     (progn
   
10.       (setq e (entsel "\n拾取要删除层上实体: "))
    
11.       (setq str (cdr (assoc 8 (entget (car e)))))
    
12.     )
    
13.   )
    
14.   (if (setq ss (ssget "x" (list (cons 8 str))))
    
15.     (progn
    
16.       (command ".erase" ss "")
    
17.       (command ".purger" "la" "*" "n")
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

<br /> (defun c:delLyrall (/ str e ss)<br />   (setvar "cmdecho" 0)<br />   (if (=<br />         (setq str (getstring "\n输入删除层名<回车拾取层实体>: "))<br />         ""<br />       )<br />     (progn<br />       (setq e (entsel "\n拾取要删除层上实体: "))<br />       (setq str (cdr (assoc 8 (entget (car e)))))<br />     )<br />   )<br />   (if (setq ss (ssget "x" (list (cons 8 str))))<br />     (progn<br />       (command ".erase" ss "")<br />       (command ".purger" "la" "*" "n")<br />     )<br />   )<br />   (princ)<br /> )<br />