---

Hallo,

Über einen Einfügepunkt füge ich einen Block in die Zeichnung ein.
Ich schalte hierzu den Objektfang auf "Nächster" um einen Punkt auf einer Linie zu selektieren.

Code:

---

        '' Eingabeaufforderung für Einfügepunkt
        pPtOpts.Message = vbLf & "Einfügepunkt wählen: "
        pPtRes = acDoc.Editor.GetPoint(pPtOpts)
        Dim ptStart As Point3d = pPtRes.Value

        '' Exit if the user presses ESC or cancels the command
        If pPtRes.Status = PromptStatus.Cancel Then Exit Sub
        ' O-Fang speichern
        Dim nOsmodealt As Integer = System.Convert.ToInt32(Application.GetSystemVariable("OSMODE"))
        ' Objekt-Fang setzen
        Application.SetSystemVariable("OSMODE", 512)

---

Ich möchte nun anhand des gefangenen Punktes den Layer der entsprechenden Linie auswerten um dem Einfügeobjekt einen entsprechenden Layer zu verpassen.

Dies geht natürlich über die vorhergehnde Auswahl der Linie und dann über den Einfügepunkt. Geht das auch direkt über die Auswertung des Fangpunktes?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

>> Ich möchte nun anhand des gefangenen Punktes den Layer der entsprechenden Linie auswerten

Du darfst/kannst ein SelectionSet machen, das von dem Punkt ausgehend ein SelectCrossing macht (Fenstergröße nach PICKBOX einstellen), dann hast Du ALLE Elemente, die an dem Punkt mit '_NEA' angreifbar wären.

Du kannst imho nicht checken (ohne explizite Objektwahl), welches der Anwender damit gerade gemeint haben könnte. Soll heissen, wenn es z.B. 2 Linien, einen Block, 5 Polylinien und 1 Schraffur(grenze) an diesem Punkt gibt, dann war's das.

Läßt Du Dir aber das Linienobjekt wählen, dann bekommst Du sowohl das Objekt als auch den Punkt, wo es geklickt wurde zurück ==> würde ich in diesem Fall bevorzugen.

- alfred -

------------------
www.hollaus.at