[编程交流] 线条颜色更改

Function ChangeColorOfLayouteight(strErrors)
Dim S99 As AcadSelectionSet
Dim Ftyp(5) As Integer
Dim errCount As Long
'Dim strErrors As String
Dim Fval(5) As Variant
Dim dEnd As Variant
'*'**************************************************************
'* Program Begins
'* Looks for outer contour of LO1 Doc. to Red
'**************************************************************
Ftyp(0) = -4: Fval(0) = "<AND"
'Ftyp(1) = -4: Fval(1) = "<OR"
Ftyp(1) = 0: Fval(1) = "LINE"
Ftyp(2) = 67: Fval(2) = "0"
Ftyp(3) = 5: Fval(3) = "BD8"
'Ftyp(5) = 5: Fval(5) = "BD8"
'Ftyp(6) = 5: Fval(6) = "C37"
'Ftyp(7) = 5: Fval(7) = "C36"
'Ftyp( 8 ) = 5: Fval( 8 ) = "C1F"
'Ftyp(9) = 5: Fval(9) = "C35"
'Ftyp(10) = 5: Fval(10) = "C34"
'Ftyp(11) = 5: Fval(11) = "C33"
'Ftyp(12) = 5: Fval(12) = "C32"
'Ftyp(13) = 5: Fval(13) = "C31"
'Ftyp(14) = 5: Fval(14) = "C30"
'Ftyp(15) = 5: Fval(15) = "C2F"
'Ftyp(16) = 5: Fval(16) = "C2E"
'Ftyp(17) = 5: Fval(17) = "C2D"
'Ftyp(1 8 ) = 5: Fval(1 8 ) = "C2C"
'Ftyp(19) = 5: Fval(19) = "C2B"
'Ftyp(4) = -4: Fval(4) = "OR>"
Ftyp(4) = -4: Fval(4) = "AND>"
'ThisDrawing.SelectionSets("S99").Delete
Set S99 = ThisDrawing.SelectionSets.Add("S99")
S99.Select acSelectionSetAll, , , Ftyp, Fval
If S99.Count > 0 Then
For errCount = 0 To S99.Count - 1
S99(errCount).color = acWhite
'S99(errCount) = "0.03"
Next errCount
End If
ThisDrawing.SelectionSets("S99").Delete
End Function