You are creating two arrays that form the required parts to a filtered
selection set.
One array holds the DXF codes for the filter.
The other array holds the actual values for each of the DXF codes.
You are filtering for a layer (8) named "ContNum", objects (0) that are
inserts (BlockReferences), and are named (2) as anonymous. The last filter
is likely a problem-spot. Dynamic blocks that have been altered from their
default look will be anonymous. But DBlocks that are reset or in their
original condition will still have the default block name.
You will skip the error that will occur when a named selection set does not
already exist. You next attempt to get the existing selection set. If that
failed, the On Error Resume Next allows the next line to run, which checks
if there was an error, and if so, creates a new selection set.
You then create the selection set, using the filter you created. Finally,
you return the selection set to the calling procedure.
--
R. Robert Bell
wrote in message news:5419353@discussion.autodesk.com...
I pain stakingly wrote this code and it works ... but, I am not fully sure
just why with confidence enough to add commentary to it... can someone
assist?
Public Function getPolyLineBlockCorrals() As AcadSelectionSet
Dim FilterType(0 To 2) As Integer
Dim FilterData(0 To 2) As Variant
FilterType(0) = 8
FilterData(0) = "ContNum"
FilterType(1) = 0
FilterData(1) = "INSERT"
FilterType(2) = 2
FilterData(2) = "`*U*"
On Error Resume Next
Set objSS = ThisDrawing.SelectionSets("test2corrals")
If Err Then Set objSS = ThisDrawing.SelectionSets.Add("test2corrals")
objSS.Select acSelectionSetAll, , , FilterType, FilterData
Set getPolyLineBlockCorrals = objSS
End Function
