如何获取COPY后的选择集实体

hbgsw

如题，如何获取COPY后的选择集实体，在论坛找了类似的帖子，好像都没有解决。

(setq ss (ssget));  选择集A
(command "copy" ss "" (getpoint)   '(0 0 0)); 如何获得类似代码执行后的选择集呢？

目前我知道笨点的方法就是遍历SS，然后得到一个复制一个，然后加入新的选择集，大家有没有更高效的方法？

hbgsw

速度好慢，求高效的代码。

2. ;原地拷贝，并返回一个新的选择集
   
3. (defun get_newss (ss / n ss2 en)
   
4.   (setq n -1
   
5.         ss2(ssadd))
   
6.   (while (setq en(ssname ss (setq n(1+ n))))
   
7.     (command "copy" en "" "@" "@")
   
8.     (ssadd(entlast) ss2)
   
9.   )
   
10.   ss2)
    
11. 
    
12. (setq ss (get_newss (ssget)))

;原地拷贝，并返回一个新的选择集<br /> (defun get_newss (ss / n ss2 en)<br />   (setq n -1<br />         ss2(ssadd))<br />   (while (setq en(ssname ss (setq n(1+ n))))<br />     (command "copy" en "" "@" "@")<br />     (ssadd(entlast) ss2)<br />   )<br />   ss2)<br /> <br /> (setq ss (get_newss (ssget)))

kozmosovia

两个方法：
1）拷贝前设定一个标记实体ENTLAST，拷贝后从标记实体EXTNEXT直到NIL
2）拷贝前选择所有实体为选择集A，拷贝后再全选，Remove选择集A

hbgsw

kozmosovia 发表于 2016-1-19 17:52
两个方法：
1）拷贝前设定一个标记实体ENTLAST，拷贝后从标记实体EXTNEXT直到NIL
2）拷贝前选择所有实体为 ...

这个想法不错，谢谢了，按照您这个思路在去写代码。。

hbgsw

2. ;;;============获得COPY后的实体集
   
3. (defun c:2t ( / en ss ss2)
   
4.   (setq en(entlast)
   
5.         ss2(ssadd))
   
6.   (while (or(not ss)(= ss ""))(setq ss(ssget)))
   
7.   (command "copy" ss "" pause pause)
   
8.   (while (setq en(entnext en))
   
9.     (ssadd en ss2)
   
10.    )
    
11.   (sssetfirst nil ss2)
    
12.   (princ)
    
13. )

;;;============获得COPY后的实体集<br /> (defun c:2t ( / en ss ss2)<br />   (setq en(entlast)<br />         ss2(ssadd))<br />   (while (or(not ss)(= ss ""))(setq ss(ssget)))<br />   (command "copy" ss "" pause pause)<br />   (while (setq en(entnext en))<br />     (ssadd en ss2)<br />    )<br />   (sssetfirst nil ss2)<br />   (princ)<br /> )