Difference between revisions of "ForceColorArray"

Latest revision as of 05:35, 22 April 2017

Sub ForceColorArray(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
    MySel.Add InputArray(gg)
Next 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
End Sub