selectAtpoint method

[kalai]

Hi ,

 

SelectAtpoint doesnot work.

 

Can anyone point out mistake

 

 

Dim tpt1(0 To 2) As Double

ftype(0) = 0
fdata(0) = "LINE"
ftype(1) = -4
fdata(1) = "<OR"
ftype(2) = 8
fdata(2) = "LAYER1"
ftype(3) = 8
fdata(3) = "LAYER2"
ftype(4) = -4
fdata(4) = "OR>"

qset.SelectAtPoint tpt1, ftype, fdata

 

No object is selected.

[MSasu]

I don’t have now access to an AutoCAD with VBA, and has been a while since I didn’t used it. So, until someone with experience on this will see this thread, I will do some guessing:

Is the selection set object properly declared and registered? Have you tried that selection without filters? Is the point used for selection visible on screen? Can this issue be related with size of pick box related to current zoom level?

[kalai]

i tried without filter , object seelcted is not of layer "Layer1" or "layer2"

Increase of pickbox doenot work out.

 

declaration:

dim qset as acadselectionset

set qset=thisdrawing.selectionsets.add("qsetname")

[Joro--]

kalai,

 

I don't know where is the problem in your code, but I wrote a few lines and there seems to be no problem. I'm posting my code, hope it will help you

 

Sub TrySelectAtPoint()
   On Error Resume Next
   Dim ss As AcadSelectionSet
   ThisDrawing.SelectionSets("MySS").Delete
   If Err Then
       Err.Clear
   End If
   ThisDrawing.SelectionSets.Add "MySS"
   Set ss = ThisDrawing.SelectionSets("MySS")
   
   Dim selPt(2) As Double
       selPt(0) = 0
       selPt(1) = 0
       selPt(2) = 0
   
   MsgBox ss.Count & " BEFORE selecting"
   
   ss.SelectAtPoint selPt
   
   MsgBox ss.Count & " AFTER selecting"
   Line.sel
End Sub

[kalai]

thanks for your reply,

 

but only one object is selected by this(selectatPoint) method.

[Joro--]

yes - only one object is selected because it's just a basic example to show you that this functionality works. If you perform .SelectAtPoint several times with different poitsmore objects will be added to the selectionset. For two points:

 

Sub TrySelectAtPoint()
   On Error Resume Next
   Dim ss As AcadSelectionSet
   ThisDrawing.SelectionSets("MySS").Delete
   If Err Then
       Err.Clear
   End If
   ThisDrawing.SelectionSets.Add "MySS"
   Set ss = ThisDrawing.SelectionSets("MySS")
   
   Dim selPt(2) As Double
       selPt(0) = 0
       selPt(1) = 0
       selPt(2) = 0
   
   MsgBox ss.Count & " BEFORE selecting"
   
   ss.SelectAtPoint selPt
   
       selPt(0) = 100
       selPt(1) = 0
       selPt(2) = 0
       
   ss.SelectAtPoint selPt
   
   MsgBox ss.Count & " AFTER selecting"
   
End Sub

[irneb]

thanks for your reply,

 

but only one object is selected by this(selectatPoint) method.

Isn't that what SelectAtPoint is supposed to do? It's as if the user selected by picking on an entity, even if there are 1000's of entities crossing that point only the top-most in the draw-order will be selected. If you want all the entities inside the pickbox area of a particular point, you'd need to calculate the pickbox dimensions relevant to the current zoom factor and then use Select with the acSelectionSetCrossing mode and the calculated rectangle of the "pickbox".

[MSasu]

i tried without filter , object seelcted is not of layer "Layer1" or "layer2"

Seems to me that OP's issues is the fact that defined filter doesn't work as expected.