Difference between revisions of "MultiRotate"
From scripting
(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)...") |
(No difference)
|
Latest revision as of 19:36, 24 April 2017
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