hexagon logo

Probe Utilites Box

Does anyone know a way of closing the probe utilities box using VBA? I have tried using the Dialog method under the Probe Objects. I used Dialog.visible=False but couldn't get it to work. Is there possibly another way of doing this?
Parents
  • Hello,

    pcDMIS can't have intended this, but it seems to be working? could you please test this ^^

    in a test by me this script closes the probe dialog if it is open (v2021.2​).

    Sub Main()
    ' Dim Something
      Dim App As Object
      Set App = CreateObject("PCDLRN.Application")
    
      Dim Part As Object
      Set Part = App.ActivePartProgram
      Dim Name_of_a_Probe_as_string as string
    
    ' dialog ?
      Name_of_a_Probe_as_string = "G1_SP_60_4"
      Part.Probes.Item(Name_of_a_Probe_as_string).Dialog
    
      ' free something
      Set Part = Nothing
      Set App = Nothing
    End Sub
    ​


    I advise against using it even if it works. This cannot be intentional and may ruin your probe file.
Reply
  • Hello,

    pcDMIS can't have intended this, but it seems to be working? could you please test this ^^

    in a test by me this script closes the probe dialog if it is open (v2021.2​).

    Sub Main()
    ' Dim Something
      Dim App As Object
      Set App = CreateObject("PCDLRN.Application")
    
      Dim Part As Object
      Set Part = App.ActivePartProgram
      Dim Name_of_a_Probe_as_string as string
    
    ' dialog ?
      Name_of_a_Probe_as_string = "G1_SP_60_4"
      Part.Probes.Item(Name_of_a_Probe_as_string).Dialog
    
      ' free something
      Set Part = Nothing
      Set App = Nothing
    End Sub
    ​


    I advise against using it even if it works. This cannot be intentional and may ruin your probe file.
Children
No Data