sorry, I don't have anything that works
yet
here is my first try but it doesn't work
yet
maybe you can get to work
i modified a sample from tony that did something
else, but don't have it working yet, apologies Tony...
i thought this would be the general idea of a way
to go but ???
Public Sub Test()
Dim Dwg As
String
Dwg = "C:\0\test\test.dwg"
Dim BlockName As String
BlockName =
"Test2"
Dim blkcol As Collection
blkcol = GetBlocks(Dwg, BlockName)
Dim blkref As
AXDB15Lib.AcadBlockReference
Dim i As
Integer
For Each blkref In
blkcol
If blkref.HasAttributes
Then
For i = LBound(BlkAtts) To
UBound(BlkAtts)
MsgBox
BlkAtts(i).TextString
Next
i
End If
Next
blkref
End Sub
Public Function GetBlocks(DwgName As String,
_
BlkName As String
_
) As Collection
On Error GoTo Failed
Dim DbxDoc As AxDbDocument
Set DbxDoc =
GetInterfaceObject("ObjectDBX.AxDbDocument")
DbxDoc.Open
DwgName
Dim aobj As
AXDB15Lib.AcadObject
Dim bObj As
AXDB15Lib.AcadBlockReference
Dim blkcol As
Collection
For Each aobj In
DbxDoc.ModelSpace
MsgBox
TypeName(aobj)
If TypeName(aobj) = "IAcadBlockReference"
Then
Set bObj =
aobj
If bObj.Name = BlkName
Then
blkcol.Add
bObj
End
If
End If
Next aobj
GetBlocks = blkcol
Failed:
End Function
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
any chance to have coding.
thanx.
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
