擦除块并替换它们

latour_g · 发表于 2016-2-17 13:19:06

嗨，我有一个包含许多不同块的绘图。我想将它们替换为所有相同的块，我正在做的是删除它们并在它们原来的位置插入一个新块。如果我正在替换的所有块都有不同的名称，它运行良好，但如果不是，则某些块不会被替换。我知道我的代码需要修复，但我不知道如何修复。try/catch是我尝试修复代码时的一种解决方法，私有无效bbtnChangeBLK_Click（对象发送者，EventArgs e）。
{。
文档文档=Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument；。
数据库db=doc.Database；。
编辑AcadApp.DocumentManager.MdiActiveDocument.Editor。
。
使用（DocumentLock lockDoc=doc.LockDocument（））。
{。
//Trouver tous les Block s et ene reàcôtéle nom et la visibilité。
使用（事务tr=db.TransactionManager.StartTransaction（））。
{。
TypeValue[]filList=new TypeValue[1]{new TypeValue（（int）DxfCode.Start，"INSERT") };。
SelectionFilter filter=new SelectionFilter（filList）；。
PromptSelectionOptions opts=new PromptSelectionOptions（）；。
opts.MessageForAdding="选择块引用："；。
PromptSelectionResult res=ed.GetSelection（opts， filter）；。
。
//如果选择不成功，则不执行任何操作。
if（res.Status！=PromptStatus.OK）{返回；}。
。
SelectionSet selSet=res.Value；。
。
ObjectId[]idArray=selSet.GetObjectIds（）；。
。
foreach（idArray中的ObjectId blkId）。
{。
块参考blkRef=（块参考）tr.GetObject（blkId，OpenMode.ForWrite）；。
字符串cNomBlk = "";。
尝试。
{。
cNomBlk=blkRef.Name.ToUpper（）；。
}。
捕捉。
{。
继续；。
}。
Point3d ptLoc=blkRef.Position；。
字符串cLayer=blkRef.Layer；。
双n旋转=blkRef.Rotation；。
Scale3d sc3d=blkRef.ScaleFactors；。
。
BlockTableRecord btr=（BlockTableRecords）tr.GetObject（blkRef.BlockTableRecord，OpenMode.ForWrite）；。
blkRef.Erase（）；。
btr.Erase（）；。
。
如果（cNomBlk.StartsWith（"ARP172"））。
{。
UTIL.insertBlock（ptLoc，"ARBUSTE"， sc3D. X， nRotation， cLayer， false）；。
}。
}。
tr.Commit（）；。
}。
}。
}。
。
。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Tharwat · 发表于 2016-2-17 14:48:22

嗨，
有几点需要考虑；
* 不需要创建选择集和ObjectID的数组，因此只需在foreach函数中用res.value.GetObjctIds()替换它即可
* 我认为您的try块没有用，因为它没有覆盖代码主要目标所需的任务，所以必须进行修改。
* 您没有排除属性块，因为您没有考虑它们，这不是一件简单的事情，必须需要大量的代码才能获得所有的出现。
* 动态块名称也非常重要，因为不能从简单属性中检索它们的源名称。Name
这是我在阅读您的代码时想到的，所以祝您编码好运。