CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2021 开发者帮助 › 查看内容

AutoCAD 2021 开发者帮助

复制对象（.NET）

2024-5-18 18:36| 发布者: admin| 查看: 82| 评论: 0|原作者: admin|来自: AutoCAD

复制对象（.NET）

若要复制对象，请使用为该对象提供的函数。此方法创建一个新对象，该对象是原始对象的副本。创建重复对象后，可以在将其添加或追加到数据库之前对其进行修改。如果不变换对象或更改其位置，则新对象将位于与原始对象相同的位置。Clone

如果要复制大量对象，则可以将每个对象 ID 添加到对象中，然后循环访问每个对象。在循环访问每个对象时，可以对每个对象使用该函数，然后将新对象添加或追加到数据库中。ObjectIdCollectionClone

复制单个对象

下面的示例创建一个新圆，然后创建该圆的直接副本以创建第二个圆。

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
 
<CommandMethod("SingleCopy")> _
Public Sub SingleCopy()
    '' 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 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,3 with a radius of 4.25
        Using acCirc As Circle = New Circle()
            acCirc.Center = New Point3d(2, 3, 0)
            acCirc.Radius = 4.25

            '' Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acCirc)
            acTrans.AddNewlyCreatedDBObject(acCirc, True)

            '' Create a copy of the circle and change its radius
            Dim acCircClone As Circle = acCirc.Clone()
            acCircClone.Radius = 1

            '' Add the cloned circle
            acBlkTblRec.AppendEntity(acCircClone)
            acTrans.AddNewlyCreatedDBObject(acCircClone, True)
        End Using

        '' Save the new object 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;
 
[CommandMethod("SingleCopy")]
public static void SingleCopy()
{
    // 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
        BlockTableRecord acBlkTblRec;
        acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
                                        OpenMode.ForWrite) as BlockTableRecord;

        // Create a circle that is at 2,3 with a radius of 4.25
        using (Circle acCirc = new Circle())
        {
            acCirc.Center = new Point3d(2, 3, 0);
            acCirc.Radius = 4.25;

            // Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acCirc);
            acTrans.AddNewlyCreatedDBObject(acCirc, true);

            // Create a copy of the circle and change its radius
            Circle acCircClone = acCirc.Clone() as Circle;
            acCircClone.Radius = 1;

            // Add the cloned circle
            acBlkTblRec.AppendEntity(acCircClone);
            acTrans.AddNewlyCreatedDBObject(acCircClone, true);
        }

        // Save the new object to the database
        acTrans.Commit();
    }
}

VBA/ActiveX 代码参考

Sub SingleCopy()
    ' Define the Circle object
    Dim centerPoint(0 To 2) As Double
    centerPoint(0) = 2: centerPoint(1) = 3: centerPoint(2) = 0
 
    ' Define the radius for the initial circle
    Dim radius As Double
    radius = 4.25
 
    ' Define the radius for the copied circle
    Dim radiusCopy As Double
    radiusCopy = 1#
 
    ' Add the new circle to model space
    Dim circleObj As AcadCircle
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
 
    ' Create a copy of the circle
    Dim circleObjCopy As AcadCircle
    Set circleObjCopy = circleObj.Copy()
    circleObjCopy.radius = radiusCopy
End Sub

复制多个对象

下面的示例使用对象来跟踪应复制的对象。将对象 ID 添加到集合后，将迭代该集合，并使用该方法创建新对象，然后将其添加到模型空间。ObjectIdCollectionClone

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
 
