遍历当前图纸中所有直线望指教

illuminiti · 发表于 2012-2-24 17:22:00

目标：获取当前图纸所有直线
思路：需要遍历所有块，包括块的嵌套
部分代码：
es = pDb->getBlockTable(pBT,AcDb::kForRead);
es = pBT->newIterator(pBTItor);
for( pBTItor->start();!pBTItor->done();pBTItor->step() )//遍历块表
{
   es = pBTItor->getRecord(pBR,AcDb::kForRead);//得到块表记录
   for( pBRItor->start();!pBRItor->done();pBRItor->step() )//遍历块表记录
   {
         es = pBRItor->getEntity(pEntity,AcDb::kForRead);
         pCname = pEntity->isA()->name();//得到实体类名
         if( wcscmp(pCname,L"AcDbLine") == 0 )//直线
         {
            AcDbObjectId entId;
            entId = pEntity->objectId();
            lineIdArray.append(entId);
         }
         //else if( wcscmp(pCname,L"AcDbBlockReference") == 0 )遍历//这句是假设
   }
}
感觉上面缺少了嵌套块的访问，可能会引起部分直线取不到，是这样吗？
看了vb遍历块的代码：
Sub Test(BlockName As String)
Dim a As AcadBlock
Set a = ThisDrawing.Blocks(BlockName)
For Each i In a
Debug.Print i.EntityName
If i.EntityName = "AcDbBlockReference" Then Test i.Name
Next i
End Sub
vb递归所有块这么简单，arx该如何来递归实现？
望指点（如何实现目标）  谢谢！

xgready · 发表于 2012-2-25 13:07:00

获取所有直线的话，需要遍历所有的块表记录，判断是否是直线即可。

illuminiti · 发表于 2012-2-27 09:20:00

现在的疑惑就是如何遍历所有块表记录？上面的代码可以吗？哪里不够

luowy · 发表于 2012-2-27 16:11:00

经过我一天的思考，有方法了。代码楼主自己想，我就将算法，其实也简单
1，打开块表对象（AcDbBlockTable）；
2，创建遍历器，取得其中所有块表记录对象（AcDbBlockTableRecord）
3，创建遍历器，从2中取出每个块表记录对象，查询各对象是否为线段（AcDbLine）
或许有这么个疑问，模型空间的线段怎么办？其实模型空间也是个特殊的块表记录对象，上述3个步骤就够了。

齐天大圣3386 · 发表于 2012-2-27 19:20:00

块表记录是块定义吧,它有可能并没有插入到图中,应该遍历模型空间找到所有的AcDbBlockReference吧.

luowy · 发表于 2012-2-28 10:56:00

如果那么想，就不对了

illuminiti · 发表于 2012-2-28 17:20:00

首先表示感谢！
感觉你说的步骤不就是我上面贴出来的arx代码吗
感觉还是要考虑AcDbBlockReference，经测试：
添加else if( wcscmp(pCname,L"AcDbBlockReference") == 0 )，也就是遍历块参照中的实体之后访问到的直线数增加了！这点具体见5楼的回复

illuminiti · 发表于 2012-2-28 17:24:00

刚上面说错了不是见5楼的回复！
网上看到这样一段话：
“被嵌套的不是块，而是块引用
你可以在父块中遍历entity，找到类型是块引用的，然后进一步提取该块引用对应的块表记录，来获取嵌套的“块”。
”
现在加了一步，若实体类型为AcDbBlockReference，则去访问对应的块表记录，然后遍历该记录下的实体，把直线取出来
调试结构说过了直线增加了，是否还有遗漏？嵌套还要考虑吗？