Sub Example_AddSolid()
    ' Этот пример создает тело в пространстве модели.
    
    Dim solidObj As AcadSolid
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim point3(0 To 2) As Double
    Dim point4(0 To 2) As Double
    
    ' Определите тело
    point1(0) = 0#: point1(1) = 1#: point1(2) = 0#
    point2(0) = 5#: point2(1) = 1#: point2(2) = 0#
    point3(0) = 8#: point3(1) = 8#: point3(2) = 0#
    point4(0) = 4#: point4(1) = 6#: point4(2) = 0#

    ' Создайте твердый объект в пространстве модели
    Set solidObj = ThisDrawing.ModelSpace.AddSolid(point1, point2, point3, point4)
    ZoomAll
    
End Sub