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

jhc382948385

成功了，非常感谢楼主，之前不成功是因为我的一些快捷键与程序有冲突。

283701009

jhc382948385 发表于 2020-9-10 21:34
其实很简单，不需要这么麻烦，我直接映射键录制，先点开重命名，这个时候直接可以ctrl+c先复制模型名称，然 ...

你这个方法比他的好用

竹枫

牛

tt28sc

多谢分享！

巫山闪闪

d:\temp\aa.vbs
提示这个路径有问题，如何解决？

2475413890

一直在用这个，谢谢楼主分享。
如果你设置好了
会有以下内容
映射键
mapkey 99 @MAPKEY_LABEL新建同名工程图;\
mapkey(continued) @SYSTEMecho Dim Wsh >d:\\temp\\aa.vbs\necho Set Wsh = \
mapkey(continued) WScript.CreateObject("Wscript.Shell") >>d:\\temp\\aa.vbs\necho WScript.Sleep \
mapkey(continued) 50 >>d:\\temp\\aa.vbs\necho Wsh.SendKeys "\%\%ffr"  >>d:\\temp\\aa.vbs\necho \
mapkey(continued) Wsh.SendKeys "^c{ESC}"  >>d:\\temp\\aa.vbs\necho Wsh.SendKeys \
mapkey(continued) "^n{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}^v{ENTER}{\
mapkey(continued) TAB}{DOWN}^v{ENTER}"  >>d:\\temp\\aa.vbs\nstart  d:\\temp\\aa.vbs\nexit\n;
路径

zenas

每天学习一个钟

raogn

直接点新建，选绘图，点确定，不就行了，三步就可以了，甚至可以作成快捷键，不知道你这个有什么不一样的

逆行的鱼

改进了下，这样可以生成同名以及同公用名的工程图。

Dim Wsh
Set Wsh = WScript.CreateObject("Wscript.Shell")
WScript.Sleep 50
Wsh.SendKeys "%ffr"
Wsh.SendKeys "^c{ESC}"
Wsh.SendKeys "^n{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}{TAB}{TAB}{TAB}{DOWN}^v{ENTER}{TAB}{TAB}{DOWN}"
Wsh.SendKeys "{UP}{TAB}{TAB}{ENTER}"
Wsh.SendKeys "%81"
Wsh.SendKeys "%ffr{TAB}{DOWN}{TAB}{TAB}{TAB}{TAB}^a^c{ESC}"
Wsh.SendKeys "%82"
Wsh.SendKeys "%ffr{TAB}{DOWN}{TAB}{TAB}{TAB}{TAB}^a^v{ENTER}^g"

jamesfu

谢谢分享，好好学习学习！