C# AutoCAD2010 选择图中的块获取其位置后，将其替换成选择的外部块，其他和他名称相同但位置不同的块不替换完整代码

以下是C# AutoCAD2010中选择图中的块获取其位置后，将其替换成选择的外部块，其他和它名称相同但位置不同的块不替换的完整代码：

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;

namespace BlockReplace
{
    public class Commands
    {
        [CommandMethod("BR")]
        public void BlockReplace()
        {
            // 获取当前文档和数据库
            Document doc = Application.DocumentManager.MdiActiveDocument;
            Database db = doc.Database;

            // 提示用户选择要替换的块
            PromptEntityOptions peo = new PromptEntityOptions("\nSelect block to replace: ");
            peo.SetRejectMessage("\nSelected entity is not a block.");
            peo.AddAllowedClass(typeof(BlockReference), true);
            PromptEntityResult per = doc.Editor.GetEntity(peo);

            if (per.Status != PromptStatus.OK)
                return;

            using (Transaction tr = db.TransactionManager.StartTransaction())
            {
                // 打开块参照和块定义表
                BlockReference br = (BlockReference)tr.GetObject(per.ObjectId, OpenMode.ForRead);
                BlockTable bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);

                // 获取选择的块的名称并检查它是否在块定义表中
                string blockName = br.Name;
                if (!bt.Has(blockName))
                {
                    doc.Editor.WriteMessage("\nBlock definition not found.");
                    return;
                }

                // 提示用户选择外部块
                PromptResult pr = doc.Editor.GetString("\nEnter the name of the new block: ");
                if (pr.Status != PromptStatus.OK)
                    return;

                // 获取外部块的名称并检查它是否在块定义表中
                string newBlockName = pr.StringResult;
                if (!bt.Has(newBlockName))
                {
                    doc.Editor.WriteMessage("\nBlock definition not found.");
                    return;
                }

                // 获取选择的块的位置
                Point3d position = br.Position;

                // 遍历块参照表，替换与选择的块名称相同但位置不同的块
                BlockTableRecord btr = (BlockTableRecord)tr.GetObject(bt[blockName], OpenMode.ForRead);
                foreach (ObjectId objId in btr)
                {
                    if (objId.ObjectClass == RXClass.GetClass(typeof(BlockReference)))
                    {
                        BlockReference block = (BlockReference)tr.GetObject(objId, OpenMode.ForRead);
                        if (block.Position != position)
                        {
                            BlockTableRecord newBtr = (BlockTableRecord)tr.GetObject(bt[newBlockName], OpenMode.ForRead);
                            br.BlockTableRecord = newBtr.Id;
                        }
                    }
                }

                // 提交事务
                tr.Commit();
            }
        }
    }
}

使用方法：

1. 在AutoCAD中加载这个插件。
2. 运行BR命令。
3. 选择要替换的块。
4. 输入要替换为的外部块的名称。
5. 完成替换。