Difference between revisions of "ForceColorArray"
From scripting
(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...") |
(No difference)
|
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