So kann das script für Neue Zeichnung aussehen.
Einfach mit notepad in nz.vbs speichern. Wo? In einem Folder nz.vbs hier C:\temp\vbs-scripts\nz.vbs
Bei mir ist c:\temp das Working-dir. Oder alles anpassen zum aktuellen PC.
nz.vbs:
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 200 'Zeitangabe in Millisekunden
End Sub
sk "^a"
sk "^s"
sk "{TAB 3}"
sk "+^{left}"
sk "^c"
sk "^a"
sk "^n"
sk "{TAB 3}"
sk "{down}"
sk "{TAB 3}"
sk "{down}"
sk "{TAB 3}"
sk "{down}"
sk "^v"
sk "{BS 4}"
sk "~"
sk "{TAB}"
sk "{down 2}"
WScript.Quit()
I'm config.pro sieht das aus:
!New drawing with same name as active prt/asm:
mapkey nz @MAPKEY_LABEL New drawing from prt/asm with same name;\
mapkey(continued) ~ Command `ProCmdWinActivate` ;~ Command `ProCmdModelSave` ;\
mapkey(continued) ~ Command `ProCmdWinActivate`;\
mapkey(continued) @SYSTEM\start WScript.exe C:\\temp\\vbs-scripts\\nz.vbs
Das script stoppt bevor das A3 wählen.
Das muss nur erstes mal gewählt warden. Danach bloss "nz" und ENTER
Deshalb geht es auch nicht mit sk programmieren. Wenn es sein muss, könntest du ein Format mit Name vordefinieren (Schabelone). Das wäre dann mit browse un sk anwählbar.
mfg Gunnar
[Diese Nachricht wurde von GunnarHansen am 21. Mrz. 2016 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP