Sub Example_ColorMethod()
    ' Этот пример показывает, как изменить свойство ColorMethod
        Dim col As New AcadAcCmColor
        col.ColorMethod = AutoCAD.acColorMethodForeground
            
        ' Круг номер один
        Dim cir1 As AcadCircle
        Dim pt(0 To 2) As Double
        Set cir1 = ThisDrawing.ModelSpace.AddCircle(pt, 2)
        cir1.TrueColor = col
        ZoomAll
        
        Dim retCol As AcadAcCmColor
        Set retCol = cir1.TrueColor
        
        ' Окно сообщений с методом и индексом
        Dim MethodText As String
        MethodText = col.ColorMethod
        MsgBox "ColorMethod=" & MethodText & vbCrLf & "Index=" & col.ColorIndex
        
        ' Круг номер два
        Dim cir2 As AcadCircle
        Set cir2 = ThisDrawing.ModelSpace.AddCircle(pt, 6)
        ZoomAll
       
        col.ColorMethod = AutoCAD.acColorMethodByBlock
       
        ' Окно сообщений с методом и индексом
        MethodText = col.ColorMethod
        MsgBox "ColorMethod=" & MethodText & vbCrLf & "Index=" & col.ColorIndex
        
        ' Круг номер три
        Dim cir3 As AcadCircle
        Set cir3 = ThisDrawing.ModelSpace.AddCircle(pt, 10)
        ZoomAll
    
        Dim layColor As AcadAcCmColor
        Set layColor = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
        Call layColor.SetRGB(122, 199, 25)
        ThisDrawing.ActiveLayer.TrueColor = layColor
        
        col.ColorMethod = AutoCAD.acColorMethodByLayer
      
        Set retCol = cir3.TrueColor
                
        ' Окно сообщений с методом и индексом
        MethodText = col.ColorMethod
        MsgBox "ColorMethod=" & MethodText & vbCrLf & "Index=" & col.ColorIndex
End Sub