|
请问以下的RGB函数表达的图层颜色为什么都没有表示出来,而ac....表达方式都可以显示出来,多谢指教
Public Sub iso()
On Error Resume Next
Dim UP As AcadLayer, UB As AcadLayer, PH As AcadLayer, PPS As AcadLayer, PS As AcadLayer, DIE As AcadLayer
Dim LB As AcadLayer, LP As AcadLayer, U1 As AcadLayer, OH As AcadLayer
Set UP = ThisDrawing.Layers.Add("UP")
Set UB = ThisDrawing.Layers.Add("UB")
Set PH = ThisDrawing.Layers.Add("PH")
Set PPS = ThisDrawing.Layers.Add("PPS")
Set PS = ThisDrawing.Layers.Add("PS")
Set DIE = ThisDrawing.Layers.Add("DIE")
Set LB = ThisDrawing.Layers.Add("LB")
Set LP = ThisDrawing.Layers.Add("LP")
On Error Resume Next
UP.color = RGB(159, 127, 255)
UB.color = RGB(127, 255, 0)
PH.color = acGreen
PPS.color = RGB(255, 191, 0)
PS.color = acYellow
DIE.color = acWhite
LB.color = RGB(76, 152, 152)
LP.color = acBlue
End Sub
|
|