If you want it's attributes, use the GetAttributes and/or
GetConstantAttributes methods. To get at the lines/arcs/circles/etc. that
make up the geometry of the block you must iterate the blockref's block
definition. Here's a quick sample:
Public Sub Block_BlockRef_Sample()
Dim oBlkRef As AcadBlockReference
Dim aPnt() As Double
Dim oEnt As AcadEntity
ThisDrawing.Utility.GetEntity oBlkRef, aPnt, "Select a block: "
For Each oEnt In ThisDrawing.Blocks(oBlkRef.Name)
With oEnt
.Layer = "0"
.Color = acByLayer
End With
Next oEnt
ThisDrawing.Regen
End Sub
Just remember that changing the block definition will change ALL block
references...
--
Bobby C. Jones
http://www.acadx.com
