Selection Set Filter issue...

Anonymous — Tue, 13 Jun 2006 18:03:19 GMT

Hi! I was trying to select a text object with a selection window using filters. The strange thing is that nothing was being selected unless I first zoomed to that section of the drawing. Why is this? The line of code "AutoCAD.ZoomWindow BotLeftPt, TopRightPt" is necessary for the selection command to actually select the text with the properties specified by the filter. Here is my code, thanks for any advice:

'-----------------------------------------
Dim objEnt As AcadEntity
Dim objLine As AcadLine
Dim objText As AcadText
Dim objSelection As AcadSelectionSet
Dim objSelAll As AcadSelectionSet
Dim TopRightX As Double
Dim TopRightY As Double
Dim BotLeftX As Double
Dim BotLeftY As Double
Dim TopRightPt
Dim BotLeftPt

Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
Dim fType
Dim fData

Dim strLine As String

gpCode(0) = 8
dataValue(0) = "Map Numbers"

Dim groupCode As Variant, dataCode As Variant
fType = gpCode
fData = dataValue

Me.Hide

'Open file for output
Open "C:\Tmp\Grids.txt" For Output As #1
strLine = "Map No." & vbTab & "TopRightX" & vbTab & "TopRightY" & vbTab & _
"BottomLeftX" & vbTab & "BottomLeftY"
Print #1, strLine

'Select all objects
On Error Resume Next
ThisDrawing.SelectionSets("SELALL").Delete
Set objSelAll = ThisDrawing.SelectionSets.Add("SELALL")
objSelAll.Select acSelectionSetAll

'Prepare object selection set
ThisDrawing.SelectionSets("SELTEXT").Delete
Set objSelection = ThisDrawing.SelectionSets.Add("SELTEXT")

On Error GoTo 0

'Loop through each line in drawing
For Each objEnt In objSelAll

If TypeOf objEnt Is AcadLine Then
Set objLine = objEnt

'Get TopRight and BottomLeft points
BotLeftPt = objLine.StartPoint
TopRightPt = objLine.EndPoint

'Assign point variables their values
TopRightX = Round(TopRightPt(0), 0)
TopRightY = Round(TopRightPt(1), 0)
BotLeftX = Round(BotLeftPt(0), 0)
BotLeftY = Round(BotLeftPt(1), 0)

AutoCAD.ZoomWindow BotLeftPt, TopRightPt

'Select map number text
objSelection.Select acSelectionSetCrossing, BotLeftPt, TopRightPt, fType, fData

'Set objText to refer to map number text
Set objText = objSelection.Item(0)

'Print gathered data to output file
strLine = objText.TextString & vbTab & TopRightX & vbTab & TopRightY & vbTab & _
BotLeftX & vbTab & BotLeftY
Print #1, strLine

objSelection.Clear

End If

Next

objSelAll.Clear
ThisDrawing.SelectionSets("SELALL").Delete
ThisDrawing.SelectionSets("SELTEXT").Delete

Close #1

Me.Show
'-----------------------------------------

Re: Selection Set Filter issue...

Anonymous — Tue, 13 Jun 2006 18:04:14 GMT

Dunno why my post looks funny at the bottom, sorry about that.

Re: Selection Set Filter issue...

Anonymous — Tue, 13 Jun 2006 20:22:47 GMT

wrote in message news:5204666@discussion.autodesk.com...
Hi! I was trying to select a text object with a selection window using
filters. The strange thing is that nothing was being selected unless I first
zoomed to that section of the drawing. Why is this?

you can't select what you can't see
:-)

Re: Selection Set Filter issue...

Anonymous — Tue, 13 Jun 2006 20:30:14 GMT

"MP" wrote in message
news:5204917@discussion.autodesk.com...
you can't select what you can't see
:-)

Except when using acSelectionSetAll.....

topic Re: Selection Set Filter issue... in VBA Forum

Selection Set Filter issue...

Re: Selection Set Filter issue...

Re: Selection Set Filter issue...

Re: Selection Set Filter issue...