复制、旋转、，

sadhu · 发表于 2022-7-5 18:14:15

我使用以下代码复制图形中的所有块，然后依次旋转、缩放和粘贴到同一个图形上（如图例）。
我需要选择属性为“num”的所有块，甚至是重复的块。

大约有100个块，过程“相当”缓慢。我可以“看到”复制和粘贴过程正在进行。

欢迎任何有助于加快进程的帮助。

非常感谢。

hanhphuc · 发表于 2022-7-5 19:25:11

[编辑]：Express工具具有类似的命令MOROCO！！！

或者更改这些命令调用

copy


...
(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建议

copy


(setq o ([color="blue"]vla-copy[/color] (setq o (vlax-ename->vla-object ent))))
       ([color="blue"]vla-put-Rotation[/color] o rot_pt_ent)
       (apply '[color="blue"]vla-move[/color] (vl-list* o (mapcar 'vlax-3d-point (list ins_pt_ent (trans pt1 1 0)))))
(foreach x '([color="blue"]XScaleFactor YScaleFactor[/color])
 (vlax-put o x (*(vlax-get o x) 2.))
 )

而且

copy

如果。。。程序

命令ATTSYNC（如果需要）

[编辑]：ssget也可以添加'（66.1），
最后记住本地化

[编程交流] 复制、旋转、，

发表回复

精选推荐