You can create a polar or rectangular array of an object. Arrays of objects are not created using a dedicated set of functions, but are created through a combination of copying objects, and then using a transformation matrix to rotate and move the copied object. The following outlines the basic logic for each type of array:
我们可以创建对象的环形阵列或矩形阵列。对象阵列不是使用一组专门的函数创建的，而是通过复制对象然后使用变换矩阵旋转和移动对象复本等组合动作创建的。下面简述一下每种阵列类型的基本逻辑：
· Polar array. Copy the object to be arrayed and move it based on an angle around a the base point. The distance from the object to the base point of the array is used to calculate the placement of each copy that is created. Once the copied object is moved, you can then rotate the object based on its angle from the base point. Once each copy is created, it needs to be appended to the block table record.
· 环形阵列 复制要阵列的对象并围绕基点按角度移动对象。对象到阵列基点的距离用来计算所创建的每个复本的位置。移动复本对象之后，就可以基于基点的角度旋转对象。每创建一个复本，就需将其追加到块表记录去。
· Rectangular array. Copy the object to array based on the number of desired rows and columns. The distance that the copied objects are copied is based on a specified distance between the rows and columns. You first want to create the number of copies of the original to complete the first row or column. Once the first row or column is created, you can then create the number of objects for the remaining rows or columns based on the first row or column you created. Once each copy is created, it needs to be appended to the block table record.
· 矩形阵列 复制对象到基于所需行数和列数的阵列。复本对象间的距离基于给定的行列间距。首先复制一定数量的原件创建第一行或列，然后基于第一行或列创建其他的行或列。每创建一个复本，就需将其追加到块表记录去。
For more information about arrays, see “Create an Array of Objects” in theAutoCAD User's Guide.
关于阵列的更多信息，请参见AutoCAD用户手册中的 “创建对象的阵列”。
6.1、Create Polar Arrays创建环形阵列
This example creates a circle, and then performs a polar array of the circle. This creates four circles filling 180 degrees around a base point of (4, 4, 0).
本例创建一个圆，然后实现该圆的环形阵列，创建4个圆绕点(4, 4, 0) 围成180度。
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("PolarArrayObject")> _
Public Sub PolarArrayObject()
'' 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 1
Dim acCirc As Circle = New Circle()
acCirc.Center = New Point3d(2, 2, 0)
acCirc.Radius = 1
'' Add the new object to the block table record and the transaction
acBlkTblRec.AppendEntity(acCirc)
acTrans.AddNewlyCreatedDBObject(acCirc, True)
'' Create a 4 object polar array that goes a 180
Dim nCount As Integer = 1
'' Set a value in radians for 60 degrees
Dim dAng As Double = 1.0472
'' Use (4,4,0) as the base point for the array
Dim acPt2dArrayBase As Point2d = New Point2d(4, 4)
While (nCount < 4)
Dim acEntClone As Entity = acCirc.Clone()
Dim acExts As Extents3d
Dim acPtObjBase As Point2d
'' Typically the upper-left corner of an object's extents is used
'' for the point on the object to be arrayed unless it is
'' an object like a circle.
Dim acCircArrObj As Circle = acEntClone
If IsDBNull(acCircArrObj) = False Then
acPtObjBase = New Point2d(acCircArrObj.Center.X, _
acCircArrObj.Center.Y)
Else
acExts = acEntClone.Bounds.GetValueOrDefault()
acPtObjBase = New Point2d(acExts.MinPoint.X, _
acExts.MaxPoint.Y)
End If
Dim dDist As Double = acPt2dArrayBase.GetDistanceTo(acPtObjBase)
Dim dAngFromX As Double = acPt2dArrayBase.GetVectorTo(acPtObjBase).Angle
Dim acPt2dTo As Point2d = PolarPoints(acPt2dArrayBase, _
(nCount * dAng) + dAngFromX, _
dDist)
Dim acVec2d As Vector2d = acPtObjBase.GetVectorTo(acPt2dTo)
Dim acVec3d As Vector3d = New Vector3d(acVec2d.X, acVec2d.Y, 0)
acEntClone.TransformBy(Matrix3d.Displacement(acVec3d))
'' The following code demonstrates how to rotate each object like
'' the ARRAY command does.
'acExts = acEntClone.Bounds.GetValueOrDefault()
'acPtObjBase = New Point2d(acExts.MinPoint.X, _
' acExts.MaxPoint.Y)
'
'' Rotate the cloned entity and around its upper-left extents point
'Dim curUCSMatrix As Matrix3d = acDoc.Editor.CurrentUserCoordinateSystem
'Dim curUCS As CoordinateSystem3d = curUCSMatrix.CoordinateSystem3d
'acEntClone.TransformBy(Matrix3d.Rotation(nCount * dAng, _
' curUCS.Zaxis, _
' New Point3d(acPtObjBase.X, _
' acPtObjBase.Y, 0)))
acBlkTblRec.AppendEntity(acEntClone)
acTrans.AddNewlyCreatedDBObject(acEntClone, True)
nCount = nCount + 1
End While
'' 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("PolarArrayObject")]
public static void PolarArrayObject()
{
// 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以读打开Block表
BlockTable acBlkTbl;
acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
OpenMode.ForRead) as BlockTable;
// Open the Block table record Model space for write
// 以写打开块表记录ModelSpace
BlockTableRecord acBlkTblRec;
acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
OpenMode.ForWrite) as BlockTableRecord;
// Create a circle that is at 2,2 with a radius of 1
// 创建圆，圆心2,2半径1
Circle acCirc = new Circle();
acCirc.Center = new Point3d(2, 2, 0);
acCirc.Radius = 1;
// Add the new object to the block table record and the transaction
// 添加新对象到块表记录和事务
acBlkTblRec.AppendEntity(acCirc);
acTrans.AddNewlyCreatedDBObject(acCirc, true);
// Create a 4 object polar array that goes a 180
//创建4个对象的180度环形阵列
int nCount = 1;
// Set a value in radians for 60 degrees定义60度弧度值
double dAng = 1.0472;
// Use (4,4,0) as the base point for the array定义阵列基点
Point2d acPt2dArrayBase = new Point2d(4, 4);
while (nCount < 4)
{
Entity acEntClone = acCirc.Clone() as Entity;
Extents3d acExts;
Point2d acPtObjBase;
// Typically the upper-left corner of an object's extents is used
// for the point on the object to be arrayed unless it is
// an object like a circle.
//典型情况，使用对象范围的左上角作为要阵列对象上的点，除非
//要阵列对象是类似圆这样的对象（使用圆心）;
Circle acCircArrObj = acEntClone as Circle;
if (acCircArrObj != null)//是圆
{
acPtObjBase = new Point2d(acCircArrObj.Center.X,
acCircArrObj.Center.Y);
}
Else//不是圆
{
acExts = acEntClone.Bounds.GetValueOrDefault();
acPtObjBase = new Point2d(acExts.MinPoint.X,
acExts.MaxPoint.Y);
}
double dDist = acPt2dArrayBase.GetDistanceTo(acPtObjBase);
double dAngFromX = acPt2dArrayBase.GetVectorTo(acPtObjBase).Angle;
Point2d acPt2dTo = PolarPoints(acPt2dArrayBase,
(nCount * dAng) + dAngFromX,
dDist);
Vector2d acVec2d = acPtObjBase.GetVectorTo(acPt2dTo);
Vector3d acVec3d = new Vector3d(acVec2d.X, acVec2d.Y, 0);
acEntClone.TransformBy(Matrix3d.Displacement(acVec3d));
/*
// The following code demonstrates how to rotate each object
// like the ARRAY command does.
// 下列代码演示怎样旋转每个对象，就像Array命令所做的那样;
acExts = acEntClone.Bounds.GetValueOrDefault();
acPtObjBase = new Point2d(acExts.MinPoint.X,
acExts.MaxPoint.Y);
// Rotate the cloned entity around its upper-left extents point
// 围绕左上范围点旋转对象
Matrix3d curUCSMatrix = acDoc.Editor.CurrentUserCoordinateSystem;
CoordinateSystem3d curUCS = curUCSMatrix.CoordinateSystem3d;
acEntClone.TransformBy(Matrix3d.Rotation(nCount * dAng,
curUCS.Zaxis,
new Point3d(acPtObjBase.X,
acPtObjBase.Y, 0)));
*/
// 添加新对象到块表记录和事务
acBlkTblRec.AppendEntity(acEntClone);
acTrans.AddNewlyCreatedDBObject(acEntClone, true);
nCount = nCount + 1;
}
// Save the new objects to the database保存新对象到数据库
acTrans.Commit();
}
}
VBA/ActiveX Code Reference
Sub PolarArrayObject()
' Create the circle
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2#: center(1) = 2#: center(2) = 0#
radius = 1
Set circleObj = ThisDrawing.ModelSpace. _
AddCircle(center, radius)
ZoomAll
' Define the polar array
Dim noOfObjects As Integer
Dim angleToFill As Double
Dim basePnt(0 To 2) As Double
noOfObjects = 4
angleToFill = 3.14 ' 180 degrees
basePnt(0) = 4#: basePnt(1) = 4#: basePnt(2) = 0#
' The following example will create 4 copies
' of an object by rotating and copying it about
' the point (4,4,0).
Dim retObj As Variant
retObj = circleObj.ArrayPolar _
(noOfObjects, angleToFill, basePnt)
ZoomAll
End Sub
6.2、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.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 for read以读打开块表
BlockTable acBlkTbl;
acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
OpenMode.ForRead) as BlockTable;
// Open the Block table record Model space for write
// 以写打开块表记录ModelSpace
BlockTableRecord acBlkTblRec;
acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
OpenMode.ForWrite) as BlockTableRecord;
// Create a circle that is at 200,200 with a radius of 60
Circle acCirc = new Circle();
acCirc.Center = new Point3d(200, 200, 0);
acCirc.Radius = 60;
// 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
// 创建5行8列的矩形阵列
int nRows = 5;
int nColumns = 5;
// Set the row and column offsets along with the base array angle
// 设置行列间距及阵列基角
double dRowOffset = 200;
double dColumnOffset = 300;
double dArrayAng = 0;
// Get the angle from X for the current UCS
// 获取到当前UCS坐标系X轴的角度
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
// 如果UCS坐标系旋转了，相应地调整阵列的角度
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
Sub RectangularArrayObject()
' Create the circle
Dim circleObj As AcadCircle
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2#: center(1) = 2#: center(2) = 0#
radius = 0.5
Set circleObj = ThisDrawing.ModelSpace. _
AddCircle(center, radius)
ZoomAll
' Define the rectangular array
Dim numberOfRows As Long
Dim numberOfColumns As Long
Dim numberOfLevels As Long
Dim distanceBwtnRows As Double
Dim distanceBwtnColumns As Double
Dim distanceBwtnLevels As Double
numberOfRows = 5
numberOfColumns = 5
numberOfLevels = 0
distanceBwtnRows = 1
distanceBwtnColumns = 1
distanceBwtnLevels = 0
' Create the array of objects
Dim retObj As Variant
retObj = circleObj.ArrayRectangular _
(numberOfRows, numberOfColumns, numberOfLevels, _
distanceBwtnRows, distanceBwtnColumns, distanceBwtnLevels)
ZoomAll
End Sub
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
