i use a similiar approach but to first make a selectionset with filter only
to block reference and then remove all static blocks
but it seem it is quite slow to do what i want when no. of static block
compare to no. of dynamic block is quite large
here is my code
Set sset = ThisDrawing.SelectionSets.Add("temp")
intcodes(0) = 0
varCodeValues(0) = "INSERT"
sset.SelectOnScreen intcodes, varCodeValues
i = 0
For Each ent In sset
If Not ent.IsDynamicBlock Then
i = i + 1
ReDim Preserve ents(0 To i - 1)
Set ents(i - 1) = ent
End If
Next
If i > 0 Then sset.RemoveItems ents
wrote in message news:5022853@discussion.autodesk.com...
Perhaps vba is one up on dxf for once, I cant find one. Hopefully there is a
better way than below
Set oBlocks = ThisDrawing.Blocks
Set SS = ThisDrawing.SelectionSets.Add("SS")
SS.Select 5, , , FilterType, FilterData
For i = 0 To SS.Count - 1
If Not oBlocks(SS(i).Name).IsXRef Then
Set oBref = SS(i)
If oBref.IsDynamicBlock Then
Debug.Print oBref.Name
End If
End If
Next
