AddBox method example

Sub AddBox_Example()
' This example adds a box to the drawing using the AddBox method.
    Dim boxObj As Acad3DSolid
    Dim Pt1(0 To 2) As Double: Pt1(0) = 1: Pt1(1) = 1: Pt1(2) = 0
    Set boxObj = ThisDrawing.ModelSpace.AddBox(Pt1, 3, 3, 4)
    boxObj.Update
    ThisDrawing.Application.ZoomExtents
End Sub