-
Notifications
You must be signed in to change notification settings - Fork 0
/
MK__Illustrator_Morse.ahk
121 lines (82 loc) · 2.4 KB
/
MK__Illustrator_Morse.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
#NoEnv
#SingleInstance, Force
SendMode, Input
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
#ifWinActive, ahk_exe Illustrator.exe
;! Mouse button (2) -- with Hotkeys ( This what I wish I could do with AutoHotInterception)
+SC003::
{
app := ComObjActive("Illustrator.Application.26")
doc := app.activeDocument
options := ComObjCreate("Illustrator.Application.26")
app.DoScript("MK_Add_Fill", "MK")
Return
}
^+SC003::
Send, ^{NumpadDiv}
^+!SC003::Send, +{F6}
;! mouse button (2) -- with Morse pattern
SC003::
p := morse(250)
;^================================================= Press One
if(p == "0")
{
app := ComObjActive("Illustrator.Application.26")
doc := app.activeDocument
options := ComObjCreate("Illustrator.Application.26")
app.DoScript("MK_Select_Fill", "MK")
Return
}
;^=================================================== Press Two
else if(p == "00")
{
app := ComObjActive("Illustrator.Application.26")
doc := app.activeDocument
options := ComObjCreate("Illustrator.Application.26")
app.DoScript("MK_Stroke_Black", "MK")
Return
}
;^=================================================== Press Three
else if(p == "000")
{
}
;^==================================================== Press Long
else if(p == "1")
{
app := ComObjActive("Illustrator.Application.26")
doc := app.activeDocument
options := ComObjCreate("Illustrator.Application.26")
app.DoScript("MK_Fill_Black", "MK")
Return
}
;^================================================== Press 1 - Long
else if(p == "01")
{
MsgBox, Press_1_Long
}
else
{
MsgBox, [ Options, Title, allllll, Timeout]
}
return
;^=================================================== Morse_function
Morse(timeout = 400) { ;
tout := timeout/1000
key := RegExReplace(A_ThisHotKey,"[\*\~\$\#\+\!\^]")
Loop {
t := A_TickCount
KeyWait %key%
Pattern .= A_TickCount-t > timeout
KeyWait %key%,DT%tout%
If (ErrorLevel)
Return Pattern
}
}
tt(txt){
ToolTip %txt%
sleep 1000
ToolTip
}
^Escape::Reload
^+Escape::Suspend