如何复制b的子实体

taner · 发表于 2022-7-6 14:43:56

尊敬的先生：。

我想问一个问题，如何在不分解块的情况下复制块的子实体？

非常感谢。

stevsmith · 发表于 2022-7-6 14:58:36

打开块编辑器并使用简单的剪切和粘贴到新图形中？

jammie · 发表于 2022-7-6 14:59:40

Hi-taner公司

如果安装了express tools，请尝试NCOPY

从“快捷>块>复制嵌套对象”菜单中

taner · 发表于 2022-7-6 15:09:02

谢谢
我想知道是否有其他方法，使用vla方法怎么样？

ASMI · 发表于 2022-7-6 15:18:42

vla CopyObjects方法。这里是第7篇文章中将对象从MInsert块复制到模型空间的示例http://www.cadtutor.net/forum/showthread.php?t=20429

wizman · 发表于 2022-7-6 15:23:07

请尝试：

copy

(defun c:test (/ basept ent ent_data)
   (vl-load-com)
   (setq ent_data (entget (car (setq ent (nentsel)))))
   (setq basept (cdr (assoc 10 (entget (car (last ent))))))
   (vla-TransformBy
(vlax-ename->vla-object
    (entmakex ent_data)
) ;_ vlax-ename->vla-object
(vlax-tmatrix
    (list
        (list 1. 0. 0. (car basept))
        (list 0. 1. 0. (cadr basept))
        (list 0. 0. 1. (caddr basept))
        (list 0. 0. 0. 1.)
    ) ;_ list
) ;_ vlax-tmatrix
   ) ;_ vla-TransformBy
) ;_ defun

taner · 发表于 2022-7-6 15:31:00

（defun copy fmblk（/e el newent new entlst）
（同时）
（setq e（nentselp）“\n选择块内实体: "))
（=（长度e）4）
)
（setq el（entget（e车）））
（setq newent（entmakex el））
（vla transformby（vlax ename->vla object newent）（vlax tmatrix）
（caddr e）
)
)
（setq new entlst（cons newent new entlst））
)
新entlst
)