生成图元副本的方法

yu960312

• ;;创建图元副本
• (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)
• )
• ;;还有没有其他的方法
  

寒潮大冬瓜

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

xiaocainiao

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

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

vitalgg

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

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

yu960312

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

又学到了一招