claudiadragoste
Joined: 14 Dec 2005
Posts: 1
|
 Posted:
Wed Dec 14, 2005 10:57 am Post subject:
troubleshooting with SELECT acSelectionSetCrossing |
|
|
Hello!
here is the sample code:
Dim BaSelect As AcadSelectionSet
Dim Pt1(0 To 2) As Double
Dim Pt2(0 To 2) As Double
Pt1(0) = 50
Pt1(1) = 50
Pt1(2) = 0
Pt2(0) = 60
Pt2(1) = 60
Pt2(2) = 0
Set BaSelect = ThisDrawing.SelectionSets.Add("BaVBa")
BaSelect.Select acSelectionSetCrossing, Pt1, Pt2
MsgBox BaSelect.Count
BaSelect.Delete
And now the problem: if the rectangle area defined between pt1 and pt2 is not in the active view of the drawing - means that I am positioned n another area of the drawing, then Baselect return 0, even if there are objects crossing this rectangle.
Coud I obtain the correct number of selected objects, no matter i am positioned in the drawing?
Hope somebody answer me soon!
C.
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in
