遍历当前图纸中所有直线 望指教
目标：获取当前图纸所有直线思路：需要遍历所有块，包括块的嵌套
部分代码：
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 static/image/common/back.gif
获取所有直线的话，需要遍历所有的块表记录，判断是否是直线即可。
现在的疑惑就是如何遍历所有块表记录？上面的代码可以吗？哪里不够 经过我一天的思考，有方法了。代码楼主自己想，我就将算法，其实也简单
1，打开块表对象（AcDbBlockTable）；
2，创建遍历器，取得其中所有块表记录对象（AcDbBlockTableRecord）
3，创建遍历器，从2中取出每个块表记录对象，查询各对象是否为线段（AcDbLine）
或许有这么个疑问，模型空间的线段怎么办？其实模型空间也是个特殊的块表记录对象，上述3个步骤就够了。 块表记录是块定义吧,它有可能并没有插入到图中,应该遍历模型空间找到所有的AcDbBlockReference吧. 齐天大圣3386 发表于 2012-2-27 19:20 static/image/common/back.gif
块表记录是块定义吧,它有可能并没有插入到图中,应该遍历模型空间找到所有的AcDbBlockReference吧.
如果那么想，就不对了 luowy 发表于 2012-2-27 16:11 static/image/common/back.gif
经过我一天的思考，有方法了。代码楼主自己想，我就将算法，其实也简单
1，打开块表对象（AcDbBlockTabl ...
首先表示感谢！
感觉你说的步骤不就是我上面贴出来的arx代码吗
感觉还是要考虑AcDbBlockReference，经测试：
添加else if( wcscmp(pCname,L"AcDbBlockReference") == 0 )，也就是遍历块参照中的实体之后访问到的直线数增加了！这点具体见5楼的回复 刚上面说错了 不是见5楼的回复！
网上看到这样一段话：
“被嵌套的不是块，而是块引用
你可以在父块中遍历entity，找到类型是块引用的，然后进一步提取该块引用对应的块表记录，来获取嵌套的“块”。
”
现在加了一步，若实体类型为AcDbBlockReference，则去访问对应的块表记录，然后遍历该记录下的实体，把直线取 出来
调试结构说过了 直线增加了，是否还有遗漏？嵌套还要考虑吗？ illuminiti 发表于 2012-2-28 17:24 static/image/common/back.gif
刚上面说错了 不是见5楼的回复！
网上看到这样一段话：
“被嵌套的不是块，而是块引用
所有块参照都是参照的块定义，所有的块定义都在块表那里，还有什么问题么？
页:
[1]