---

Hallo zusammen,

unter VBA gab es das Event
AcadDocument_BeginRightClick(ByVal PickPoint As Variant)

Und den PickPoint konnte man direkt verwenden
als Position im Zeichnugnsfenster.

Wie funktioniert das unter Vb.Net ?

Vielen Dank für eure Hilfe.

------------------
Gruß Jörn

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

---

Hallo Zusammen,

ich habe es jetzt folgendermaßen hinbekommen.

erste Idee
https://forums.autodesk.com/t5/net/pointmonitor-for-vb-net/td-p/2891662

zweite Idee
http://spiderinnet1.typepad.com/blog/2015/12/get-cursor-position-in-current-ucs-using-autocad-net-addin-wizard-acadnetaddinwizardanaw.html

und dadraus dann folgendes erstellt:

Code:

---

    Public Sub funcPointMonitorEventHandler(ByVal sender As Object, ByVal e As PointMonitorEventArgs)
        Dim ed As Editor = TryCast(sender, Editor)
        If ed Is Nothing Then Return
        Dim snapped As Boolean = (e.Context.History And PointHistoryBits.ObjectSnapped) = PointHistoryBits.ObjectSnapped
        Dim pt As Point3d = (If(snapped, e.Context.ObjectSnappedPoint, e.Context.ComputedPoint)).TransformBy(ed.CurrentUserCoordinateSystem.Inverse())
        dblSymbolX = pt.X
        dblSymbolY = pt.Y
    End Sub

---

dblSymbolX und dblSymbolY sind Public Variablen auf die ich dann
zugreife wenn ich die benötige

Um den Mausklick zu erfassen habe ich folgendes Event ergänzt

Code:

---

AddHandler Autodesk.AutoCAD.ApplicationServices. _
                        Application.PreTranslateMessage, AddressOf funcRightButtonMouseHandler

---

Das Event startet so

Code:

---

Public Sub funcRightButtonMouseHandler(ByVal sender As Object, ByVal e As PreTranslateMessageEventArgs)
        Const WM_RBUTTONDOWN As Integer = 516
        If e.Message.message = WM_RBUTTONDOWN Then

---

Ich möchte drauf hinweisen, das ist sicherlich nicht
die Lösung wie man es korrekterweise macht.
Aber bis jetzt funktioniert es.

------------------
Gruß Jörn

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

---

ich muss noch eine Info dazu ergänzen.
Unter dem nachfolgenden Link wird eine Methode beschrieben,
mit der man die Maus-Position auch ohne Event erhält.

Leider konnte ich diesen Code nicht von C# auf Vb.net umformatieren.

http://adndevblog.typepad.com/autocad/2013/08/get-mouse-cursor-position-without-event.html

------------------
Gruß Jörn

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