原地复制图元的三种方法

ljfzx

这个帖子不回对不起自己！我想我是一天也不能离开

andyhua

回复一下，看看

小毛草

(command "copy" ss "" "non" '(0 0) "non" '(0 0))

被风吹走的灰尘

回复看教学！！

sy78wpl

谢谢分享，非常不错！！！

陶小明

学习一下复制图元的方法，谢谢

magicheno

感谢大佬分享~、

czb203

做什么用呢   

wosiguwozai0830

看看是什么呢

灬北方狼灬

以前写的一段功能和楼主所说有点类似，我用的COPYTOLAYER复制对象到指定层，上个图表演一下。

演示图：





源码：

1. ;;原位复制指定层所有对象至新层（做底图） By:ypeng 2018年4月13日
   
2. (defun c:cop (/ ent)
   
3.   (SETQ  ent (SSGET "x"
   
4.        (list
   
5.          (cons 8
   
6.          (cdr
   
7.            (assoc 8
   
8.             (entget (setq ent (car (entsel "\n选择复制图层所属对象:"))))
   
9.            )
   
10.          )
    
11.          )
    
12.        )
    
13.       )
    
14.   );选择对象
    
15.   
    
16.   (command "layer" "m" "FF-Bottom floor" "c" "138" "" "l" "DASH" "" "");新建指定图层
    
17.   (command "COPYTOLAYER" ent "" "FF-Bottom floor" "");原位复制到指定层
    
18.   (princ)
    
19. )

;;原位复制指定层所有对象至新层（做底图） By:ypeng 2018年4月13日<br /> (defun c:cop (/ ent)<br />   (SETQ  ent (SSGET "x"<br />        (list<br />          (cons 8<br />          (cdr<br />            (assoc 8<br />             (entget (setq ent (car (entsel "\n选择复制图层所属对象:"))))<br />            )<br />          )<br />          )<br />        )<br />       )<br />   );选择对象<br />   <br />   (command "layer" "m" "FF-Bottom floor" "c" "138" "" "l" "DASH" "" "");新建指定图层<br />   (command "COPYTOLAYER" ent "" "FF-Bottom floor" "");原位复制到指定层<br />   (princ)<br /> )