将选择的对象拷贝到每一个图层

Lisphk

1. (defun c:c2a ( / idx lst lyn sel )
   
2.     (if (setq sel (ssget "_:L"))
   
3.         (progn
   
4.             (repeat (setq idx (sslength sel))
   
5.                 (setq idx (1- idx)
   
6.                       lst (cons (vlax-ename->vla-object (ssname sel idx)) lst)
   
7.                 )
   
8.             )
   
9.             (while (setq lay (tblnext "layer" (not lay)))
   
10.                 (if (wcmatch (setq lyn (cdr (assoc 2 lay))) "~*|*")
    
11.                     (foreach obj lst
    
12.                         (if (/= lyn (vla-get-layer obj))
    
13.                             (vla-put-layer (vla-copy obj) lyn)
    
14.                         )
    
15.                     )
    
16.                 )
    
17.             )
    
18.         )
    
19.     )
    
20.     (princ)
    
21. )
    
22. (vl-load-com) (princ)
    

(defun c:c2a ( / idx lst lyn sel )<br />     (if (setq sel (ssget "_:L"))<br />         (progn<br />             (repeat (setq idx (sslength sel))<br />                 (setq idx (1- idx)<br />                       lst (cons (vlax-ename->vla-object (ssname sel idx)) lst)<br />                 )<br />             )<br />             (while (setq lay (tblnext "layer" (not lay)))<br />                 (if (wcmatch (setq lyn (cdr (assoc 2 lay))) "~*|*")<br />                     (foreach obj lst<br />                         (if (/= lyn (vla-get-layer obj))<br />                             (vla-put-layer (vla-copy obj) lyn)<br />                         )<br />                     )<br />                 )<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br /> (vl-load-com) (princ)<br />

coverne

也来学习一下

tzfcn

为什么要这么做？有什么用处？