ForceColorObjUgly
From scripting
Sub ForceColorObjUgly(InputObj As Variant, R As Integer, G As Integer, B As Integer, LineTypeNo As Integer, PointTypeNo As Integer, ThicknessNo As Integer, TransparencyVal as Integer) Dim VizProp As VisPropertySet Set VizProp = MySel.VisProperties If MySel.Count <> 0 Then MySel.Clear End If MySel.Add InputObj 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 If TransparencyVal <> 1000 Then VizProp.SetVisibleOpacity TransparencyVal, 1 End If MySel.Clear End Sub