Help - VB Problem

[connormac]

OK Guys and Gals,

 

I have a prototype part that has 7 different operations. I programmed it a few months ago using a proven post. That particular version of my post did not use VB scripts. Now we are producing a large quantity, so I need to post it for all machines. The multi-post VB script that I am currently using won't work on Operation 1, but will work on the other operations. I have 5 different VB's and in this 1 program the VB's won't even run. Not only that, when I try to produce a set-up sheet using mill.set, the set-up sheet will come up but MasterCam closes itself. Hope this makes some kind of sense. I cannot see anything obvious about this operation that causes these problems. Have any of you encountered this type of problem? All input is greatly appreciated!

[Bullines]

Maybe post some code so we can examine why the script isn't posting the first operation.

[connormac]

Morning Bullins,

 

You mean you want to see the nc code?

[Bullines]

Nope. The code for the VBS script that isn't working properly.

[connormac]

I put it on the FTP site

 

multipost Prog_connormac

[connormac]

Just so you know the script works on everything else. The strange thing is none of my VB's work on this 1 program.

[Bullines]

Nothing jumps out at me as being wrong. Will any scripts run? Even something as simple as:

 

code:

---

Call Main()

 

Sub Main()

ShowString "Hello Mastercam VBS World!"

End Sub

---

[connormac]

Just a sec. I'll Check. And what do you think about the same program throwing me out of mastercam when I use mill.set to make set-up sheet?

[connormac]

yes that works. Plus Mick has helped me with some create folder VB's that work while I have this program up. the only diffrence I can fell is the create folder doesn't have this line

 

 

' -- Check for drawing

If IsDrawing Then

 

Could it be something about the drawing?

[Bullines]

The IsDrawing() function determines if you have a valid MC9 open. The MC9 is considered valid if it contains at least one entity (line, arc or point). If IsDrawing() returns False, then the script packs it in and calls it a day.

 

code:

---

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

' Sub Declaration

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

Sub Main()

 

'On Error Resume Next

 

' -- Check for drawing

If IsDrawing Then ' <- if this fails, the nothing else in the script is executed

 

 

Dim companyname

Dim Program

 

' and so on...

---

So another test on that file could be this:

 

code:

---

Call Main()

 

Sub Main()

If (IsDrawing) Then

ShowString "Hello Mastercam VBS World!"

End If

End Sub

 

Function IsDrawing()

Dim bRet

 

 

bRet = StartDBSearch(mc_alive, -1)

IsDrawing = bRet

End Function

---

[connormac]

I'll check in a bit son just got up. Will try it in a bit thanks.