Target - Pratische AHK-Scripts

[Stefan . (xin)]

Hallo,

bei mir haben sich im Laufe der Zeit immer mehr Scrips für autohotkey 
angesammelt, mit denen ich mir die Bedienung von Target auf meine 
Bedüfnisse zurecht gebogen habe. Diese Scripts erfordern ein 
installiertes -kostenloses- AutoHotKey von http://de.autohotkey.com was 
ich grundsätzlich jedem nur ans Herz legen kann; auch Abseits von 
Target.

Ich kopiere hier einfach mal eine lose Abfolge von Scripts, die ich 
verwende und deren Beschreibung / Funktion:

#IfWinActive, TARGET 3001!

q::
return

// schaltet die für mich lästige Umschaltung auf neue Schaltplanseiten 
beim Druck auf "q" ab. Ich nutze viel "w" und "2" und empfinde diese 
Funktion auf Q als sehr störend.

F1::
return

// das Gleiche für die blöde Online-Hilfe auf F1


+F3::
SendInput, {F3}
return

F3::
SendInput, +{F3}
return

// diese beiden negieren die Funktion von Shift+F3 und F3 ohne Shift. 
Mich stört das Zoomen im Schaltplan auf ein evtl. in der Platine 
selektiertes Bauteil beim Umschalten mit F3; so wird einfach nur noch 
umgeschaltet. Das Zoomen auf das Bauteil beim Umschalten liegt jetzt auf 
Shift+F3.


RButton::
if A_Cursor <> Arrow
    SendInput, {space}
else
    MouseClick, Right
return

// wird eine Verbindung (Schaltplan) oder ein Leiterzug (Platine) 
gezeichnet, schaltet der rechte MouseButton zwischen den benachbarten 
Knickmodi um. Wird nichts gezeichnet, bleibt die normale Funktion 
(PopUp-Menü) erhalten. Ist wirklich sehr praktisch !


MButton::
MouseGetPos, X, Y
MouseClick, Left, 698, 62,, 0
MouseMove, X, Y, 0
return

// der mittlere MouseButton schaltet den aktuellen Layer zwischen Top 
und Botton um. Leider hat der dafür verwendete Button seitens Target 
keinen eindeutigen Namen, so dass ich hier mit relativen 
Fenster-Koordinaten arbeiten musste. Das muss ggf. angepasst werden.


+^1::
ControlGetPos,xpos,ypos,,, TButton24, TARGET 3001!
MouseGetPos, X, Y
MouseClick, Left, xpos, ypos,, 0
MouseMove, X, Y, 0

// SEHR COOL - Shift+STRG+1 aktivieren das Ebenenset 1


+^2::
ControlGetPos,xpos,ypos,,, TButton23, TARGET 3001!
MouseGetPos, X, Y
MouseClick, Left, xpos, ypos,, 0
MouseMove, X, Y, 0

// Shift+STRG+2 aktivieren das Ebenenset 2

kann man so fortführen. Einfach +^1:: bzw. +^2:: und TButton24,23 
ändern.

#IfWinActive

meine Kommentare dienen nur der Dokumentation und müssen in AHK entfernt 
werden.

Stefan