用映射键，实现CREO4新建同名工程图功能

huyanyi · 发表于 2018-3-13 16:07

几年前找了个试用版的proe标注外挂软件，发现有两个很好用的功能：新建同名工程图、打开同名工程图。感觉很好用，软件试用期过的，用TC开发工具箱做了个这个功能的外挂，执行效率有点低。最近突发奇想，能否用CREO自带的功能实现。竟然成功了。分享给需要的人。

由于使用的是映射键功能，怕给你现有的冲突，我直接贴上源代码（代码使用CMD输出VBS，然后调用VBS实现），看不懂也没有关系，按照下面说明操作即可。

以下为说明
1.启动CREO4
2.点“文件”----“选项”----“映射键设置”
3.在弹出的窗口点“新建”，在键盘快捷方式写上你要用的映射键字符
4.点击操作系统脚本，粘贴以下代码：并保存映射键。

echo Dim Wsh >d:\temp\aa.vbs
echo Set Wsh = WScript.CreateObject("Wscript.Shell") >>d:\temp\aa.vbs
echo WScript.Sleep 50 >>d:\temp\aa.vbs
echo Wsh.SendKeys "%%ffr"  >>d:\temp\aa.vbs
echo Wsh.SendKeys "^c{ESC}"  >>d:\temp\aa.vbs
echo Wsh.SendKeys "^n{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}^v{ENTER}{TAB}{TAB}{DOWN}"  >>d:\temp\aa.vbs
start  d:\temp\aa.vbs
exit

PS：由于使用的是cmd命令，执行时会弹出cmd窗口。会生成d:\temp\aa.vbs

以下是打开同名工程图代码

echo Dim Wsh >d:\temp\aa.vbs
echo Set Wsh = WScript.CreateObject("Wscript.Shell") >>d:\temp\aa.vbs
echo WScript.Sleep 50 >>d:\temp\aa.vbs
echo Wsh.SendKeys "%%ffr"  >>d:\temp\aa.vbs
echo WScript.Sleep 20 >>d:\temp\aa.vbs
echo Wsh.SendKeys "^c{ESC}"  >>d:\temp\aa.vbs
echo WScript.Sleep 20 >>d:\temp\aa.vbs
echo Wsh.SendKeys "^o{CAPSLOCK}^v.drw{CAPSLOCK}{ENTER}"  >>d:\temp\aa.vbs
start  d:\temp\aa.vbs
exit