AddBox method example

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