社区 › VBA/VB/ActiveX/API 编程技术 › 谁有遍历块中及相嵌块中每一实体的代码

GJY 发表于 2004-4-8 11:32:00

谁有遍历块中及相嵌块中每一实体的代码

谁有遍历块中及相嵌块中每一实体的代码,谢谢!

雪山飞狐_lzh 发表于 2004-4-8 11:59:00

Sub Test(BlockName As String)
Dim a As AcadBlock
Set a = ThisDrawing.Blocks(BlockName)
For Each i In a
Debug.Print i.EntityName
Next i
End Sub

GJY 发表于 2004-4-8 12:53:00

块里又有块,至少10层,该怎样遍历?

雪山飞狐_lzh 发表于 2004-4-8 13:12:00

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

GJY 发表于 2004-4-8 14:25:00

谢谢,兄弟,什么时候来天津我请客!

efan2000 发表于 2004-4-8 14:54:00

对于多级相同的处理，使用递归算法比较合适。


EntityName在R2000之后的版本使用ObjetName代替，但仍然保留着，变成了隐含的属性，所以最好不要使用，而且ObjectName意思更贴切。

查看完整版本: 谁有遍历块中及相嵌块中每一实体的代码