Using Programming Languages other than VBA

Sub Example_ColorName()
    'This example draws a circle and
    'returns the color name and color book name of the color.

    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

 

Comments?