Difference between revisions of "ForceColorArrayUgly"

Latest revision as of 05:35, 22 April 2017

Sub ForceColorArrayUgly(InputArray As Variant, R As Integer, G As Integer, B As Integer, LineTypeNo As Integer, PointTypeNo As Integer, ThicknessNo As Integer)
Dim VizProp As VisPropertySet
Set VizProp = MySel.VisProperties
 
If MySel.Count <> 0 Then
    MySel.Clear
End If

For gg = 0 To UBound(InputArray) - 1
    'StatusBarShort gg, UBound(InputArray) - 1, "Coloring Elements...  "
    MySel.Add InputArray(gg)
    If R <> 1000 Or G <> 1000 Or B <> 1000 Then
         VizProp.SetVisibleColor R, G, B, 1
    End If
    If LineTypeNo <> 1000 Then
        VizProp.SetVisibleLineType LineTypeNo, 1
    End If
    If PointTypeNo <> 1000 Then
        VizProp.SetSymbolType PointTypeNo
    End If
    If ThicknessNo <> 1000 Then
        VizProp.SetVisibleWidth ThicknessNo, 1
    End If
    MySel.Clear
Next gg
End Sub