Keymap vb script execution

[pkrzic]

Bump.

[Bullines]

Perhaps when you do a switch 'n' snap (patent pending ), you should use the Nap() function to give Mastercam a chance to catch up:

 

code:

---

' this should probably go in a function or sub of its own

 

' start

SetGViewNumber(mcVIEW_FRONT)

Call RepaintScreen(True)

Call Nap(5)

Call RunMastercamCommand("ToClipboard")

Call Nap(8)

strCnvtImage = strPathToConv + " /clippaste /resample=(1000,800) /convert=" + strimage2 + ".png"

objWSHShell.Run strCnvtImage, 0, True

Call Nap(8)

 

' next

SetGViewNumber(mcVIEW_FRONT)

' ...

---

Also, though it may not be a big issue, is that your Nap() function (which might as well be a Sub since it doesn't return anything) will not behave as expected should an Internet connection not exist. In the case of no connection, Nap() will at most stop for 4 "seconds" when PING fails to reach a host. A better implementation would be:

 

code:

---

' Purpose: Alternative to WSH Shell Sleep() for Mastercam VBScript that

' pings the localhost a given number of times (read: seconds).

' I: number of "seconds" to nap

' O (none)

Sub Nap(iSeconds)

Const DEF_HOST = "127.0.0.1" ' localhost

Dim objShell ' WSH Shell object

 

 

Set objShell = CreateObject("WScript.Shell")

 

' need to add 1 to get it approx. correct

iSeconds = iSeconds + 1

objShell.Run "ping -n " & iSeconds & " " & DEF_HOST , 0, True

 

Set objShell = Nothing

End Sub

---

HTH