复制、旋转、，
我使用以下代码复制图形中的所有块，然后依次旋转、缩放和粘贴到同一个图形上（如图例）。我需要选择属性为“num”的所有块，甚至是重复的块。
大约有100个块，过程“相当”缓慢。我可以“看到”复制和粘贴过程正在进行。
欢迎任何有助于加快进程的帮助。
非常感谢。
[编辑]：Express工具具有类似的命令MOROCO！！！
或者更改这些命令调用
...
(command "._copy" ent "" ins_pt_ent pt1 "") ; copy
(setq ent (entlast))
(command "_.change" ent "" pt1 rot_pt_ent) ; rotate
(command "_.scale" ent "" pt1 2 "") ; scale
...
activeX建议
(setq o (vla-copy (setq o (vlax-ename->vla-object ent))))
(vla-put-Rotation o rot_pt_ent)
(apply 'vla-move (vl-list* o (mapcar 'vlax-3d-point (list ins_pt_ent (trans pt1 1 0)))))
(foreach x '(XScaleFactor YScaleFactor)
(vlax-put o x (*(vlax-get o x) 2.))
)
而且
3
如果。。。程序
命令ATTSYNC（如果需要）
[编辑]：ssget也可以添加'（66.1），
最后记住本地化
页:
[1]