放飞双手,高效开发:自定义我的键盘动作(猫老师脚本)

不死猫

在我的lisp视频教学里面，很多人会看见我敲代码效率很高，尤其是敲括号、复制、粘贴、换行和调试等动作，到底是如何实现的呢？
今天猫老师为大家讲解一下国内外两款键盘动作一键执行的工具。通过工具的使用，不仅仅可以提高你的开发效率，在日常重复性工作中，也能为你解决大量的重复劳动难题。

先说我在Lisp开发中使用的这款软件Autohotkey。因为是免费的，所以绿色环保。

打开AutoHotkey.exe你会看见系统右下角有个绿色的图标，鼠标右键调出菜单【编辑脚本】
贴上我的脚本：

$F1:: Sendinput ^s
!F1:: Send ^s!1
$F2:: Send ^c
$F3:: Send ^v
$F4:: Send ^x
$F5:: Send ^+]^+]
$!esc:: send !{F4}
!F5:: send ^+]^+]^j
!LButton:: send {LButton}!]!]
$F7:: Sendinput ^{F4}
$F8:: Sendinput ^{space}
$F11:: Sendinput {(}getpoint {)}{Left}
!n:: Sendinput nonsmall
!/::  Sendinput /
!.:: Sendinput .
!,:: Send {,}
!':: Sendinput {'}
!;:: Send {;}
!^;:: Send {:}
$,:: Sendinput {BS}
$;:: Sendinput (){Left}
$+;:: Sendinput {End}{Enter}
$+':: Sendinput {Enter}{Enter}{Up}{Tab}
$':: Sendinput _
$.:: Sendinput {Left}
$/:: Sendinput {Right}
$`:: Sendinput "{Left}"


其中 ^ 是 ctrl，！是alt ， +是shift
$表示原按键，其他的可以看下帮助 已经汉化了主要的部分。
那么我们常用的：
分号-自动写一对()并把光标移动到括号内
F1-保存
F2-复制
F3-粘贴
F4-剪切
F8-切换输入法
F11-调试点变量
alt+esc - 关闭
alt+F1 - 保存并发送到CAD（这个可以自行修改，编辑器不同快捷键不一样）
, -backspace
. -键盘左
/  键盘右
:  (if)变成：
(if
   _
)
需要原来的按键加alt，可能很多人不习惯，其他的大家可以自己看一下，不需要的删掉就可以了。
然后保存文件后【重新调用脚本】即可

----------------------------------------------------------------
如果你觉得编写脚本比较麻烦，或者想实现判断屏幕颜色等于红色时 自动打开某个程序之类的动作。
那就推荐使用  【按键精灵】
按键精灵是一个模拟鼠标键盘动作的软件。可以让按键精灵代替双手，自动执行一系列鼠标键盘动作。按键精灵简单易用，不需要任何编程知识就可以作出功能强大的脚本。只要在电脑前用双手可以完成的动作，按键精灵都可以替代完成。
我曾经做过一段关于内网-外网数据交换的工作，要求必须导入导出再使用U盘拷贝处理，一天的工作，只需2小时完成，而且，基本都是自动判断完成的！
你可以控制鼠标移动到哪里，点击几次，输入文字，读取文字，判断文字，判断颜色，自动敲击键盘。。。。。
关键是不需要太多的编程知识即可实现，因为它能够录制动作回放。
还能够把录制的动作单独做成一个exe文件，这样我们在程序里就能调用了。
脚本写错了，默认F12停止。记得多插入延迟执行，不然电脑反应不过来，按键就过去了。
教程网上很多，软件是需要注册的，PJ版大家自己找下吧，有些杀毒会报警，附件也比较大就不上传了。

比较常用的是我写好lisp，然后用按键精灵加载执行，执行完程序再借助sendkeys调用按键精灵，保存图纸关闭再开新图。
对老版本CAD缺失字体的处理、代理图元那些东西通过颜色判断就可以自动点掉，批打印之类的时候还挺方便的。
另外批量处理EXCEL、批量处理模型都可以用这个来实现。

atone

十年啦，来晚了

moshouhot

F1-保存
F2-复制
F3-粘贴
F4-剪切 这些键会占用CAD的快捷键哦
如果一定要用最好加个判别条件RegexMatch。
按键精灵确实有点逆天，具有识色甚至识字的能力，确实可以给制图增加很多便捷。
我的AHK基本跟CAD无关，唯独有一个还用得很少，鼠标中键双击为取消的快捷键。
分享下：

1. ;中键达到后退的效果
   
2. $MButton::
   
3. MouseGetPos, CoordX, CoordY
   
4. SetTitleMatchMode, Regex
   
5. WinGetClass,sClass,A
   
6. WinGet, Status_minmax ,MinMax,A
   
7. if (sClass="TFcFormMain" or sClass="TTOTAL_CMD" or sClass="ExploreWClass" )
   
8. Send, {BS}
   
9. else if (sClass="CabinetWClass" || sClass="#32770")
   
10. Send, !{up}
    
11. ;搜索资源管理器
    
12. else if (RegexMatch(sClass,"Afx:00400000:8:000100") && A_TimeSincePriorHotkey < 300 && A_PriorHotkey = "~$MButton UP" && (CoordX - CoordXRec) ** 2 + (CoordY - CoordYRec) ** 2 < 10)
    
13. {
    
14. send,{esc}
    
15. }
    
16. else if (Status_minmax=1 && A_TimeSincePriorHotkey < 300 && A_PriorHotkey = "~$MButton UP" && (CoordX - CoordXRec) ** 2 + (CoordY - CoordYRec) ** 2 < 10)
    
17. {
    
18. WinRestore ,A
    
19. ;Status_minmax=1 窗口最大化了，还原.
    
20. }
    
21. else if (Status_minmax=0 && A_TimeSincePriorHotkey < 300 && A_PriorHotkey = "~$MButton UP" && (CoordX - CoordXRec) ** 2 + (CoordY - CoordYRec) ** 2 < 10)
    
22. {
    
23. WinMaximize ,A
    
24. ;Status_minmax=0 窗口还原了，最大化.
    
25. }
    
26. else
    
27. SendInput, {MButton Down}
    
28. CoordXRec := CoordX, CoordYRec := CoordY
    
29. return
    
30. ~$MButton UP::return

;中键达到后退的效果<br /> $MButton::<br /> MouseGetPos, CoordX, CoordY<br /> SetTitleMatchMode, Regex<br /> WinGetClass,sClass,A<br /> WinGet, Status_minmax ,MinMax,A<br /> if (sClass="TFcFormMain" or sClass="TTOTAL_CMD" or sClass="ExploreWClass" )<br /> Send, {BS} <br /> else if (sClass="CabinetWClass" || sClass="#32770")<br /> Send, !{up} <br /> ;搜索资源管理器 <br /> else if (RegexMatch(sClass,"Afx:00400000:8:000100") && A_TimeSincePriorHotkey < 300 && A_PriorHotkey = "~$MButton UP" && (CoordX - CoordXRec) ** 2 + (CoordY - CoordYRec) ** 2 < 10)<br /> {<br /> send,{esc} <br /> }<br /> else if (Status_minmax=1 && A_TimeSincePriorHotkey < 300 && A_PriorHotkey = "~$MButton UP" && (CoordX - CoordXRec) ** 2 + (CoordY - CoordYRec) ** 2 < 10)<br /> {<br /> WinRestore ,A <br /> ;Status_minmax=1 窗口最大化了，还原.<br /> }<br /> else if (Status_minmax=0 && A_TimeSincePriorHotkey < 300 && A_PriorHotkey = "~$MButton UP" && (CoordX - CoordXRec) ** 2 + (CoordY - CoordYRec) ** 2 < 10)<br /> {<br /> WinMaximize ,A <br /> ;Status_minmax=0 窗口还原了，最大化.<br /> }<br /> else<br /> SendInput, {MButton Down}<br /> CoordXRec := CoordX, CoordYRec := CoordY<br /> return<br /> ~$MButton UP::return

999999

强大到膜拜的地步

lrd1861

vlisp2012

能坐上猫老师的板凳啊，强力顶！！！！
我可是买了猫老师的教程的！！！

vlisp2012

猫老师，到底是做啥职业的？这么强！

xsso

有同感，我也怕麻烦，买了个游戏键盘来编宏使用

richine001

神仙一样的猫老师

海盗曹

按键精灵的确很好用，功能也很强大

风雨依然

高手的贴顶起  猫老师就是强大啊

ygp820601

这对我来说，很有用，学习了。