Create Rectangular Arrays
 
 
 

This example creates a circle and then performs a rectangular array of the circle, creating five rows and five columns of circles.

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
 
Public Shared Function PolarPoints(ByVal pPt As Point2d, _
                                   ByVal dAng As Double, _
                                   ByVal dDist As Double)
 
  Return New Point2d(pPt.X + dDist * Math.Cos(dAng), _
                     pPt.Y + dDist * Math.Sin(dAng))
End Function
 
<CommandMethod("RectangularArrayObject")> _
Public Sub RectangularArrayObject()
  '' Get the current document and database
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
  Dim acCurDb As Database = acDoc.Database
 
  '' Start a transaction
  Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
 
      '' Open the Block table record for read
      Dim acBlkTbl As BlockTable
      acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
                                   OpenMode.ForRead)
 
      '' Open the Block table record Model space for write
      Dim acBlkTblRec As BlockTableRecord
      acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                      OpenMode.ForWrite)
 
      '' Create a circle that is at 2,2 with a radius of 0.5
      Dim acCirc As Circle = New Circle()
      acCirc.SetDatabaseDefaults()
      acCirc.Center = New Point3d(2, 2, 0)
      acCirc.Radius = 0.5
 
      '' Add the new object to the block table record and the transaction
      acBlkTblRec.AppendEntity(acCirc)
      acTrans.AddNewlyCreatedDBObject(acCirc, True)
 
      '' Create a rectangular array with 5 rows and 5 columns
      Dim nRows As Integer = 5
      Dim nColumns As Integer = 5
 
      '' Set the row and column offsets along with the base array angle
      Dim dRowOffset As Double = 1
      Dim dColumnOffset As Double = 1
      Dim dArrayAng As Double = 0
 
      '' Get the angle from X for the current UCS 
      Dim curUCSMatrix As Matrix3d = acDoc.Editor.CurrentUserCoordinateSystem
      Dim curUCS As CoordinateSystem3d = curUCSMatrix.CoordinateSystem3d
      Dim acVec2dAng As Vector2d = New Vector2d(curUCS.Xaxis.X, _
                                                curUCS.Xaxis.Y)
 
      '' If the UCS is rotated, adjust the array angle accordingly
      dArrayAng = dArrayAng + acVec2dAng.Angle
 
      '' Use the upper-left corner of the objects extents for the array base point
      Dim acExts As Extents3d = acCirc.Bounds.GetValueOrDefault()
      Dim acPt2dArrayBase As Point2d = New Point2d(acExts.MinPoint.X, _
                                                   acExts.MaxPoint.Y)
 
      '' Track the objects created for each column
      Dim acDBObjCollCols As DBObjectCollection = New DBObjectCollection()
      acDBObjCollCols.Add(acCirc)
 
      '' Create the number of objects for the first column
      Dim nColumnsCount As Integer = 1
      While (nColumns > nColumnsCount)
          Dim acEntClone As Entity = acCirc.Clone()
          acDBObjCollCols.Add(acEntClone)
 
          '' Caclucate the new point for the copied object (move)
          Dim acPt2dTo As Point2d = PolarPoints(acPt2dArrayBase, _
                                                dArrayAng, _
                                                dColumnOffset * nColumnsCount)
 
          Dim acVec2d As Vector2d = acPt2dArrayBase.GetVectorTo(acPt2dTo)
          Dim acVec3d As Vector3d = New Vector3d(acVec2d.X, acVec2d.Y, 0)
          acEntClone.TransformBy(Matrix3d.Displacement(acVec3d))
 
          acBlkTblRec.AppendEntity(acEntClone)
          acTrans.AddNewlyCreatedDBObject(acEntClone, True)
 
          nColumnsCount = nColumnsCount + 1
      End While
 
      '' Set a value in radians for 90 degrees
      Dim dAng As Double = Math.PI / 2
 
      '' Track the objects created for each row and column
      Dim acDBObjCollLvls As DBObjectCollection = New DBObjectCollection()
 
      For Each acObj As DBObject In acDBObjCollCols
          acDBObjCollLvls.Add(acObj)
      Next
 
      '' Create the number of objects for each row
      For Each acEnt As Entity In acDBObjCollCols
          Dim nRowsCount As Integer = 1
 
          While (nRows > nRowsCount)
              Dim acEntClone As Entity = acEnt.Clone()
              acDBObjCollLvls.Add(acEntClone)
 
              '' Caclucate the new point for the copied object (move)
              Dim acPt2dTo As Point2d = PolarPoints(acPt2dArrayBase, _
                                                    dArrayAng + dAng, _
                                                    dRowOffset * nRowsCount)
 
              Dim acVec2d As Vector2d = acPt2dArrayBase.GetVectorTo(acPt2dTo)
              Dim acVec3d As Vector3d = New Vector3d(acVec2d.X, acVec2d.Y, 0)
              acEntClone.TransformBy(Matrix3d.Displacement(acVec3d))
 
              acBlkTblRec.AppendEntity(acEntClone)
              acTrans.AddNewlyCreatedDBObject(acEntClone, True)
 
              nRowsCount = nRowsCount + 1
          End While
      Next
 
      '' Save the new objects to the database
      acTrans.Commit()
  End Using
