通过rgb得到索引颜色

xxd0109

如何通过程序得到rgb的索引，比如rgb（255，0，0）的索引值是1。谢谢。

请各位帮助，请回答或者给我发信tanj@ustc.edu.cn

alin

Sub test()
Dim col As New AcadAcCmColor
Call col.SetRGB(255, 0, 0)
MsgBox col.ColorIndex
End Sub

xxd0109

出现自动化错误的提示，在vb中使用