Loading levels

[Bullines]

Unprompted debug version it is, then:

 

code:

---

Const DEF_CSV_FILE = "C:pathtoyourfile.csv"

Const DEF_FSO_FORREADING = 1

Const DEF_UNNAMED_LVL = """""""."""""""

 

' Kick off our script

Call Main()

 

' Purpose: The main subroutine

Sub Main()

Dim objFSO

Dim objTS

Dim strInLine

Dim arrTokLine

 

 

ShowString "Debug 1"

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

ShowString "Debug 2"

 

' Make sure the file is actually there and bail if it isn't.

If Not (objFSO.FileExists(DEF_CSV_FILE)) Then

objFSO = Nothing

ShowString("File not found!" & vbLf & vbLf & DEF_CSV_FILE)

Exit Sub

End If

 

ShowString "Debug 3"

 

Set objTS = objFSO.OpenTextFile(DEF_CSV_FILE, DEF_FSO_FORREADING, False)

 

ShowString "Debug 4"

 

' Read the CSV file line by line. For each line, make sure that it

' contains a comma. If it does, tokenize on the comma into an array.

' The first element is the level number and the second element is

' the level name. Set the named levels based on what's in the array.

Do While(objTS.AtEndOfStream <> True)

strInLine = Trim(objTS.ReadLine)

 

If (InStr(1, strInLine, ",")) Then

arrTokLine = Split(strInLine, ",")

 

If Not (arrTokLine(1) = DEF_UNNAMED_LVL) Then

Call SetLevelName(arrTokLine(0), Trim(arrTokLine(1)))

End If

End If

Loop

 

ShowString "Debug 5"

 

' Close the CSV file. We're done with it.

objTS.Close

 

ShowString "Debug 6"

 

' Cleanup

Set objFSO = Nothing

Set objTS = Nothing

 

ShowString "Debug 7"

 

' All done!

ShowString ("All done!")

End Sub

---

Of course you'll have to update the contents of DEF_CSV_FILE so that it matches the path to your CSV file on your computer.

[pip]

Only gets to debug 2 before afformentioned error

[Bullines]

Do you get the "File Not Found" error before you get the runtime error?

[pip]

No. Straight in with the run time error

[Bullines]

Does this portion in the script on your computer look exactly like this (excluding the debug messages)?

 

code:

---

    Set objFSO = CreateObject("Scripting.FileSystemObject")

 

' Make sure the file is actually there and bail if it isn't.

If Not (objFSO.FileExists(DEF_CSV_FILE)) Then

objFSO = Nothing

ShowString("File not found!" & vbLf & vbLf & DEF_CSV_FILE)

Exit Sub

End If

---

[pip]

Found the problem!!! my firewall was blocking access to the folder where I had placed my CSV file.

My script was exactly right, as you wrote it. Thanks . Moved the file to a directory with full access then all worked well.

Thanks.

[Go Navy]

Good Morning

 

I just wanted to say thanks to everyone in this forum!! I have learned more in the past few days than in the past few months. Thanks for all the tips and great ideas like loading levels it all makes so much sense.

 

Have a great day

Al

[Jody]

Thanks Chris, that is cool, can it move the entities to the correct level? ie. wireframe is level 100 puts all wireframe on level 100, surfaces level 200 puts all surfaces on leve 200.......

 

 

is that easy to do?

 

Jody

[Guest CNC Apps Guy 1]

Thank you a TON Bullines. WOrks like a charm.

 

BTW you guys struggling with Excel, I created that CSV file in PFE32. A CSV file is just that, data, in a columner fashioned seperated by commas(in this case), tabs, spaces, etc... As long as the format is correct, you can create them in any text editor.

 

HTH

[Guest CNC Apps Guy 1]

Oh, and if you don't care to see the "It's Done" you can comment out the "ShowString ("All done!")" line. My Mastercam X fires right up (except for the "Script Warning, do you want to allow this..." message. Gotta be safe you know.

 

Thanks again friends. Time saver, time saver, timesaver.

[Bullines]

quote:

---

can it move the entities to the correct level? ie. wireframe is level 100 puts all wireframe on level 100, surfaces level 200 puts all surfaces on leve 200.......

 

 

is that easy to do?

---

Easy to do with the C-Hook and Nethook APIs. Not possible with the VBScript API as it only has access to basic wireframe entities (points, lines and arcs), and not other entities like surfaces and solids.

[Allan]

ctmJody, have you used the EA manager? That in conjunction with the script would work dandy.

 

Allan

[Jody]

Allan no I have not used EA Manager. I will look in to it.

 

Thanks guys

 

Jody

[Guest CNC Apps Guy 1]

:bump:

 

Just in case anybody missed this dandy little utility I added it to the "VB_Scripts" folder on the FTP. It's called "CSV2Levels VB Script.zip"

 

Hope it helps others as much as it's helped me. Thanks again for all who contrbuted.

[Guest]

:bump:

[Fred from Université de Sherbrooke]

Really like this utility. Just wondering how the vbs could be modified to take care of the level set?

 

When we run the script, it only take levels names and not the levels set.

 

Any idea?

[Guest CNC Apps Guy 1]

Perhaps another comma and your level set name???

[Fred from Université de Sherbrooke]

I think the problem is on this line...

Call SetLevelName(arrTokLine(0), Trim(arrTokLine(1)))

 

The function is called SetlevelName, I think it only set the level name and not the level set.

 

I did the test with another comma but got a script error.

 

Thank's

[connormac]

I set up 2 different short cuts,

 

1. MCX2 new file, that opens mastercam and runs set_level.vbs like Pete said to do and I'm ready to start a new file with all levels set. (Thanks Pete, Bullins, and James)

 

2. MCX2 open file, that opens mastercam and runs Thad's file open.vbs ,so I can open an existing mastercam file. ( Thanks Thad )

 

This forum is so cool

 

Thanks all

[pip]

Okay, I had forgot all about this script, but I am back on Mastercam as of December (new job).

What I want to know is can this script also be adapted to enter the attributes values. Anyone know where all the VB commands are for Mastercam?