乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 31|回复: 2

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

[复制链接]

68

主题

177

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
449
发表于 2006-4-19 22:31:00 | 显示全部楼层 |阅读模式
请问以下的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
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2006-4-20 14:59:00 | 显示全部楼层
[WEB]http://www.mccad.net/object/acad2004/idh_accmcolor_object.htm[/WEB]
回复

使用道具 举报

68

主题

177

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
449
发表于 2006-4-21 11:05:00 | 显示全部楼层
Thank you 版主,改天请你到大酒店
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-5 16:05 , Processed in 0.934563 second(s), 58 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表