原地复制图元的三种方法

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

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

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

;图元原地复制的四种方法给朋友们分享lisp原地复制图元的三种方法  请大家测试，如果还有好的方法也请大家补充，谢谢！
方法一  (command-s "copy" (car(entsel)) "" "" "")
方法二  (entmakex(entget(car(entsel))))
方法三  (vla-copy(vlax-ename->vla-object(car(entsel))))
方法四  (command "copybase" '(0 0 0) (ssget) "" "PASTECLIP" '(0 0 0))

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

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

演示图：

源码：

;;原位复制指定层所有对象至新层（做底图） By:ypeng 2018年4月13日
(defun c:cop (/ ent)
(SETQ ent (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

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

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

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

账号		自动登录	找回密码
密码			注册

[经验] 原地复制图元的三种方法

本帖子中包含更多资源