MultiRotate

From scripting
Jump to: navigation, search
Function MultiRotate(Obj1 As Variant, RotCount As Integer, RotAngle As Double, CurSet As HybridBody, NameStr As String) As Variant
Dim RotArr()
ReDim RotArr(RotCount - 1)
Dim RotSet As HybridBody
Set RotSet = CurSet.HybridBodies.Add
RotSet.Name = NameStr & "_SET"
For X = 1 To RotCount
    StatusBarShort X, RotCount - 1, "MultiRotation...   "
    
    Set RotArr(X - 1) = MyHSFactory.AddNewRotate(Obj1, AxisLine, RotAngle * X)
    RotSet.AppendHybridShape RotArr(X - 1)
    RotArr(X - 1).Name = NameStr & Format(X + 1, "00") & "_WRF"
    IsUpdatable RotArr(X - 1)
    ForceColorObjUgly RotArr(X - 1), 40, 40, 39, 6, 1000, 1, 1000
    'MyHSFactory.GSMVisibility RotArr(X - 1), 0
Next X
MultiRotate = RotArr
End Function