guosheyang 发表于 2023-1-6 11:14:00

原地复制图元的三种方法

本帖最后由 guosheyang 于 2023-1-6 15:51 编辑

   给朋友们分享lisp原地复制图元的三种方法请大家测试，如果还有好的方法也请大家补充，谢谢！
   根据liunian0524网友的回复copybase的方法也加上

;图元原地复制的四种方法**** Hidden Message *****





灬北方狼灬 发表于 2023-1-9 11:43:00

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

演示图：





源码：
;;原位复制指定层所有对象至新层（做底图） By:ypeng 2018年4月13日
(defun c:cop (/ ent)
(SETQent (SSGET "x"
       (list
         (cons 8
         (cdr
         (assoc 8
            (entget (setq ent (car (entsel "\n选择复制图层所属对象:"))))
         )
         )
         )
       )
      )
);选择对象

(command "layer" "m" "FF-Bottom floor" "c" "138" "" "l" "DASH" "" "");新建指定图层
(command "COPYTOLAYER" ent "" "FF-Bottom floor" "");原位复制到指定层
(princ)
)


llsheng_73 发表于 2023-1-6 14:58:07

本帖最后由 llsheng_73 于 2023-1-6 15:01 编辑

原地复制图元的三种方法,实际上是2个办法，一个COPY一个ENTMAKE

kucha007 发表于 2023-1-6 11:24:09

好奇，回复看一下是什么好方法:lol

guosheyang 发表于 2023-1-6 11:27:04

老手可能知道这三种方法非老手 不一定三种都知道

cj52000 发表于 2023-1-6 11:51:11

看下，谢谢

qianzj 发表于 2023-1-6 12:20:29

做什么用呢               

wshx 发表于 2023-1-6 12:22:28

做什么用呢

ptime 发表于 2023-1-6 12:32:45

多谢分享！！！

永不言弃 发表于 2023-1-6 12:40:41

谢谢分享         

Atsai 发表于 2023-1-6 12:41:15

回复看教学！！

222808 发表于 2023-1-6 12:45:30

好奇，回复看一下是什么好方法
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 原地复制图元的三种方法