- 积分
- 625
- 明经币
- 个
- 注册时间
- 2011-3-15
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
目标:获取当前图纸所有直线
思路:需要遍历所有块,包括块的嵌套
部分代码:
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该如何来递归实现?
望指点(如何实现目标) 谢谢!
|
|