yuangw1234 发表于 2006-4-19 22:31:00

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

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

雪山飞狐_lzh 发表于 2006-4-20 14:59:00

http://www.mccad.net/object/acad2004/idh_accmcolor_object.htm

yuangw1234 发表于 2006-4-21 11:05:00

<P>Thank you 版主，改天请你到大酒店</P>
页: [1]
查看完整版本: 为什么图层的顔色不可以用rgb函数,小问题管理员请过目一下