Selectionset using filters

Anonymous — Fri, 11 Jul 2008 10:59:04 GMT

how to make selection set using filters as we will be doing in auotcad VBA similary i need to make selection set using vb.net Message was edited by: Ramya

Re: Selectionset using filters

Anonymous — Mon, 14 Jul 2008 13:16:17 GMT

This one looks for blocks on a layer.
ed.select...
where ed = autodesk.autocad.editor

Public Sub TestSelectionSet()
Using trans As Transaction = db.TransactionManager.StartTransaction
Try
Dim psr As PromptSelectionResult
Dim ss As SelectionSet
Dim oids As ObjectIdCollection
Dim ent As Entity
Dim oid As ObjectId
Dim br As BlockReference
Dim filter(1) As TypedValue
filter(1) = New TypedValue(DxfCode.Start, "INSERT")
filter(0) = New TypedValue(DxfCode.LayerName, "FLOOR 1")
Dim sf As New SelectionFilter(filter)
psr = ed.SelectCrossingWindow(New Point3d(0, 0, 0), New Point3d(4, 4, 0), sf)
ss = psr.Value
If ss.Count > 0 Then
oids = New ObjectIdCollection(ss.GetObjectIds)
For Each oid In oids
ent = oid.GetObject(OpenMode.ForRead)
If TypeOf ent Is BlockReference Then
br = CType(ent, BlockReference)
'Debug.Print(br.Name)
End If
Next
End If
Catch ex As System.Exception
MsgBox(ex.ToString)
Finally
trans.Dispose()
End Try
End Using
End Sub

Re: Selectionset using filters

Anonymous — Tue, 15 Jul 2008 03:53:36 GMT

Thanku very much

topic Re: Selectionset using filters in .NET Forum

Selectionset using filters

Re: Selectionset using filters

Re: Selectionset using filters