为什么图层的顔色不可以用rgb函数,小问题管理员请过目一下

yuangw1234

请问以下的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

雪山飞狐_lzh

[WEB]http://www.mccad.net/object/acad2004/idh_accmcolor_object.htm[/WEB]

yuangw1234

Thank you 版主，改天请你到大酒店