problem in vbs

[maks]

Hi All,i have some problem in editing my vbs.

does the vbs can save the current level(main level) during a search,like "savesome /all/level"

thanks!

[Mick from CNC Software Inc.]

Hi maks,

 

Can you post some sample code?

[maks]

Hi Mick;

this is my frist vb.

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

 

Dim intLevelNumber

Dim strMc

Dim strOriginalPath

 

' -- Ask for a level

If askValue("Input level number",0,255, intLevelNumber) Then

SetLevelByNumber(intLevelNumber)

Call SetLevelVisibleByNumber(intLevelNumber,True)

Call RunMastercamCommand("fit")

'If Not IsDrawing Then

' ShowString "No drawing"

' Exit Sub

 

'intLevelNumber=GetEntityLevel

 

strOriginalPath = GetCurrentFileName

 

'renname with LevelNumber

strMC= Replace(LCase(GetCurrentFileName), ".mc9", "-intLevelNumber.mc9")

' save file

Call SaveMCAs(strmc,True)

 

Call RepaintScreen (True)

 

 

 

'End If

End If

End Sub

 

'entity serach

Function IsDrawing()

Dim Ret

Ret = StartDBSearch(mc_alive, -1)

IsDrawing = Ret

End Function

thanks!

[Bullines]

Maks, is this closer to what you're looking for?

 

code:

---

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

Dim intLevelNumber

Dim strMc

Dim strOriginalPath

Dim strNewExt

 

 

If IsDrawing Then

' -- Ask for a level

If askValue("Input level number",0,255, intLevelNumber) Then

SetLevelByNumber(intLevelNumber)

Call SetLevelVisibleByNumber(intLevelNumber,True)

Call RunMastercamCommand("fit")

 

strOriginalPath = GetCurrentFileName

 

'renname with LevelNumber

strNewExt = "-" & intLevelNumber & ".mc9"

strMC= Replace(LCase(GetCurrentFileName), ".mc9", strNewExt)

 

' save file

Call SaveMCAs(strmc,True)

Call RepaintScreen (True)

End If

End If

End Sub

 

 

'entity serach

Function IsDrawing()

Dim Ret

 

Ret = StartDBSearch(mc_alive, -1)

IsDrawing = Ret

End Function

---

[Mick from CNC Software Inc.]

maks,

 

Not sure if this is what you are after but it might give you some ideas.

 

code:

---

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

 

Dim intLevelNumber

Dim strMc

Dim strOriginalPath

 

 

' -- Turn on all levels

'Call ShowAllLevels()

 

 

If Not IsDrawing() Then

ShowString "No drawing"

Exit Sub

End If

 

' -- Ask for a level

If askNumber("Input level number", 0, 255, intLevelNumber) Then

 

'-- Loop all levels, hide all except the one the user wants

Dim i

 

For i = 0 To 255

 

If i <> intLevelNumber Then

Call SetLevelVisibleByNumber(i,False)

Else

Call SetLevelVisibleByNumber(i,True)

End If

 

Next

 

SetLevelByNumber(intLevelNumber)

Call RepaintScreen(True)

 

strOriginalPath = GetCurrentFileName()

 

'renname with LevelNumber

strMC= Replace(LCase(strOriginalPath), ".mc9", "-" & intLevelNumber & ".mc9")

 

' save file

Call SaveMCAs(strmc,True)

'Call ShowAllLevels()

Call RepaintScreen(True)

 

ShowString "File '" & strMC & "' has been saved"

 

End If

End Sub

 

'entity serach

Function IsDrawing()

Dim Ret

Ret = StartDBSearch(mc_alive, -1)

IsDrawing = Ret

End Function

 

 

 

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

' Function Declaration

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

Public Sub ShowAllLevels

 

'-- Loop all levels and show them

Dim i

 

For i = 0 To 255

Call SetLevelVisibleByNumber(i,True)

Next

 

End Sub

---

[Mick from CNC Software Inc.]

Bullines =P

[Bullines]

Ah, maybe that's what he was after. I didn't do so well in Telepathy101 and had to cheat off of Mick's tests just to pass

 

Maks, do you want the script to save a selected level to a file, or all EXCEPT for the selected level to a file, or something else?

[maks]

Mick and Bullines

thank you very very much for your help;

this is great helpful for me.

Refer to Bullines;

i want to save only selected level to a file.

but this is difficult for me,would you give me some ideas.

thanks

Maks

[Bullines]

In that case, Mick's script will do what you're looking for.

 

I forgot to hide the unselected levels in my script

 

HTH