Using SetPostName

[John T.]

When running the following script:

code:

---

check="False"

Do 'get machine type

machine=AskString ("Machine Type","")

If machine="Fadal" Then SetPostName=("C:MCAMX2millpostsfadal.pst")

check="True"

Exit Do

 

If machine="Makino" Then SetPostName=("C:MCAMX2millpostsmakino.pst")

check="True"

Exit Do

 

If machine="Leadwell" Then SetPostName=("C:MCAMX2millpostsleadwell.pst")

check="True"

Exit Do

 

Loop While check="false"

---

I get the error message

"type mismatch SetPostName" whenever I use the first machine listed, Fadal in this case. When I disabled the fadal related lines and typed in Makino, I got the same message, so something is happing to the first occurence of the name.

 

On another note, any way to set the machine definition from VB script?

[Roger Martin from CNC Software]

John,

 

A couple issues with this Script...

1> The reason for your "type mismatch SetPostName" error are the '=' signs. You're calling a function, so there should not be an equal sign between the function name and the function parameters->

If machine="Fadal" Then SetPostName=("C:MCAMX2millpostsfadal.pst")

check="True"

Should be as shown below...

 

2> I would suggest against using string variables (e.g."True") when you really want boolean True/False.

 

code:

---

' -- Start Script

Call Main()

 

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

' Sub Declaration

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

Sub Main()

Dim check

Dim machine

 

check=False

Do 'get machine type

machine=AskString ("Machine Type","")

If machine="Fadal" Then SetPostName("C:MCAMX2millpostsfadal.pst")

check=True

Exit Do

 

If machine="Makino" Then SetPostName("C:MCAMX2millpostsmakino.pst")

check=True

Exit Do

 

If machine="Leadwell" Then SetPostName("C:MCAMX2millpostsleadwell.pst")

check=True

Exit Do

 

Loop While check=False

End Sub

---

[Roger Martin from CNC Software]

"On another note, any way to set the machine definition from VB script?"

 

 

code:

---

' -- Start Script

Call Main()

 

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

' Sub Declaration

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

Sub Main()

' -- Clear memory - optional

Call NewMC(false)

' -- Create a toolpath group

CreateGroup

' -- Set the active machine to the specified machine definition

SetActiveMachine("C:McamX2-MR2cnc_machinesGENERIC FADAL FORMAT_1 4X MILL.MMD")

 

End Sub

---

[John T.]

OK Roger, Thanks.

 

On the machine definition, is SetActiveMachine in the VB script docs that come with MC? I went through them several times, and I don't remember seeing them. I'd look again but I'm at home without my docs.

[Roger Martin from CNC Software]

John,

 

From the VBSCRIPT.HTM which you see when you select Help - Mastercam VBScript within the Mastercam Editor. (Or you can find the VBSCRIPT.HTM in the {mastercam installed here}HELP folder).

 

code:

---

// Set the machine definition name

 

Bool SetActiveMachine(

 

String ) (Input: machine definition name)

---