V4.3 mr1
Using marked sets to run programs in operator mode.
When I run them in online mode I use a window layout with the graphics window closed and then use a script to show the report window at the end.
Perfect!
Does not work in Operator mode. The graphics window is there every time.
Attempted the following script:
Sub Main
Dim App As Object
Dim PartProg As Object
Dim CadWin As Object
Set App = CreateObject("Pcdlrn.Application")
Set PartProg = App.ActivePartProgram
Set CadWin = PartProg.CadWindow
' Hide Cad Window
CadWin.Visible = False
End Sub
Get this error:
Error: Unknown name: CadWindow
Error: Unable to run basic script.
Dim App As Object
Dim PartProg As Object
Dim CadWin As Object
Dim Wind As Object
Set App = CreateObject("Pcdlrn.Application")
Set PartProg = App.ActivePartProgram
Set CadWin=PartProg.CadWindows
Set Wind=CadWin.Item(1)
' Hide Cad Window
Wind.Visible = False
End Sub
but I get an "expected end of statement" error code 800A0401 in line 3 char 9
I know this was posted in 2009 and I'm using 2011 mr1, could that be what the problem is?
Dim App As Object
Dim PartProg As Object
Dim CadWin As Object
Dim Wind As Object
Set App = CreateObject("Pcdlrn.Application")
Set PartProg = App.ActivePartProgram
Set CadWin=PartProg.CadWindows
Set Wind=CadWin.Item(1)
' Hide Cad Window
Wind.Visible = False
End Sub
but I get an "expected end of statement" error code 800A0401 in line 3 char 9
I know this was posted in 2009 and I'm using 2011 mr1, could that be what the problem is?