VBS for change machinetype

[Wox]

Hello,

 

I am an absolute beginner at programming in VBS.

 

I want a VBS that replace the current machine to a another machine. Not a new machine group (ChangeMachineType)!

change the current machine.

Is this possible?

 

Sincerely

 

(Mastercam X6+X7)

[kdgrills]

Yes, you're looking for SetActiveMachine()

 

Here's a snippet from one of my scripts:

 

For Index = 1 To Ubound(Ar)

Call SetPostName(PostPath & Ar(Index) & PostExtStr)

Call SetActiveMachine(MachPath & Ar(Index) & MachExtStr)

Call RunPostAll(UserOutputPath, False)

Next

 

I case you're not aware, documentation of the vbscript functions available is in VBScript.htm.

(in the help subdirectory, under your mastercam installation directory.)

 

There is also SCRIPT56.CHM in the same location, which contains general documentation about the language itself.

[rocheey1]

Here's another version that a new guy might find easier to follow:

 

This will change the machine to the MasterCam supplied machine named "MILL 3 - AXIS HMC MM.MMD-6"

it looks in the default folder "C:\Users\Public\Documents\shared Mcamx6\CNC_MACHINES\", which is the default folder in Mcx6, and Windows 7 :

 

Sub Main()
' -- Add code here...
' define a variable for your machine folder
Dim MachineFolder
MachineFolder="C:\Users\Public\Documents\shared Mcamx6\CNC_MACHINES\"

' define a variable for the machine (.mmd-6)
Dim MachineName
MachineName="MILL 3 - AXIS HMC MM.MMD-6"

' define a variable to tell us whether we suceeded or not
Dim Success
' change the current machine to what we have above
Success=SetActiveMachine(MachineFolder & MachineName)

' pop up box to tell us the results
If Success = True Then ' we changed the machine
 ShowString "Machine Def was successfully changed"
Else
 ShowString "Machine Def change was unsuccessfull"	 ' something went wrong
End If

End Sub

[kdgrills]

Nice example rocheey1, too busy here for such niceties.

 

OP, also have a look at the example scripts in shared mcamx5/6/7 (C:\Users\Public\Documents\shared mcamx7\vb)

Lot's of well documented scripts there which demonstrate many of the available functions.

[Wox]

Hello,

 

Thank you for the good help.

 

Another Problem with the VB Script:

 

How can I start the VBS as a symbol of the toolbar directly?

In the toolbar settings i only can start C-Hooks

 

Sincerely

[Roger Martin from CNC Software]

You will need to use ScriptLinker (and scroll down a bit) to do that.

[Wox]

Hello,

 

i have another question about VBS : I look for a description for VBS in Mastercam where i can found the commands that available?

Is there a PDF ?

 

Sincerely

[kdgrills]

As I said in post #2:

 

I case you're not aware, documentation of the vbscript functions available is in VBScript.htm.

(in the help subdirectory, under your mastercam installation directory.)

 

There is also SCRIPT56.CHM in the same location, which contains general documentation about the language itself.

 

on my system that's C:\Program Files\mcamx6\help for X6, C:\Program Files\mcamx7\help for X7

[Wox]

Oh sorry i have overlooked this.

I have found the help files THX!