vba中如何对一整个选择集进行旋转？

等一个人咖啡 · 发表于 2022-7-24 23:00

vba中如何对一整个选择集进行旋转？

chixun99 · 发表于 2022-7-25 09:35

遍历选择集，每个图元使用rotate方法。

mikewolf2k · 发表于 2022-7-25 08:57

遍历，旋转

等一个人咖啡 · 发表于 2022-7-26 09:51

For ii = 0 To sset.Count - 1
sset.Item(ii).Rotate basePoint, rotationAngle
Next ii
确实是这样的
for each in 这个循环好像不行

chixun99 · 发表于 2022-7-26 11:48

Dim En As AcadEntity
For Each En In sSet
En.Rotate BasePoint, RotationAngle
Next
一样效果。

qwuiop789 · 发表于 2022-7-27 13:08

边历选择集，将每个元素旋转。raotaion

账号		自动登录	找回密码
密码			注册