VBS Script for Multi Posts

[connormac]

I did a search on multi posting and found a script written by Mick at CNC Software. He was talking to James M & Rekd. My only question is how to run the script. I have it all written just like Mick said, now what in the world do I do with it

 

help please

[crazy^millman]

Ok you need ot do alt c and bring up chook mcamvb. Here you will see a place to load a script or run a script or you can also map a toolbar to the VB script and run it that way.

 

Now a question for you did you go the FTP and get the ZIP out of the VB folder there is a very good explaintion of things to do and to watch for when using the multipost and the VB scripts.

 

HTH

[connormac]

thanks Ron

 

I am trying to get on the FTP site and look for stuff now. Man you always seem to help me out.

 

thanks.

[crazy^millman]

I would also look ofr the multi post. The Vb part of it was for folder selection to put the files in the right place as well as some other functions if memeory serves me correct. You can set up the multi post you can do liek your post for one post then your set ot html set-up sheet as your others and if you had a txt that did soemthing it could be your third. Then when you post you get a post file a set-up sheet then a txt file like report or something you hsve developed for any additional information.

 

Glad if I can help anyone and that is reward enough for me.

[connormac]

Thanks we have 7 diffrent machines to post to and it takes a while. So I am trying to make it easier on my wife and myself.

 

kyle

[connormac]

OK I got it to work but is it possible to change the script to go to the folder set by setdir.dll when I start up MC?

[Mick from CNC Software Inc.]

connormac,

 

Do you always want to output to the same folder? If so you can edit the script and hard code that path.

[connormac]

Mick,

 

No the folder will change with each part number. By the way the script was cool. All I have to do is figure out why sometimes it opens program editor. besides that it works great.

 

Thanks

Kyle

[crazy^millman]

Thta would be in the place where you post turn off the edit and that might fix it.

 

HTH

[connormac]

The Box is not checked. I have it posting for 7 diffrent machines but it doesn't pull all 7 up in program editor. If that makes since.(sp)

 

Kyle

[crazy^millman]

Yeah it does look in the script and see if it has soemthing about go to script in the debug or something. Might be there is not Mick will have to be the one to figure that one out.

[Bullines]

When you're calling the RunPost() or RunPostAll() functions, are you setting the last parameter to True or False? Passing it True will open the editor.

[Mick from CNC Software Inc.]

Just curious, what is your default editor?

[Mick from CNC Software Inc.]

quote:

---

he Box is not checked. I have it posting for 7 diffrent machines but it doesn't pull all 7 up in program editor. If that makes since.(sp)

---

Check your posts to see if they have the variable bug1 set to anything other than 0, if so make them 0 to suppress the editor.

 

code:

---

# --------------------------------------------------------------------------

# Debugging and program switches

# --------------------------------------------------------------------------

fastmode : 1 #Posting speed optimizition

bug1 : 2 #0=No display, 1=Generic list box, 2=Editor

---

[connormac]

Cimco editor. after break I will check the bug

 

 

Thanks

Kyle

[connormac]

This is what my Bug1 line says

# --------------------------------------------------------------------------

# DEBUG/PROGRAM SWITCHES, debugging and program switches

# --------------------------------------------------------------------------

bug1 : 2 # 1=Output post to screen, 2=output leader to screen

do I need to add

 

#0=No display

[connormac]

can I put this in as questions

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

' Sub Declaration

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

Sub Main()

 

On Error Resume Next

 

Do 'ask until a real company name is entered

companyname=AskString("company Name?")

Loop While companyname="company Name?" Or companyname="((ESC))" Or companyname=""

 

Do 'ask until a real program number is used

Program=AskString("PI number?")

Loop While Program="PI number?" Or Program="" Or Program="((ESC))"

 

 

then use this

 

'///////////////// My Constants /////////////////

Public Const DEF_FIRST_POST = "OP_KH.pst"

Public Const DEF_CNC_1 = "C:'Company Name'PI numberNC CodeOP"

Public Const DEF_SECOND_POST = "550_KH.PST"

Public Const DEF_CNC_2 = "C:'Company Name'PI numberNC Code550"

Public Const DEF_THIRD_POST = "1000_KH.PST"

Public Const DEF_CNC_3 = "C:'Company Name'PI numberNC Code1000"

Public Const DEF_FOURTH_POST = "Okuma_KH.PST"

Public Const DEF_CNC_4 = "C:'Company Name'PI numberNC CodeOkuma"

Public Const DEF_FIFTH_POST = "V30_KH.PST"

Public Const DEF_CNC_5 = "C:'Company Name'PI numberNC CodeV30"

Public Const DEF_SIXTH_POST = "V40_KH.PST"

Public Const DEF_CNC_6 = "C:'Company Name'PI numberNC CodeV40"

Public Const DEF_SEVENTH_POST = "760_KH.PST"

Public Const DEF_CNC_7 = "C:'Company Name'PI numberNC Code760"

 

to send it to the right folder

 

Got the questions from setup sheets.vbs off FTP site.

 

Kyle

[Bullines]

You cannot modify constant variables (variables declared with the 'Const' keyword). Instead, one way would be to create two seven-element arrays to hold the company names and pi numbers and that you read in your two DO loops (you'll need variables for index counters that you'll have to increment in each iterations) like this:

 

code:

---

Dim arrCompanyName(7)

Dim arrPiNumber(7)

---

Then you'll have to assemble your seven paths, after you've prompted for company name and pi number, something like this:

 

