Topic: Selection of Object by Point

[GumbyCAD]

In the old LISP days you could select a line with the Nearest OSNAP turned on and return the object that was selected by that point.

Code: [Select]

(setq pt (getpoint "\nPick a point"))
(setq ss (ssget pt))
Does anyone have a .NET equivalent for this?

Thanks in advance

[Jeff H]

Editor.GetPoint

[GumbyCAD]

So far I have compiled this function based on some googling....

Seams complicated.......

Code: [Select]


    Private Function GetObjectAtPoint(ByVal P As Point3d) As ObjectId

        Dim vd As Vector3d = New Vector3d(0.0001, 0.0001, 0.0001)
        Dim pMin As Point3d = P - vd
        Dim pMax As Point3d = P + vd
        Dim tvs() As TypedValue = New TypedValue() {New TypedValue(0, "LWPOLYLINE")}
        Dim points As Point3dCollection = New Point3dCollection
        points.Add(pMin)
        points.Add(pMax)
        Dim sf As SelectionFilter = New SelectionFilter(tvs)
        Dim sres As PromptSelectionResult = Ed.SelectFence(points, sf)
        If sres.Status <> PromptStatus.OK Then
            Ed.WriteMessage("Wrong selection!")
            Return ObjectId.Null
        End If

        If sres.Value.Count = 0 Then
            Ed.WriteMessage("Nothing selected!")
            Return ObjectId.Null
        End If

        Return sres.Value.GetObjectIds(0)

    End Function


[Kerry]

I can't make time to play, but I thought we could do it with something like

Code - C#: [Select]

1. ed.SelectCrossingWindow(point, point, filter);

added:
are you sure there isn't a SelectAtPoint method ??

added:
looks like not ... old age is catching up with me.

[Kerry]

This may give you some ideas :

SelectSomewhereNearPoint(Point3d point)

http://www.theswamp.org/index.php?topic=36317.msg414127#msg414127

[GumbyCAD]

Thanks guys

[Jeff H]

Sorry GumbyCAD,

I meant GetEntity, but I still think I missed understood the question, but luckily we got guys like Kerry to keep us in line.

[GumbyCAD]

No Stress Jeff, I am just happy people are there to try and help.