HELP Importing Machine Group with vbs script

[alexicroteau]

Hello,

 

I need help creating a vbs script to import  machine groups. 

 

here is what I do now:

 

click on "MACHINE TYPE" on the file menu

click on "Router"

click on "1 C:\users\...."

 

I would like to map a key to do this.

 

I often insert up to 50 Machine Groups in a single mastercam file, so it is very time consuming.

 

I would be even greater to have a message box to prompt me for the quantity of machine groups and import them automatically.

 

any help will be appreciated

 

thank you

Alexi

 

 

 

 

 

 

 

[Roger Martin from CNC Software]

Alexi,

 

Maybe just some confusion on my part in the wording of your request.

It sounds as if you are not really "importing", you are creating Machine Group(s) by selecting a Machine Definition - correct?

'////////////////////////////////////////////////////////////////////////////////
'//
'//        Author:   CNC Software, INnc.
'//          Date:   22/09/2015 
'//     File Name:   MillMachineGroup.vbs
'//
'//   Description:   Mastercam VB Script
'//
'//      Comments:   Creates Mill Machine Group(s)
'//
'////////////////////////////////////////////////////////////////////////////////

'///////////////// Constants /////////////////
Public Const PRODUCT_MILL   = 0
Public Const PRODUCT_LATHE  = 1
Public Const PRODUCT_WIRE   = 2
Public Const PRODUCT_DESIGN = 3
Public Const PRODUCT_ROUTER = 5

Public Const CNC_MACHINES_FOLDER = "C:\Users\Public\Documents\shared mcamx9\CNC_MACHINES\"
Public Const MACHINE = "ROUTER 5-AXIS HEAD-HEAD.RMD-9"

' -- Start Script
Call Main()                

' ////////////////////
' Sub Declaration
' ////////////////////
Sub Main()

Dim numMachines
Dim index

If askNumber("How many Machine Groups?", 1, 100, numMachines) Then
 For index = 1 To numMachines Step 1
  ChangeMachineType(PRODUCT_ROUTER)
  SetActiveMachine(CNC_MACHINES_FOLDER + MACHINE)
 Next
End If

End Sub

To be able to execute a VB Script via a toolbar icon and/or keystroke you need to "link" it using ScriptLinker ->

 

http://www.mastercam.com/en-us/Support/Downloads/Mastercam

Select the Masterversion: X8 or X9

Scroll down to the Add-Ons section.

Download and install ScriptLinker.

Read the included instructions on how to "link" a VB Script.

[alexicroteau]

thank you... it works great!