Hi Sepp,
habe es genau so gemacht und es funktioniert mit Creo...
Mapkey:
!================================================
! Help Mapkey for Renaming...
!================================================
mapkey ren_name ~ Close `main_dlg_cur` `appl_casc`;\
mapkey(continued) ~ Command `ProCmdModelRename`;
!================================================
!================================================
! Help Mapkey for New Drawing...
!================================================
mapkey new_draw ~ Command `ProCmdModelNew` ;\
mapkey(continued) ~ Select `new` `Type` 1 `Drawing`;
!================================================
!================================================
! Neue Zeichnung
!================================================
mapkey nz @MAPKEY_NAMENeue Zeichnung;@MAPKEY_LABELNeue Zeichnung;\
mapkey(continued) @SYSTEM\start WScript.exe C:\\temp\\Get_drawing_name.vbs
mapkey(continued) ~ Activate `rename` `Cancel`;
!================================================
!================================================
! New Drawing
!================================================
mapkey nd @MAPKEY_NAMENew Drawing;@MAPKEY_LABELNew Drawing;\
mapkey(continued) @SYSTEM\start WScript.exe C:\\temp\\Get_drawing_name.vbs
mapkey(continued) ~ Activate `rename` `Cancel`;
!================================================
vbs script:
'Option Explizit
WScript.Sleep 50
Dim Fi, Fso
Set Shell = CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Sub sk(Befehl)
'wscript.echo befehl
WshShell.SendKeys(Befehl)
WScript.Sleep 50 'Zeitangabe in Millisekunden
End Sub
sk "ren_name"
sk "{TAB 6}"
sk "^c"
sk "^v"
sk "{TAB 5}"
sk "new_draw"
sk "{TAB 6}"
sk "^v"
sk "~"
sk "{TAB 1}"
sk "+^{down}"
sk "{TAB 2}"
sk " "
'sk "~"
WScript.Quit()
Vielen Dank!
------------------
Gruß
Michael
have you tried turning it off and on again
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP