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

liushengk

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

雪山飞狐_lzh

[WEB]http://www.vba.cn/object/acad2004/idh_accmcolor_object.htm[/WEB]