This is a class i have constructed to begin working on this first tool. Stop the code after the spf = dbdent.value.... line to see the data retrieved from any given Xclip'ed block or xref. I can't seem to put the pieces together just right. The ARX version of the Filter/Index system is a bit different than the .Net version, especially with the missing (or i just can't find it) Filter Manager object. Any help to get past the errors and retrieve the modifed entity list would be much appreciated.
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.DatabaseServices.Filters
Public Class cmatMain
Inherits CommonAutoCADVariables
<CommandMethod("MergeVisibleEntities")> Public Sub MergeVisibleEngities()
'step by step
'for each block/xref in selection 'done
'get a collection of visible layers.
'get the entities in the block
'get the clipping boundary of the block 'done
'filter out any entity that is not visible.
'bountry trim the remaining entities inside the boundary
'remove any entities outside of the boundary.
'add remaining entities to new entity layer in model space block
'next block
'commit
Try
Using trans As Transaction = ThisDrawing.TransactionManager.StartTransaction
Dim ssOid() As ObjectId
Dim oids As New ObjectIdCollection
Dim oid As ObjectId
Dim ss As SelectionSet = Nothing
Dim pso As New PromptSelectionOptions
pso.MessageForAdding = "Add Blocks/Xrefs to process: "
pso.MessageForRemoval = "Remove Blocks/Xrefs from processing: "
pso.AllowDuplicates = False
pso.RejectPaperspaceViewport = True
pso.AllowSubSelections = False
Dim psr As PromptSelectionResult = ed.GetSelection(pso)
If psr.Status = PromptStatus.OK Then
ss = psr.Value
ssOid = ss.GetObjectIds
For I As Integer = 0 To ssOid.GetUpperBound(0)
oids.Add(ssOid(I))
Next
For Each oid In oids
Dim ent As Entity = trans.GetObject(oid, OpenMode.ForRead, False, True)
If ent.GetType Is GetType(BlockReference) Then
Dim bref As BlockReference = ent
Dim brDbd As DBDictionary = trans.GetObject(bref.ExtensionDictionary, OpenMode.ForRead, False, True)
For Each item As DBDictionaryEntry In brDbd
Debug.Print(item.ToString)
Dim dbd As DBDictionary = item.Value.GetObject(OpenMode.ForRead)
For Each dbdent As DBDictionaryEntry In dbd
Debug.Print(dbdent.ToString)
'get spacial filter from xref
Dim spf As Filters.SpatialFilter = dbdent.Value.GetObject(OpenMode.ForRead)
'get point collection of boundary points from spacial filter (xclip boundary)
Dim pcol As Point2dCollection = spf.Definition.GetPoints
'create an index to attempt to activate this spacial filter and return filtered entities
Dim indy As New Filters.SpatialIndex
'create a collection pool to store the index data in
Dim indupd As IndexUpdateData = Nothing
'force the index to rebuild with this new pool
''unfortunately this throws the error "object not set.."
indy.RebuildFull(indupd)
'get the iterator in order to cycle through the filtered entities
''unfortunately this throws the error "access to corrupted memory..."
Dim iter As Filters.FilteredBlockIterator = indy.GetIterator(spf)
'this never got to run, but it was supposed to recollect the object IDs so that i could use them.
Dim foids As New ObjectIdCollection
iter.Start()
Do
Dim foid As ObjectId = iter.Next
If foid = Nothing Then Exit Do
foids.Add(foid)
Loop
Next
Next
End If
Next
Else
Exit Sub
End If
End Using
Catch ex As System.Exception
MsgBox(ex.ToString)
Exit Sub
End Try
End Sub
End Class
Thanks,
jvj
