Private Sub AddBox_Example()
' This example adds a box to the drawing using the AddBox method.
Dim myDoc As IntelliCAD.Document
Dim boxObj As IntelliCAD.PolygonMesh
Dim pt As Point
Set myDoc = ActiveDocument
Set pt = Library.CreatePoint(1, 1, 0)
Set boxObj = ThisDocument.ModelSpace.AddBox(pt, 3, 3, 4)
boxObj.Update
ThisDocument.ActiveViewport.ZoomExtents
End Sub