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

Promanor

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

运行后这样

zkq1975

可以简化的啊，避免每次都生成vbs文件。我就是这样用的

wild_fire

测试下是有问题，抱歉。

Promanor

zkq1975 发表于 2023-11-14 13:01
可以简化的啊，避免每次都生成vbs文件。我就是这样用的

你发的文件可以、我仔细对比了下，在这帖子里发的代码其中有一段是"%%ffr"  ，你发的文件里的代码对用的是"%ffr"  ，可能是这个区别，导致开始我一直不成功

Promanor

zkq1975 发表于 2023-11-14 13:01
可以简化的啊，避免每次都生成vbs文件。我就是这样用的

看了下你在二楼发的链接，那个原帖反复生成vbs文件的方法我也试过，原来确实是"%%ffr"  ，我试过也是可以用的，是不是简化了以后语法变了？不懂VBS脚本，不过谢谢你了，我也可以用了，哈哈

Promanor

zkq1975 发表于 2023-11-14 13:01
可以简化的啊，避免每次都生成vbs文件。我就是这样用的

又试了下卡死频率太高啊，测试5次，4次卡死。只有一次成功打开同名工程图

zkq1975

Promanor 发表于 2023-11-14 20:19
又试了下卡死频率太高啊，测试5次，4次卡死。只有一次成功打开同名工程图

在绘图窗口用鼠标点一下，然后在运行快捷键，成功率要高一点

hmily471

Promanor 发表于 2023-11-14 02:38
运行后这样

我之前那个 引号的格式不对 ，用这个。

Dim Wsh
Set Wsh = WScript.CreateObject("Wscript.Shell")
WScript.Sleep 50
Wsh.SendKeys "%ffr"  
WScript.Sleep 20
Wsh.SendKeys "^c{ESC}"  
WScript.Sleep 20
Wsh.SendKeys "^o{CAPSLOCK}^v.drw{CAPSLOCK}{ENTER}"  

Promanor

zkq1975 发表于 2023-11-15 11:26
在绘图窗口用鼠标点一下，然后在运行快捷键，成功率要高一点

测试了下，把代码里的50，20，20都改大了，就不会卡死了。虽然有时候有类似卡死的症状，但是几秒钟后会恢复，不会卡死了

wwxj01

越来越完善了啊