topic Re: Accessing Blocks Inside Blocks in .NET Forum

Accessing Blocks Inside Blocks

felix.cortes5K3Y2 — Mon, 04 Apr 2022 12:51:07 GMT

Hi all,

I am writing a program that analyzes the attributes of blocks in an layout. However, I cannot find the way to access AcadBlockReference's of blocks inside a block. Anyone have an idea how to approach this? Here's my lines of code:

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Imports System.Runtime.InteropServices

Sub Main()
Dim acad As AcadApplication = Marshal.GetActiveObject("Autocad.Application")
Dim acadDoc As AcadDocument = acad.ActiveDocument
Dim layout As AcadLayout = acadDoc.Layouts.Item("Model")
End Sub

Sub RunProgram(Lay As AcadLayout)
Dim Ent As AcadEntity
Dim Blk As AcadBlockReference
For i As Integer = 0 To Lay.Block.Count
Ent = Lay.Block.Item(i)
If TypeOf Ent Is AcadBlockReference Then
Call ProcessBlock(Ent)
End If
Next
End Sub

Sub ProcessBlock(Blk As AcadBlockReference)
Debug.Print("Name: {0}", Blk.EffectiveName)
'if block has blocks inside, ProcessBlock(New block)
End Sub

Thanks!

Re: Accessing Blocks Inside Blocks

hippe013 — Mon, 04 Apr 2022 15:22:48 GMT

Here is a quick example of navigating through nested blocks.

Dim block As BlockTableRecord Using tr As Transaction = db.TransactionManager.StartTransaction Dim blk As BlockReference = tr.GetObject(res.ObjectId, OpenMode.ForRead) If blk.IsDynamicBlock Then block = tr.GetObject(blk.DynamicBlockTableRecord, OpenMode.ForRead) Else block = tr.GetObject(blk.BlockTableRecord, OpenMode.ForRead) End If ed.WriteMessage(vbCrLf & "Block Name: " & block.Name) PrintNestedBlocks(block, tr, 0) tr.Commit() End Using

Public Sub PrintNestedBlocks(block As BlockTableRecord, tr As Transaction, nestLevel As Integer) For Each id As ObjectId In block Dim ent As Entity = tr.GetObject(id, OpenMode.ForRead) If TypeOf ent Is BlockReference Then Dim blkRef As BlockReference = TryCast(ent, BlockReference) If blkRef.IsDynamicBlock Then block = tr.GetObject(blkRef.DynamicBlockTableRecord, OpenMode.ForRead) Else block = tr.GetObject(blkRef.BlockTableRecord, OpenMode.ForRead) End If Dim pad As String = "" For i As Integer = 0 To nestLevel pad += vbTab Next ed.WriteMessage(vbCrLf & pad & "Block Name: " & block.Name) PrintNestedBlocks(block, tr, nestLevel + 1) End If Next End Sub

Re: Accessing Blocks Inside Blocks

felix.cortes5K3Y2 — Mon, 04 Apr 2022 19:36:37 GMT

Is this method using different dll's ? I have to keep the program under the Autodesk.AutoCAD.Interop and Interop.Common dll's

Re: Accessing Blocks Inside Blocks

hippe013 — Tue, 12 Apr 2022 19:51:07 GMT

Are you looking for something like this?

Private Sub PrintNestedNames(blk As AcadBlock, acdb As AcadDatabase, ed As Editor) ed.WriteMessage(vbCrLf & "Block Name: " & blk.Name) For Each ent As AcadEntity In blk If TypeOf ent Is AcadBlockReference Then Dim bRef As AcadBlockReference = ent Dim b As AcadBlock = GetAcadBlock(bRef.EffectiveName, acdb) If b IsNot Nothing Then PrintNestedNames(b, acdb, ed) End If End If Next End Sub Private Function GetAcadBlock(name As String, acdb As AcadDatabase) As AcadBlock For Each blk As AcadBlock In acdb.Blocks If blk.Name = name Then Return blk End If Next Return Nothing End Function

Re: Accessing Blocks Inside Blocks

felix.cortes5K3Y2 — Sun, 24 Apr 2022 18:27:02 GMT

Doesn't seem to work, I need to filter through each AcadBlockReference inside a layout to search for specific blocks and inside nested blocks as well