Тема: не получается с selectionSet
Доброго времени суток. Я пытаюсь при помощи selectionSet выбрать обекты, и повернуть их на определенный угол, но у меня ничего не выходит, поворачивается только один объект! Как это исправить?
Sub test()
' установить угол профиля
Dim edSolidObj As Acad3DSolid
Dim retAngleDbl As Double
Dim ssetObj As AcadSelectionSet
Dim objUtil As AcadUtility
Dim objSelSet As AcadSelectionSet
Dim objSelCol As AcadSelectionSets
Dim pt1(2) As Double
Dim pt2(2) As Double
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 0
dataValue(0) = "3dSOLID"
' если колекция есть, то удаляем
Set objUtil = ThisDrawing.Utility
Set objSelCol = ThisDrawing.SelectionSets
For Each objSelSet In objSelCol
If objSelSet.Name = "copyrotate" Then
objSelSet.Delete
Exit For
End If
Next
' создаем новый объект
Set objSelSet = objSelCol.Add("copyrotate")
Call objSelSet.SelectOnScreen(gpCode, dataValue)
' узнаем угол поворота
retAngleDbl = ThisDrawing.Utility.GetReal("Введите угол поворта профиля: ")
pt1(0) = 0
pt1(1) = 0
pt1(2) = 0
pt2(0) = 10
pt2(1) = 0
pt2(2) = 0
On Error Resume Next
For Each edSolidObj In ssetObj
Call edSolidObj.Rotate3D(pt1, pt2, retAngleDbl * GvcPi / 180)
Next edSolidObj
End Sub
