---

Hi.....

ich schreibe gerade ein VB-Tool.....habe aber leider ein prob.
Wenn ich das VB-prg. starte wechselt ACAD automatisch auf seinen Arbeitsbereich. Das ist auch gut so !

Wenn ich nun mit der linken Taste irgendwo in dem Arbeitsbereich klicke möchte ich das die x,y position des Mauszeigers nach VB übermittelt wird. Um dann mit VB weiterzuarbeiten.

Vielleicht kann mir jemand helfen.....THX ! im vorraus.

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

---

Hallo Dirk,

das kannst du z.B. mit einer Windows API machen (GetCursorPos, Beschreibung z.B. unter http://www.visualbasic-archiv.de/vbapi/_kategorien.php3?kat=Maus ). Das Problem ist aber wohl, dass du mitbekommen must, wann in ACAD geklickt wird, denn zu dem Zeitpunkt willst du ja die Mousecursor-Koordinaten ermitteln.

Dazu kenne ich ACAD nicht gut genug. Gibt es da eine Notification, die gefeuert wird, wenn die Maus gedrückt wird und die du von VB aus abfangen kannst? Ich kenne leider keine Möglichkeit, wie man den Mausklick in einer anderen Applikation abfangen kann, dass muss irgendwie von ACAD aus kommen.

Ciao,
Stefan

------------------
Inoffizielle Solidworks Hilfeseite
http://solidworks.cad.de
EMail: Stefan.Berlitz@solidworks.cad.de

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

---

Hallo Dirk,

dazu kannst Du ein Ereignis-Steuerprogramm schreiben.
Autocad2000-VBA stellt z.B. für den Fall "Doppelklick" und "Rechtsklick" ein Ereignis zur Verfügung.

Füg z.B. folgenden Code in dein vba-Projekt in dem Modul Autocad Objekte - Thisdrawing ein:

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
MsgBox "Und jetzt dein Programm aktivieren"
End Sub

Allerdings sollte man bei der Benutzung von Ereignissen einige Dinge beachten, Du solltest Dir die Autocad-Online-Hilfe dazu anschauen.

Gruß
Harry Kirch

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

---

Hi...ersteinmal Danke für eure Antworten !

Stefan : das mit der API ist schon oki...aber für ACAD leider ungeeignet 

Harry : Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
MsgBox "Und jetzt dein Programm aktivieren"
End Sub

ist schon besser geeignet.....aber leider sind im Inhalt von PickPoint
3 variabeln enthalten.... x y z.

war zwar etwas arbeit alles wieder zu splitten....hat aber dennoch geklappt !!! 

wenns jemanden interessiert :
splitten :
CentrePoint = ThisDrawing.Utility.GetPoint(, "Select Centre Point:")
    CircleRadius = 0.125
    DrawACircle CDbl(CentrePoint(0)), CDbl(CentrePoint(1)), CDbl(CentrePoint(2)), CircleRadius

verwenden :
Public Function DrawACircle(CenX As Double, CenY As Double, CenZ As Double, rad As Double) As AcadCircle
    Dim CircleCentre(0 To 2) As Double
    Dim dcircle As AcadCircle
    CircleCentre(0) = CenX: CircleCentre(1) = CenY: CircleCentre(2) = CenZ
    Set dcircle = ThisDrawing.ModelSpace.AddCircle(CircleCentre, rad)

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