怎么设置可以让工程图的名称和你创建工程图的组件或零件一样

ylbgame

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

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

以下为说明
1.启动CREO4
2.点“文件”----“选项”----“映射键设置”
3.在弹出的窗口点“新建”，在键盘快捷方式写上你要用的映射键字符
4.点击操作系统脚本，粘贴以下代码：并保存映射键。
5.在你的电脑D盘创建一个temp文件夹
6.使用你定义的映射键就可以了

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