As Mark said, you need to use something, such as the handle, to keep track
of what goes with what.....
While not pretty, and could probably be reworked for efficiensy, this
revised FilterBlock Sub does what you need, with a minor change to the
Change event of the lstAtts box.....
Public Sub FilterBlock(strBlockName As String, strAttributeID As String)
Dim varAtts() As AcadAttributeReference
Dim objBlock As AcadBlockReference
Dim FilterType(1) As Integer
Dim FilterData(1) As Variant
Dim obj As AcadEntity
Dim objBlk As AcadBlockReference
Dim I As Integer
Set objBlkSet = GetSelectionSet("BlockFilter")
FilterType(0) = 0
FilterData(0) = "Insert"
FilterType(1) = 2
FilterData(1) = strBlockName
Set colStructureIDs = New Collection
objBlkSet.Select acSelectionSetAll, FilterType:=FilterType,
FilterData:=FilterData
cboStructureIDs.Clear
Dim strAttList() As String
Dim strAttsSorted() As String
If objBlkSet.Count <> 0 Then
ReDim strAttList(0 To objBlkSet.Count - 1, 0 To 1)
ReDim strAttsSorted(0 To objBlkSet.Count - 1, 0 To 1)
Dim J As Integer
For J = 0 To objBlkSet.Count - 1
Set objBlk = objBlkSet(J)
varAtts = objBlk.GetAttributes
For I = LBound(varAtts) To UBound(varAtts)
If UCase$(varAtts(I).TagString) = strAttributeID Then
colStructureIDs.Add varAtts(I).TextString
strAttList(J, 0) = varAtts(I).TextString
strAttList(J, 1) = objBlk.Handle
Exit For
End If
Next I
Next J
BubbleSortCollection colStructureIDs
Dim varAttStr As Variant
J = 0
For Each varAttStr In colStructureIDs
For I = 0 To UBound(strAttList)
If varAttStr = strAttList(I, 0) Then
strAttsSorted(J, 0) = strAttList(I, 0)
strAttsSorted(J, 1) = strAttList(I, 1)
J = J + 1
Exit For
End If
Next I
Next varAttStr
cboStructureIDs.list = strAttsSorted
Else
lstAtts.Clear
End If
End Sub
The minor revison is:
' For intCnt = 0 To cboStructureIDs.ListCount - 1
' Set objBlkRef = objBlkSet.Item(cboStructureIDs.ListIndex)
' Next intCnt
Set objBlkRef =
ThisDrawing.HandleToObject(cboStructureIDs.list(cboStructureIDs.ListIndex,
1))
HTH,
Jeff
"Matt W" wrote in message
news:5197544@discussion.autodesk.com...
No one's willing to take on the challenge??!?
C'mon... Help a brother out.
--
Matt W
"What the flip was Grandma doing at the sand dunes?"
