Sub Example_BackgroundFill()
   ' Этот пример создает круг и объект MText и маскирует часть круга с
   ' объектом MText

    'Рисуйте круг
    Dim circleObj As AcadCircle
    Dim CircleReference(0 To 2) As Double
    Dim radius As Double
    CircleReference(0) = 0
    CircleReference(1) = 0
    CircleReference(2) = 0
    radius = 5
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(CircleReference, radius)
    ZoomAll
    MsgBox ("Круг был оттянут.")
    
    'Создайте объект MText со свойством BackgroundFill, установленным на True
    Dim MTextObj As AcadMText
    Dim width As Double
    Dim text As String
    width = 10
    text = "Это - текст для объекта MText"
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(CircleReference, width, text)
    MTextObj.BackgroundFill = True
    ZoomAll
    
End Sub