liushengk 发表于 2006-2-22 10:02:00

[VBA][请教VBA颜色与ACAD索引颜色换算]

（请教）我有一个设想： 把CAD里面实体的颜色用一个VBA对象如image的backcolor属性显示出来，遇到的问题时CAD实体颜色属于acdColor(1~255)，好像和backcolor属性的颜色值不是同一类型，请问有谁知道怎么换算，或者有其他什么方法可以实现该功能。Dim Ent As AcadText<BR>Dim C As ACAD_COLOR<BR>C = acRed<BR>Image1.BackColor = C&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '?????<BR>Ent.color = Image1.BackColor&nbsp; '???? (ent 已经获取得)<BR>Ent.Update

雪山飞狐_lzh 发表于 2006-2-22 19:20:00

http://www.vba.cn/object/acad2004/idh_accmcolor_object.htm
页: [1]
查看完整版本: [VBA][请教VBA颜色与ACAD索引颜色换算]