Keymap vb script execution

[Thad]

Can I keymap to execute a vb script? The only thing I can find is to launch the editor. I want the script to execute when I hit the hotkey.

 

Thad

[Bullines]

quote:

---

I want the script to execute when I hit the hotkey.

---

Me too

[chip]

Who was it that created all those bitchen chooks and some cool macros? Was it Bryan(It's been a while)? Where did he go?

[chip]

Come on Bulliness... Bryan.... Work your magic!

http://www.emastercam.com/ubb/ultimatebb.p...t=011282#000000

[Roger Martin from CNC Software]

So...

 

Just, how much is this worth to you ?

 

ScriptLinker:

This utility creates a “Run Wrapper” NET Hook that allows you to “link” a VB Script to a toolbar and/or keystroke in Mastercam X.

See the ScripLinker.DOC for details.

 

Looks like somehow this got lost off the Mastercam web site downloads area in the transition over to the new web site. I've requested that it get added back into the Support-Download section.

 

For those of you that just cannot wait, you can retrieve ScriptLinker.ZIP on the forum FTP in the folder -> /Mastercam_forum/C-hooks/

[chip]

I'm sure we could work something out! You'd be suprised... i.e. When I started running that MMouse.dll. I thought that was the best thing since superchargers! All these funtions make daily life a little easier.

[pkrzic]

have some problems with Script linker.

 

I haven't been able to produce any good results.

 

Every time I try get this error.

 

 

thanks!

[pkrzic]

Sorry!

 

In my previus post the image of the error message didnt upload correctly.

 

Here it is:

[Roger Martin from CNC Software]

pkrzic,

 

What folder is the ScripLinker.DLL in?

What folder is the VBS file you select in?

[acam]

scriptlinker.dll is in the Chooks folder

VBS is in the VB folder

 

Thanks

[Bullines]

I also get this error. Is ScripLinker.dll a C-Hook or a Nethook (I'm guessing Nethook)? I've found that with Nethooks, supporting DLLs must accompany the Nethook binary. The ol' dynamic linking thing. I found that out the hard when when trying to run one of my Nethooks (that used code from Interop.Excel.dll and Interop.Microsoft.Office.Core.dll) on a computer that wasn't my own. Is this the case?

[Roger Martin from CNC Software]

ScripLinker.DLL is a NetHook.

Is should run as any other X NetHook.

I runs on my box (of course) and has been run on several systems here.

It references nothing more than Mastercam's NetHook.dll and the .NET Framework.

 

Bulliness - could you send me a snapshot of the error message you get?

[Bullines]

Done

[pkrzic]

bump

[Bullines]

Roger may have a surprise for us

[Roger Martin from CNC Software]

FYI,

A new ScriptLinker.ZIP is in the C-hooks folder of the FTP site. Corrects the issue that pkrzic & Chris were seeing. (ScriptLinker would fail to create the new DLL that calls your VBS).

[pkrzic]

It works great!

 

Thanks!

[Roger Martin from CNC Software]

Question for pkrzic

 

Do you have the .NET Framework 2.0 loaded on your computer?

[pkrzic]

I have .NET Framework 2.0 Beta Installed.

[Bullines]

I see a pattern

[Roger Martin from CNC Software]

quote:

---

I see a pattern

---

So do I...

[pkrzic]

OK, now I have another problem.

 

I wrote a script that creates 3 images of the model on the screen. On the rough it works like this:

- change background color to White

- set Gview to ISO

- refresh the screen

- call function "To clipboard"

- call Irfan executable to process the image from clipboard and save it as .PNG image

- change Gview to TOP

- do it all over again

- Change Gview to side

- do it all over again

 

Why did I take function "To clipboard"? Because I could not get good results with "Metafile" (not shaded) and "BMP" (only 256x256 pixels).

 

Is there any better solution to create an image of the screen?

 

And I have another problem:

When the script is changing view (for instance from ISO to TOP) the screen doesn't get refreshed . As you can see from the script I use "Call RepaintScreen(True)" function. The refreshment is done only if I move the mouse cursor during the running of the script. You can imagine that every tume I run the script I move a mouse like mad all over the table.

 

I also noticed that this problem occurs with bigger models (>500 sufs) - with smaller models it works OK. Have you seen and/or solved any problem like this?

 

Here is the code:

 

 

code:

---

Public Function CreateImage(strGetpath1, FolderIrfan, strimage, strimage1, strimage2)

Dim strPathToConv

Dim strCnvtImage

Dim objFSO ' FSO object

Dim objWSHShell ' WSH Shell object

Dim objShell

Dim krneki

Dim iSeconds

iSeconds = 15

Set objShell = CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

strPathToConv = FolderIrfan & "i_view32.exe "

' objShell.SendKeys "{F9}"

'Call RunMastercamCommand("OnHideToolpath")

 

Call SetBackGroundColor(mcCOLOR_WHITE)

SetGViewNumber(mcVIEW_ISO) ' Isometric view

Call RepaintScreen(True) ' Repaint screen

Call RunMastercamCommand("OnScreenFit")

Call Nap(iSeconds) ' Slow down processing a bit - it works better

' I use a method of pinging?!

Call RepaintScreen(True) ' Another repaint

ClearMenuAndPrompts

Call RunMastercamCommand("ToClipboard") ' Save screen to clipboard

objShell.SendKeys "{ESC}" ' Hit the Escape button

Call Nap(iSeconds)

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

Set objWSHShell = CreateObject("WScript.Shell")

objWSHShell.Run strCnvtImage, 0, True ' runing Irfan executable for converting the image

' Call ShellAndWait (strCnvtImage, False) ' runing Irfan executable

 

SetGViewNumber(mcVIEW_TOP) ' Top View...

RepaintScreen(True)

Call RunMastercamCommand("OnScreenFit")

RepaintScreen(True)

ClearMenuAndPrompts

Call Nap(iSeconds)

Call RepaintScreen(True)

Call RunMastercamCommand("ToClipboard")

objShell.SendKeys "{ESC}"

Call Nap(iSeconds)

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

Set objWSHShell = CreateObject("WScript.Shell")

objWSHShell.Run strCnvtImage, 0, True

' Call ShellAndWait (strCnvtImage, False)' runing Irfan executable

 

SetGViewNumber(mcVIEW_FRONT)

 

Call RepaintScreen(True)

Call RunMastercamCommand("OnScreenFit")

Call Nap(iSeconds)

Call RepaintScreen(True)

ClearMenuAndPrompts

Call RunMastercamCommand("ToClipboard")

objShell.SendKeys "{ESC}"

Call Nap(iSeconds)

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

Set objWSHShell = CreateObject("WScript.Shell")

objWSHShell.Run strCnvtImage, 0, True

'Call ShellAndWait (strCnvtImage, False)' runing Irfan executable

 

Call SetBackGroundColor(mcCOLOR_BLACK)

SetGViewNumber(mcVIEW_ISO)

Call RepaintScreen(True)

 

Set objShell = Nothing

Set objFSO = Nothing

Set objWSHShell = Nothing

End Function

 

 

'///////////////////////

'// FUNCTION

'///////////////////////

 

function Nap(iSeconds)

Const DEF_LOCALHOST_IP = "www.microsoft.com"

Dim objShell, pingstring

' Create a Shell object

Set objShell = CreateObject("Wscript.Shell")

pingstring = "ping -n 1 -w " & iSeconds & " " & DEF_LOCALHOST_IP

objShell.Run pingstring, 0, True

Set objShell = Nothing

End function

---

[Mick from CNC Software Inc.]

pkrzic,

 

Try calling Call RepaintScreen(True) twice, immediately one after the other, does that work?

[pkrzic]

No it does not.

 

I have tried many different combinations of this function with no succes.

 

Only moving the mouse works so far.

 

Thanks for the quick reply.

[pkrzic]

If I put the cursor to the graphic window during Script run it works OK, if I put the cursor on the Operation manager Mastercam crashes.

 

Do you know of any function I could use to move cursor in the certain point on the screen?