快速打开同名工程图？自己就能开发的小程序！

zhf13

在网上看到这么一个帖子，感觉很有意思，自己跟着试了一下，没成功，总是报错，有能力的人可以尝试一下，成功后请分享，谢谢。
https://www.ruanfujia.com/10550607/

我失败后的报错内容如下：
行：2
字符：32
错误：无效字符
代码：800A0408
源：Microsoft VBScript编译器错误


快速新建工程图源代码：

echo Dim Wsh > d:ptcTMGCTaa.vbs

echo Set Wsh = WScript.CreateObject(“Wscript.Shell”) >> d:ptcTMGCTaa.vbs

echo WScript.Sleep 50 >> d:ptcTMGCTaa.vbs

echo Wsh.SendKeys “%%ffr”  >>d:ptcTMGCTaa.vbs

echo Wsh.SendKeys “^c{ESC}”  >> d:ptcTMGCTaa.vbs

echo Wsh.SendKeys “^n{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}^v{ENTER}{TAB}{TAB}{DOWN}”  >> d:ptcTMGCTaa.vbs

start  d:ptcTMGCTaa.vbs

exit

快速打开工程图源代码：

echo Dim Wsh > d:ptcTMGCTaa.vbs

echo Set Wsh = WScript.CreateObject(“Wscript.Shell”) >> d:ptcTMGCTaa.vbs

echo WScript.Sleep 50 >> d:ptcTMGCTaa.vbs

echo Wsh.SendKeys “%%ffr”  >> d:ptcTMGCTaa.vbs

echo WScript.Sleep 20 >> d:ptcTMGCTaa.vbs

echo Wsh.SendKeys “^c{ESC}”  >> d:ptcTMGCTaa.vbs

echo WScript.Sleep 20 >> d:ptcTMGCTaa.vbs

echo Wsh.SendKeys “^o{CAPSLOCK}^v.drw{CAPSLOCK}{ENTER}”  >> d:ptcTMGCTaa.vbs

start  d:ptcTMGCTaa.vbs

exit

zkq1975

http://www.proewildfire.cn/thread-142466-1-2.html
看下这个帖子的内容就知道了

zhf13

zkq1975 发表于 2023-11-1 16:23
http://www.proewildfire.cn/thread-142466-1-2.html
看下这个帖子的内容就知道了

666，确实是一样的，不过我觉得实用性一般，还容易设置失败。这个看个人吧，有的人可能觉得很棒

hmily471

可以简化下，把
echo Dim Wsh
echo Set Wsh = WScript.CreateObject("Wscript.Shell")
echo WScript.Sleep 50
echo Wsh.SendKeys "%%ffr"  
echo WScript.Sleep 20
echo Wsh.SendKeys "^c{ESC}"  
echo WScript.Sleep 20
echo Wsh.SendKeys "^o{CAPSLOCK}^v.drw{CAPSLOCK}{ENTER}"  
写在一个txt文档，然后改名和格式 为 aa.vbs
然后在映射键只写
start  d:\temp\aa.vbs
exit

wild_fire

最简单的快捷键实现方式。
把如下内容放在config.pro文件当中，如果当前打开了一个prt或者asm文件，按F9，就可以打开同名的drw文件。当然是当前目录存在这个drw文件。

!---打开打开同名drw文件(F9)--------------------------------------------------------------
mapkey $F9 @MAPKEY_NAME打开同名drw文件;@MAPKEY_LABEL打开同名drw文件;\
mapkey(continued) ~ Close `main_dlg_cur` `appl_casc`;~ Command `ProCmdModelRename` ;\
mapkey(continued) ~ Input `rename` `InputPanel2` ``;~ Update `rename` `InputPanel2` ``;\
mapkey(continued) ~ Close `rename` `rename`;~ Select `main_dlg_cur` `appl_casc`;\
mapkey(continued) ~ Close `main_dlg_cur` `appl_casc`;~ Command `ProCmdModelOpen` ;\
mapkey(continued) ~ Trail `UI Desktop` `UI Desktop` `DLG_PREVIEW_POST` `file_open`;\
mapkey(continued) ~ Open `file_open` `Type`;~ Close `file_open` `Type`;\
mapkey(continued) ~ Select `file_open` `Type` 1 `db_4`;\
mapkey(continued) ~ Input `file_open` `Inputname` `PRT0001`;\
mapkey(continued) ~ Update `file_open` `Inputname` `PRT0001`;\
mapkey(continued) ~ Activate `file_open` `Inputname`;

wwxj01

我竟然相信5楼的映射键了，还去试了下

Promanor

wwxj01 发表于 2023-11-8 21:17
我竟然相信5楼的映射键了，还去试了下

5楼映射键有什么效果，说说啊，没用？

Promanor

wild_fire 发表于 2023-11-2 16:01
最简单的快捷键实现方式。
把如下内容放在config.pro文件当中，如果当前打开了一个prt或者asm文件，按F9， ...

试了，没用，提示找不到prt00001.prt

Promanor

hmily471 发表于 2023-11-1 23:18
可以简化下，把
echo Dim Wsh
echo Set Wsh = WScript.CreateObject("Wscript.Shell")

测试了下，并不能简化，可能是找到当前同名工程图的名称刷新脚本，你这样给脚本写死了，不能运行了

Promanor

hmily471 发表于 2023-11-1 23:18
可以简化下，把
echo Dim Wsh
echo Set Wsh = WScript.CreateObject("Wscript.Shell")

刚才理解错了，不过运行后弹出语法错误，是什么原因？