Create and run VBS in PST

[sour kraut]

THe idea is to have the post write the vbs file, save it, and then run it. I'm working in X7 and have seperated the process into a build postblock and a call postblock.When I run the build by itself it creates the file fine. but the call does not recognize the file as exhisting. If I have the vbs file already created and do not run the build postblock, it runs the vbs correctly. I think it has something to do with the closing of the file in the build. Any help would be very appreciated!

 

 

pvbsbuild1

sextaux$ ="vbs"

spathaux$=spathpst$

snameaux$="DXFSCRIPT"

subout$ = 2

auxprg$ = 1

s_vbscript=spathaux$+snameaux$+"."+sextaux$

 

"Call Main()",e$

"Sub Main()",e$

"writeDXF(",no_spc$,s_quote,no_spc$,spathpst$,no_spc$,"Label.DXF",no_spc$,s_quote,no_spc$,")",e$

"If Not askValue (",no_spc$,s_quote,no_spc$,"Please input a diameter",no_spc$,s_quote,no_spc$, ", 0 , 1000, dblDiameter) Then",e$

"Exit Sub", e$

"End If", e$

"End Sub", e$

auxprg$ = 0

subout$ = 0

result = fclose(s_vbscript)

 

 

pvbscall1

sextaux$ ="vbs"

spathaux$=spathpst$

snameaux$="DXFSCRIPT"

s_vbscript=spathaux$+snameaux$+"."+sextaux$

if fexist(s_vbscript),result = runvbs(s_vbscript)

[Colin Gilchrist]

Try moving the 'auxprg$ = 1' line before setting 'subout$ = 2'. You need to initialize the AUX file before attempting to switch the output stream.

 

Also, try testing the return value from 'fclose' in your 'pvbsbuild1' post block. You could just add the following:

 

~result, e$

 

That will output the value of result and tell you if it was successful in closing the file.

[sour kraut]

Alright, I moved "augprg$=1" before "subout$=2" and added the *result,e$ so it would output. When I post, it does the same thing and the nc file shows that result = 0, which shows it has closed but it still doesn't run as a vbscript. I ran it through the debug and placed a breakpoint at the beginning of the call postblock. When the post execution stopped, I checked the file in the windows enviroment and it stated that mastercam was still using the file when I tried to delete it. This tells me that it is not truely closing the file. Is there another way to force it to close the file?

[Colin Gilchrist]

Try using 'clearaux$' after the 'fclose' command, and see if that closes it...

[sour kraut]

I tried the clearaux$ and it deleted everything in the file. This got me wondering, I changed the build postblock so it would call a new aux after closing this one. Long story short, all the info that is suppost to go to the new one is going to this one. So it is definitely not closing the file even though it says it is.

[Colin Gilchrist]

Please create a Zip to Go file and send it to '[email protected]'. I'll take a look...

[sour kraut]

email sent.

[Colin Gilchrist]

Great, thanks, I'll take a look. I've got a few meetings this afternoon as we wrap up our 2 week development cycle, so I might not be able to get you an answer until Monday, but I'll see what I can do...