code:

---

Dim strCNC1

Dim strCNC2

' and so on...

Dim strCNC7

 

' assemble paths

strCNC1 = "C:" & arrCompanyName(0) & "" & arrPiNumber(0) & "NC CodeOP"

strCNC2 = "C:" & arrCompanyName(1) & "" & arrPiNumber(1) & "NC Code550"

' and so on...

---

There's more efficient ways to write this and sorry for the lack of complete code but it's quite early in the morning right now I'll finish it up when I'm in the office.

[connormac]

Thanks for the help sorry to be a pain. Just getting tired of posting indvidual machines.

 

Thanks

 

Kyle

[Mick from CNC Software Inc.]

connormac,

 

Send me your script, posts and an explanation of what you want and I'll take a look over lunch

[connormac]

Where do I send It

 

Thanks Kyle

[Mick from CNC Software Inc.]

[email protected]

 

Zip up everying and then rename the file to .zid

[connormac]

Sorry I haven't sent you that file yet. I'm working on the floor today. will send it as soon as possible. By the way I add " 0 = No Display " to all my post and program editor quit comming up.

 

Thanks

 

Kyle

[Bullines]

quote:

---

I'll finish it up when I'm in the office.

---

Ignore that. Looks like Mick will take a look at it. You're in good hands

[connormac]

This is what I have so far. I'm sending at break time.so I have to hurry

 

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

'//

'// Author: Mick George [email protected]

'// Date: 16/09/2003 12:58 PM

'// File Name: MULTIPOST.VBS

'//

'// Description: Posts drawing to two defined posts

'//

'// Comments:

'//

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

 

 

'///////////////// My Constants /////////////////

Public Const DEF_FIRST_POST = "OP_KH.pst"

Public Const DEF_SECOND_POST = "550_KH.PST"

Public Const DEF_THIRD_POST = "1000_KH.PST"

Public Const DEF_FOURTH_POST = "Okuma_KH.PST"

Public Const DEF_FIFTH_POST = "V30_KH.PST"

Public Const DEF_SIXTH_POST = "V40_KH.PST"

Public Const DEF_SEVENTH_POST = "760_KH.PST"

 

 

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

 

 

' -- Start Script

Call Main()

 

 

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

' Sub Declaration

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

Sub Main()

 

On Error Resume Next

 

Do 'ask until a real company name is entered

companyname=AskString("Company Name?")

Loop While companyname="Company Name?" Or companyname="((ESC))" Or companyname=""

 

Do 'ask until a real program number is used

Program=AskString("Part number?")

Loop While Program="Part number?" Or Program="" Or Program="((ESC))"

 

 

Dim arrCompanyName(7)

 

Dim arrProgram(7)

 

Dim strCNC_1

Dim strCNC_2

Dim strCNC_3

Dim strCNC_4

Dim strCNC_5

Dim strCNC_6

Dim strCNC_7

 

'assemmble paths

strCNC_1 = "C:" & arrCompanyName(7) & "" & arrProgram(7) & "NC CodeOP"

strCNC_2 = "C:" & arrCompanyName(7) & "" & arrProgram(7) & "NC Code550"

strCNC_3 = "C:" & arrCompanyName(7) & "" & arrProgram(7) & "NC Code1000"

strCNC_4 = "C:" & arrCompanyName(7) & "" & arrProgram(7) & "NC CodeOkuma"

strCNC_5 = "C:" & arrCompanyName(7) & "" & arrProgram(7) & "NC CodeV30"

strCNC_6 = "C:" & arrCompanyName(7) & "" & arrProgram(7) & "NC CodeV40"

strCNC_7 = "C:" & arrCompanyName(7) & "" & arrProgram(7) & "NC Code760"

 

Dim strCurrentPost

 

' -- Check for drawing

If IsDrawing Then

 

' -- Store current post

strCurrentPost = GetPostName

 

' -- Set first post as current post

Call SetPostName(DEF_FIRST_POST)

 

' -- Post it

Call RunPostAll(CNC_1, False)

 

' -- Set second post as current post

Call SetPostName(DEF_SECOND_POST)

 

' -- Post it

Call RunPostAll(CNC_2, False)

 

' -- Set third post as current post

Call SetPostName(DEF_THIRD_POST)

 

' -- Post it

Call RunPostAll(CNC_3, False)

 

' -- Set fourth post as current post

Call SetPostName(DEF_FOURTH_POST)

 

' -- Post it

Call RunPostAll(CNC_4, False)

 

' -- Set fifth post as current post

Call SetPostName(DEF_FIFTH_POST)

 

' -- Post it

Call RunPostAll(CNC_5, False)

 

' -- Set sixth post as current post

Call SetPostName(DEF_SIXTH_POST)

 

' -- Post it

Call RunPostAll(CNC_6, False)

 

' -- Set seventh post as current post

Call SetPostName(DEF_SEVENTH_POST)

 

' -- Post it

Call RunPostAll(CNC_7, False)

 

 

 

 

' -- Set mc back to original post

Call SetPostName(strCurrentPost)

 

End If

 

 

End Sub

 

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

' Function Declaration

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

 

Function IsDrawing()

 

Dim Ret

 

Ret = StartDBSearch(mc_alive, -1)

 

IsDrawing = Ret

 

End Function

 

 

It almost works. it gets to c:regaltest

 

but stops there and only posts the 760

I think it it just puts one post on top ov another

and ends up with the 760 because it is the last post