AddSolid method example

  

Sub AddSolid_Example()
' This example creates a solid to the drawing's model space using the
' AddSolid method.
    Dim solidObj As AcadSolid
    Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double
    Dim pt3(0 To 2) As Double
    Dim pt4(0 To 2) As Double
    ' Define the solid
    pt1(0) = 1: pt1(1) = 1: pt1(2) = 0
    pt2(0) = 3: pt2(1) = 3: pt2(2) = 0
    pt3(0) = 4: pt3(1) = 2: pt3(2) = 0
    pt4(0) = 3: pt4(1) = 1: pt4(2) = 0
    Set solidObj = ThisDrawing.ModelSpace.AddSolid(pt1, pt2, pt3, pt4)
    solidObj.Update
    ThisDrawing.Application.ZoomExtents
End Sub