ArrayRectangular method example

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