yu960312 发表于 2024-9-29 19:45:32

生成图元副本的方法


[*];;创建图元副本
[*](defun C:DEMO( / ss )
[*](vl-load-com)
[*](setvar "cmdecho" 0)
[*](setq ss(entsel "\n选择多段线:"))
[*];;1
[*](vl-cmdf "COPY" SS "" "" "")
[*](setq en_1 (entlast))
[*]
[*];;2
[*](setq en_2 (entmakex (entget (car ss))))
[*]
[*];; ......
[*](princ)
[*])
[*];;还有没有其他的方法

寒潮大冬瓜 发表于 2024-10-1 07:42:10

我自己写了一个在复制图元的同时→可以给这个备份图元换个图层名！有点麻烦，准备参照“(vlax-vla-object->ename (vla-Copy (vlax-ename->vla-object (car (entsel "\n选择图元")))))”再优化一下！

xiaocainiao 发表于 2024-9-29 21:29:06

(setq en (car(entsel"\n选择图元")))
(setq en1 (vlax-vla-object->ename (vla-Copy (vlax-ename->vla-object en))))

vitalgg 发表于 2024-9-29 20:25:39


(vla-copy (e2o(car(entsel))))




http://bbs.mjtd.com/data/attachment/forum/202409/24/214927kize9bamimb4c40v.png

yu960312 发表于 2024-9-30 09:17:36

vitalgg 发表于 2024-9-29 20:25


又学到了一招
页: [1]
查看完整版本: 生成图元副本的方法