Sub Example_SetNames()
    'Этот пример рисует круг и возвращает цветовое имя и имя цветовой книги цвета.

    Dim col As New AcadAcCmColor
    Call col.SetRGB(125, 175, 235)
    Call col.SetNames("MyColor", "MyColorBook")
    
    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
    MsgBox "BookName=" & col.BookName
    MsgBox "ColorName=" & col.ColorName
End Sub