End Sub

C#

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
 
static Point2d PolarPoints(Point2d pPt, double dAng, double dDist)
{
  return new Point2d(pPt.X + dDist * Math.Cos(dAng),
                     pPt.Y + dDist * Math.Sin(dAng));
}
 
[CommandMethod("RectangularArrayObject")]
public static void RectangularArrayObject()
{
  // Get the current document and database
  Document acDoc = Application.DocumentManager.MdiActiveDocument;
  Database acCurDb = acDoc.Database;
 
  // Start a transaction
  using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
  {
      // Open the Block table record for read
      BlockTable acBlkTbl;
      acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
                                   OpenMode.ForRead) as BlockTable;
 
      // Open the Block table record Model space for write
      BlockTableRecord acBlkTblRec;
      acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
                                      OpenMode.ForWrite) as BlockTableRecord;
 
      // Create a circle that is at 2,2 with a radius of 0.5
      Circle acCirc = new Circle();
      acCirc.SetDatabaseDefaults();
      acCirc.Center = new Point3d(2, 2, 0);
      acCirc.Radius = 0.5;
 
      // Add the new object to the block table record and the transaction
      acBlkTblRec.AppendEntity(acCirc);
      acTrans.AddNewlyCreatedDBObject(acCirc, true);
 
      // Create a rectangular array with 5 rows and 5 columns
      int nRows = 5;
      int nColumns = 5;
 
      // Set the row and column offsets along with the base array angle
      double dRowOffset = 1;
      double dColumnOffset = 1;
      double dArrayAng = 0;
 
      // Get the angle from X for the current UCS 
      Matrix3d curUCSMatrix = acDoc.Editor.CurrentUserCoordinateSystem;
      CoordinateSystem3d curUCS = curUCSMatrix.CoordinateSystem3d;
      Vector2d acVec2dAng = new Vector2d(curUCS.Xaxis.X,
                                         curUCS.Xaxis.Y);
 
      // If the UCS is rotated, adjust the array angle accordingly
      dArrayAng = dArrayAng + acVec2dAng.Angle;
 
      // Use the upper-left corner of the objects extents for the array base point
      Extents3d acExts = acCirc.Bounds.GetValueOrDefault();
      Point2d acPt2dArrayBase = new Point2d(acExts.MinPoint.X,
                                            acExts.MaxPoint.Y);
 
      // Track the objects created for each column
      DBObjectCollection acDBObjCollCols = new DBObjectCollection();
      acDBObjCollCols.Add(acCirc);
 
      // Create the number of objects for the first column
      int nColumnsCount = 1;
      while (nColumns > nColumnsCount)
      {
          Entity acEntClone = acCirc.Clone() as Entity;
          acDBObjCollCols.Add(acEntClone);
 
          // Caclucate the new point for the copied object (move)
          Point2d acPt2dTo = PolarPoints(acPt2dArrayBase,
                                         dArrayAng,
                                         dColumnOffset * nColumnsCount);
 
          Vector2d acVec2d = acPt2dArrayBase.GetVectorTo(acPt2dTo);
          Vector3d acVec3d = new Vector3d(acVec2d.X, acVec2d.Y, 0);
          acEntClone.TransformBy(Matrix3d.Displacement(acVec3d));
 
          acBlkTblRec.AppendEntity(acEntClone);
          acTrans.AddNewlyCreatedDBObject(acEntClone, true);
 
          nColumnsCount = nColumnsCount + 1;
      }
 
      // Set a value in radians for 90 degrees
      double dAng = Math.PI / 2;
 
      // Track the objects created for each row and column
      DBObjectCollection acDBObjCollLvls = new DBObjectCollection();
 
      foreach (DBObject acObj in acDBObjCollCols)
      {
          acDBObjCollLvls.Add(acObj);
      }
 
      // Create the number of objects for each row
      foreach (Entity acEnt in acDBObjCollCols)
      {
          int nRowsCount = 1;
 
          while (nRows > nRowsCount)
          {
              Entity acEntClone = acEnt.Clone() as Entity;
              acDBObjCollLvls.Add(acEntClone);
 
              // Caclucate the new point for the copied object (move)
              Point2d acPt2dTo = PolarPoints(acPt2dArrayBase,
                                             dArrayAng + dAng,
                                             dRowOffset * nRowsCount);
 
              Vector2d acVec2d = acPt2dArrayBase.GetVectorTo(acPt2dTo);
              Vector3d acVec3d = new Vector3d(acVec2d.X, acVec2d.Y, 0);
              acEntClone.TransformBy(Matrix3d.Displacement(acVec3d));
 
              acBlkTblRec.AppendEntity(acEntClone);
              acTrans.AddNewlyCreatedDBObject(acEntClone, true);
 
              nRowsCount = nRowsCount + 1;
          }
      }
 
      // Save the new objects to the database
      acTrans.Commit();
  }
}
VBA/ActiveX Code Reference