hexagon logo

Basic script for using probe utilities

I need some help. I'm trying to write basic script to using probe utilities after execute like when we push F9 on Edit window mode (or Ctrl+Alt+p). And after, I can using it like on edit window mode.

Pls, advise me. ThankSlight smile

With this script, I tried to do it but it's always disappear after run.

Sub Main
Dim app As Object
Dim partp As Object
Dim aa As Object
Set app = CreateObject ("PCDLRN.application")
Set partp = app.activepartprogram

Set aa = partp.Probes.application

End Sub