topic Re: in VBA Forum

I need to extract a single attribute.

Anonymous — Thu, 11 Sep 2003 12:54:27 GMT

I am fairly new in the VBA programming. I am trying to extract a single attribute and the program I have extracts all the attributes in my drawing. Here is the code can someone point me in the right direction.

Private Sub CommandButton1_Click()
Dim ACADObject As AcadEntity
Dim element As Object
Dim ArrayAttributes As Variant
Dim TagString As String
TagString = "BR_ST#"
Dim I As Integer
For Each element In ThisDrawing.ModelSpace
If element.EntityType = 7 Then
ArrayAttributes = element.GetAttributes
For I = LBound(ArrayAttributes) To UBound(ArrayAttributes)
MsgBox "Attribute Text String : " & ArrayAttributes(I).TextString
UserForm1.Hide
Next
End If
Next
End Sub

The attributetag "BR_ST" is the attribute I want to isolate, it is the first one that lists in the message box's. You can email me direct at norm.akin@blockbuster.com

Thanks

Re: I need to extract a single attribute.

Anonymous — Thu, 11 Sep 2003 15:41:38 GMT

is the attribute in a certain block reference? what
is the block name?

that will narrow down the search
programatically

do a filtered selection for the block instead of
iterating everything in model space

but in your code as is, you could do something
like

If element.HasAttributes
then

ArrayAttributes =
element.GetAttributes
For I =
LBound(ArrayAttributes) To UBound(ArrayAttributes)

    If ArrayAttributes(I).TagString = "tag you want"
then

    MsgBox "Attribute Text String : " &
ArrayAttributes(I).TextString

    UserForm1.Hide

    End if

    Next

End if

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"normanakin" <
href="mailto:norm.akin@blockbuster.com">norm.akin@blockbuster.com>
wrote in message
href="news:f189858.-1@WebX.maYIadrTaRb">news:f189858.-1@WebX.maYIadrTaRb...
I
am fairly new in the VBA programming. I am trying to extract a single
attribute and the program I have extracts all the attributes in my drawing.
Here is the code can someone point me in the right direction.

Private Sub CommandButton1_Click()
    Dim
ACADObject As AcadEntity
    Dim element As Object

    Dim ArrayAttributes As Variant

    Dim TagString As String

    TagString = "BR_ST#"

    Dim I As Integer
    For
Each element In ThisDrawing.ModelSpace
    If
element.EntityType = 7 Then
    ArrayAttributes =
element.GetAttributes
    For I =
LBound(ArrayAttributes) To UBound(ArrayAttributes)

    MsgBox "Attribute Text String : " &
ArrayAttributes(I).TextString
    UserForm1.Hide

    Next
End If
    Next

End Sub

The attributetag "BR_ST" is the attribute I want to isolate, it is the
first one that lists in the message box's. You can email me direct at
norm.akin@blockbuster.com

Thanks

Re:

Anonymous — Fri, 12 Sep 2003 05:29:33 GMT

Yes my attribute is in the block called "BlockbusterBorder" Your code addition works out well. My next step is to put the text in Textbox1 which is easy. After that I am compiling a master list I might need help on but I want to try first on my own. Thanks for the info.