Selecting Entities

[jason907238]

How can I select an entity with out prompting the user if I know a point which the object crosses.

ThisDrawing.Utility.GetEntity selectObject, basePnt, "Select an object"

This prompts the user. I already know what the basePnt is.

[RobertB]

You cannot, with VBA. Can you take another approach?

[degrawmd]

You can create a selection set and then add to that selection set using the select method "SelectAtPoint" and then specify your point. This then will put your entity into the selection set as Item (0). you can then manipulate that entity by setting a dimensioned object as follows

Dim SS as AcadSelectionSet
Set SS = ThisDrawing.SelectionSets.Add("SS001")
SS.SelectAtPoint(P1)
Dim MyObj As AcadObject
Set MyObj = SS.Item(0)
SS.Delete

MyObj is now the entity you wanted without prompting anyone for input because you know where P1 is and can define it.

MyObj can now be moved, copies etc as an entity.
You actually can dimension MyObj as what it really is like an entity or a 3D solid or Polyline, but using the object allows some flexibility if the object type is not always the same.

[jason907238]

That worked but now I have another issue. I am getting a mismatch type error when trying pull the AcadPolyLine out of the selection set.


Public Function selectPolyLine(basePnt As Variant) As AcadPolyline
Dim SS As AcadSelectionSet, myObj As AcadObject

Set SS = ThisDrawing.SelectionSets.Add("SS001")
SS.SelectAtPoint (basePnt)

'Set myObj = SS.Item(0)
'Set selectPolyLine = myObj
Set selectPolyLine = SS.Item(0)
SS.Delete
End Function

[ntaylor]

Try this.

 Public Function selectPolyLine(basePnt As Variant) As AcadPolyline
 Dim SS As AcadSelectionSet, myObj As AcadObject
 Set SS = ThisDrawing.SelectionSets.Add("SS001")
 SS.SelectAtPoint (basePnt)
 If SS.Count = 0 Then
 	MsgBox "Nothing was selected"
 Else
 	Set myObj = SS.Item(0)
 	If TypeOf myObj Is AcadPolyline Then
 		Set selectPolyLine = myObj
 	Else
 		MsgBox "Object is a " & myObj.ObjectName
 	End If
 End If
 SS.Delete
 End Function