Sub Example_ColorIndex()
    ' Этот пример рисует круг и возвращает самый близкий цветовой индекс.

    Dim col As New AcadAcCmColor
    Call col.SetRGB(125, 175, 235)
    
    Dim cir As AcadCircle
    Dim pt(0 To 2) As Double
    Set cir = ThisDrawing.ModelSpace.AddCircle(pt, 2)
    cir.TrueColor = col
    ZoomAll
    
    Dim retCol As AcadAcCmColor
    Set retCol = cir.TrueColor
    
    If col.ColorMethod = AutoCAD.acColorMethodByRGB Then
    MsgBox "Наиболее близкий ColorIndex=" & col.ColorIndex
    End If

End Sub