hexagon logo
Register Sign in
  • Replies 6 replies
  • Subscribers 30 subscribers
  • Views 82 views
  • Users 0 members are here
Options
Related

Hide Graphics Window

granpagus
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.

Any ideas?
Parents
  • Thank you vpt.se!

    This does what I need:

    Sub Main

    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
Reply
  • Thank you vpt.se!

    This does what I need:

    Sub Main

    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
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement