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

ziziwu

谢谢分享

alfiiii

PROE能不能用，现在还用的PROE

hahaha

苦练葵花宝典 发表于 2023-5-29 18:39
9.0的好像不行，刚测试了，

同样是用9.0的

mapkey sf @MAPKEY_LABEL新建同名工程图;~ Command `ProCmdModelNew` ;\
mapkey(continued) ~ Select `new` `Type` 1 `Drawing`;~ Activate `new` `chk_eponymous_drawing` 1;\
mapkey(continued) ~ Activate `new` `OK`;

mapkey sq @MAPKEY_LABEL打开同名工程图;\
mapkey(continued) @SYSTEMecho Dim Wsh >d:\\PTC\\CreoWork9.0\\Creotemp\\aa.vbs\necho Set Wsh = \
mapkey(continued) WScript.CreateObject("Wscript.Shell") \
mapkey(continued) >>d:\\PTC\\CreoWork9.0\\Creotemp\\aa.vbs\necho Wsh.SendKeys "\%\%ffr"  \
mapkey(continued) >>d:\\PTC\\CreoWork9.0\\Creotemp\\aa.vbs\necho Wsh.SendKeys "^c{ESC}"  \
mapkey(continued) >>d:\\PTC\\CreoWork9.0\\Creotemp\\aa.vbs\necho Wsh.SendKeys \
mapkey(continued) "^o{CAPSLOCK}^v.drw{CAPSLOCK}{ENTER}"  \
mapkey(continued) >>d:\\PTC\\CreoWork9.0\\Creotemp\\aa.vbs\nstart  \
mapkey(continued) d:\\PTC\\CreoWork9.0\\Creotemp\\aa.vbs\nexit;

9.0的新建同名工程图可以直接创建，可以不用此方法
打开同名工程图快捷键中的路径得改下，改成起始目录的路径，我的路径是d:\PTC\CreoWork9.0\Creotemp，config中显示的是d:\\PTC\\CreoWork9.0\\Creotemp，批量替换一下就行了

稳健上班族

感谢大佬分享，太好用了