<CommandMethod("MultipleCopy")> _
Public Sub MultipleCopy()
    '' 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 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 (0,0,0) with a radius of 5
        Using acCirc1 As Circle = New Circle()
            acCirc1.Center = New Point3d(0, 0, 0)
            acCirc1.Radius = 5

            '' Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acCirc1)
            acTrans.AddNewlyCreatedDBObject(acCirc1, True)

            '' Create a circle that is at (0,0,0) with a radius of 7
            Using acCirc2 As Circle = New Circle()
                acCirc2.Center = New Point3d(0, 0, 0)
                acCirc2.Radius = 7

                '' Add the new object to the block table record and the transaction
                acBlkTblRec.AppendEntity(acCirc2)
                acTrans.AddNewlyCreatedDBObject(acCirc2, True)

                '' Add all the objects to clone
                Dim acDBObjColl As DBObjectCollection = New DBObjectCollection()
                acDBObjColl.Add(acCirc1)
                acDBObjColl.Add(acCirc2)

                For Each acEnt As Entity In acDBObjColl
                    Dim acEntClone As Entity
                    acEntClone = acEnt.Clone()
                    acEntClone.ColorIndex = 1

                    '' Create a matrix and move each copied entity 15 units
                    acEntClone.TransformBy(Matrix3d.Displacement(New Vector3d(15, 0, 0)))

                    '' Add the cloned object
                    acBlkTblRec.AppendEntity(acEntClone)
                    acTrans.AddNewlyCreatedDBObject(acEntClone, True)
                Next
            End Using
        End Using

        '' Save the new object 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;
 
[CommandMethod("MultipleCopy")]
public static void MultipleCopy()
{
    // 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
        BlockTableRecord acBlkTblRec;
        acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
                                        OpenMode.ForWrite) as BlockTableRecord;

        // Create a circle that is at (0,0,0) with a radius of 5
        using (Circle acCirc1 = new Circle())
        {
            acCirc1.Center = new Point3d(0, 0, 0);
            acCirc1.Radius = 5;

            // Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acCirc1);
            acTrans.AddNewlyCreatedDBObject(acCirc1, true);

            // Create a circle that is at (0,0,0) with a radius of 7
            using (Circle acCirc2 = new Circle())
            {
                acCirc2.Center = new Point3d(0, 0, 0);
                acCirc2.Radius = 7;

                // Add the new object to the block table record and the transaction
                acBlkTblRec.AppendEntity(acCirc2);
                acTrans.AddNewlyCreatedDBObject(acCirc2, true);

                // Add all the objects to clone
                DBObjectCollection acDBObjColl = new DBObjectCollection();
                acDBObjColl.Add(acCirc1);
                acDBObjColl.Add(acCirc2);

                foreach (Entity acEnt in acDBObjColl)
                {
                    Entity acEntClone;
                    acEntClone = acEnt.Clone() as Entity;
                    acEntClone.ColorIndex = 1;

                    // Create a matrix and move each copied entity 15 units
                    acEntClone.TransformBy(Matrix3d.Displacement(new Vector3d(15, 0, 0)));

                    // Add the cloned object
                    acBlkTblRec.AppendEntity(acEntClone);
                    acTrans.AddNewlyCreatedDBObject(acEntClone, true);
                }
            }
        }

        // Save the new object to the database
        acTrans.Commit();
    }
}

VBA/ActiveX 代码参考

Sub MultipleCopy()
    ' Define the Circle object
    Dim centerPoint(0 To 2) As Double
    centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
 
    Dim radius1 As Double, radius2 As Double
    radius1 = 5#: radius2 = 7#
 
    ' Add two circles to the current drawing
    Dim circleObj1 As AcadCircle, circleObj2 As AcadCircle
    Set circleObj1 = ThisDrawing.ModelSpace.AddCircle _
                                            (centerPoint, radius1)
 
    Set circleObj2 = ThisDrawing.ModelSpace.AddCircle _
                                            (centerPoint, radius2)
 
    ' First put the objects to be copied into a form compatible
    ' with CopyObjects
    Dim objCollection(0 To 1) As Object
    Set objCollection(0) = circleObj1
    Set objCollection(1) = circleObj2
 
    ' Copy the objects into the model space. A
    ' collection of the new (copied) objects is returned.
    Dim retObjects As Variant
    retObjects = ThisDrawing.CopyObjects(objCollection)
 
    Dim ptFrom(0 To 2) As Double
    ptFrom(0) = 0: ptFrom(1) = 0: ptFrom(2) = 0
 
    Dim ptTo(0 To 2) As Double
    ptTo(0) = 15: ptTo(1) = 0: ptTo(2) = 0
 
    Dim nCount As Integer
    For nCount = 0 To UBound(retObjects)
         Dim entObj As AcadEntity
         Set entObj = retObjects(nCount)
 
         entObj.color = acRed
         entObj.Move ptFrom, ptTo
    Next
End Sub