Sub Example_ArrayRectangular()
' This example creates a line and a rectangular array based on that line.
Dim myLine As IntelliCAD.Line
Set myDoc = Application.ActiveDocument
Set myLine = myDoc.ModelSpace.AddLine(Library.CreatePoint(4, 2), Library.CreatePoint(7, 2))
myLine.Update
ThisDocument.ActiveViewport.ZoomExtents
' Create a 4x3 array of an object.
Dim retObj As Variant
Set retObj = myLine.ArrayRectangular(4, 3, 1, 3, 2, 2)
retObj.Update
ThisDocument.ActiveViewport.ZoomExtents
MsgBox "Rectangular array constructed."
End Sub