ForceColorArray

From scripting
Revision as of 05:35, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " 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...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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