MultiRotate

From scripting
Revision as of 19:36, 24 April 2017 by Nickpisca (talk | contribs) (Created page with " 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)...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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