《映射键》快速复制模型名称的一种方法

鱼与鱼与驴

学习一下

zcl2009

WangJAY

感谢分享

ofof77

感谢分享

要有光

感谢提供

mui

这个很关键

要有光

Torren 发表于 2025-4-3 08:52
①没有统一的大库，从一个模型调用到另外一个模型中复制名称直接插入。②我们模型名称是编码，复制名称在 ...

提供给你另一种思路，还是只用映射键，不过是使用映射键里的：操作系统脚本。使用windows shell，可以理解为windows自己的映射键，记录每步操作，制作成txt，转为vb文件，然后执行。我试了下可行，利用了我原来的建立同名工程图的代码，稍微处理了一下。这段代码需要粘贴在creo的映射键---新建---操作系统脚本里。

1. echo Dim Wsh >D:\ptc\para_ptc\t\mc.txt
   
2. echo Set Wsh = WScript.CreateObject("Wscript.Shell") >>D:\ptc\para_ptc\t\mc.txt
   
3. (echo WScript.Sleep 50
   
4. echo Wsh.SendKeys "%%ffr"
   
5. echo Wsh.SendKeys "^c{ESC}")>>D:\ptc\para_ptc\t\mc.txt
   
6. move D:\ptc\para_ptc\t\mc.txt D:\ptc\para_ptc\t\mc.vbs
   
7. start  D:\ptc\para_ptc\t\mc.vbs
   
8. exit

复制代码

其中%%f就是atl+f，再按f，r，就到达了creo的零件重命名界面，再通过^c，就是ctrl+c来复制，esc来退出，就可以把名称复制到剪贴板了。

也可以使用下边这一段，直接粘贴在config.pro里，就可以使用了
mapkey fz @MAPKEY_LABEL复制名称;\
mapkey(continued) @SYSTEMecho Dim Wsh >D:\\ptc\\para_ptc\\t\\mc.txt\necho Set Wsh = \
mapkey(continued) WScript.CreateObject("Wscript.Shell") >>D:\\ptc\\para_ptc\\t\\mc.txt\n(echo \
mapkey(continued) WScript.Sleep 50\necho Wsh.SendKeys "\%\%ffr"\necho Wsh.SendKeys \
mapkey(continued) "^c{ESC}")>>D:\\ptc\\para_ptc\\t\\mc.txt\nmove D:\\ptc\\para_ptc\\t\\mc.txt \
mapkey(continued) D:\\ptc\\para_ptc\\t\\mc.vbs\nstart  D:\\ptc\\para_ptc\\t\\mc.vbs\nexit;

今宵别梦寒

学习一下

sdu2005

学习一下  

kunlau

学习一下