Message 1 of 2
Selecting with a Fence is BACKWARDS
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
This code worked correctly in 2006, but suddenly in 2008 it works backward (which means doesn't work).
I select the objects, in this case 8 horizontal lines one above the other, with a fence from a point above the top line, to a point below the bottom line.
In AutoCAD 2006, the first object picked was the line located at the top.
In AutoCAD 2008, the first object picked was the line located at the bottom.
Has anyone else run into this? Here is the code I'm using. This is not about the code, but answers as to why it's different now. The selection set using a fence can have big repercussions if you expect the fence to pick in the correct order like it has always done in the past.
Sub TEST()
Dim AA As AcadSelectionSet
Dim fencepoints As Variant
For kk = 1 To ThisDrawing.SelectionSets.Count
ThisDrawing.SelectionSets.Item(0).Delete
Next
Set AA = ThisDrawing.SelectionSets.Add("aCCaaf12d")
AA.SelectOnScreen
For kk = 1 To AA.Count
AA.Item(kk - 1).Highlight True
Next
End Sub
Thanks,
Mark
This code worked correctly in 2006, but suddenly in 2008 it works backward (which means doesn't work).
I select the objects, in this case 8 horizontal lines one above the other, with a fence from a point above the top line, to a point below the bottom line.
In AutoCAD 2006, the first object picked was the line located at the top.
In AutoCAD 2008, the first object picked was the line located at the bottom.
Has anyone else run into this? Here is the code I'm using. This is not about the code, but answers as to why it's different now. The selection set using a fence can have big repercussions if you expect the fence to pick in the correct order like it has always done in the past.
Sub TEST()
Dim AA As AcadSelectionSet
Dim fencepoints As Variant
For kk = 1 To ThisDrawing.SelectionSets.Count
ThisDrawing.SelectionSets.Item(0).Delete
Next
Set AA = ThisDrawing.SelectionSets.Add("aCCaaf12d")
AA.SelectOnScreen
For kk = 1 To AA.Count
AA.Item(kk - 1).Highlight True
Next
End Sub
Thanks,
Mark