VBscrpit prompt question

[Leif Johnson from MICO Inc]

I am trying to write a startup script for X and I am having a problem.

 

Start=AskString("Create a new file? (y or n)")

 

The prompt window appears and is blank as it should be. But I have to type the info (y or n) in & run the script again. Then it will be in the drop down. How do I get the options to load when the script starts the first time?

 

Thanks

Leif

[Mick from CNC Software Inc.]

Leif,

 

Can you post your code as I am not sure I understand your question.

[Leif Johnson from MICO Inc]

Dim Start

Dim LatheMill

'///////////////// My Global Variables //////////

' -- Start Script

Call Main()

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

' Sub Declaration

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

Sub Main()

Start=AskString("Create a new file? (y or n)")

If Start = "y" Then

LatheMill=AskString("Lathe or Mill?")

If LatheMill = "Mill" Then

SetLevelName 10, "Finished part"

SetLevelName 20, "Raw material"

SetLevelName 30, "Fixtures"

SetLevelName 40, "Plane geometry"

End If

If LatheMill = "Lathe" Then

SetLevelName 10, "Finished part"

SetLevelName 20, "Finished slice"

SetLevelName 20, "Raw material"

SetLevelName 21, "Raw slice"

SetLevelName 20, "Raw revolve"

SetLevelName 30, "Fixtures"

SetLevelName 40, "Plane geometry"

End If

End If

If Start = "n" Then

Call RunMastercamCommand("OnFileOpen") 'Opens default MCX foulder at startup

End If

End Sub

[crazy^millman]

On a different thing. I see a possbile problem:

code:

---

End If

If LatheMill = "Lathe" Then

SetLevelName 10, "Finished part"

SetLevelName 20, "Finished slice"

SetLevelName 20, "Raw material"

SetLevelName 21, "Raw slice"

SetLevelName 20, "Raw revolve"

SetLevelName 30, "Fixtures"

SetLevelName 40, "Plane geometry"

End If

---

You are setting the levles the same on a few of these item I think this might give you problems when you do get the other problem solved.

 

HTH

[Leif Johnson from MICO Inc]

We only 1 file per operation. There would never be a mill & lathe in the same MCX file. But it might be a good idea for me to have a definite separation in the levels. It will more than likely be completely different when it is completed. Thanks for the input!

 

Thanks

Leif

[MLewis]

Sub Main()

Dim Start

Dim LatheMill

If askYesNo("Create a new file?") Then

LatheMill=AskString("Lathe or Mill?")

 

If instr(Ucase(LatheMill),"MILL") Then

showstring ("mill")

SetLevelName 10, "Finished part"

SetLevelName 20, "Raw material"

SetLevelName 30, "Fixtures"

SetLevelName 40, "Plane geometry"

End If

If instr(Ucase(LatheMill),"LATHE") Then

SetLevelName 10, "Finished part"

SetLevelName 20, "Finished slice"

SetLevelName 20, "Raw material"

SetLevelName 21, "Raw slice"

SetLevelName 20, "Raw revolve"

SetLevelName 30, "Fixtures"

SetLevelName 40, "Plane geometry"

End If

Else

Call RunMastercamCommand("OnFileOpen") 'Opens default MCX foulder at startup

End If

 

End Sub

[Leif Johnson from MICO Inc]

Thanks Mike, that is exactly what I was looking for. I just needed to get an idea of how this works. Now I can do some building.

 

Thanks again!

Leif