hexagon logo

Is there a way to figure out the name of the dimension for a particular analysis view?

I have a script which enumerates over all the commands in a program. 

What it does, among other things is to help us convert reporting from legacy to GeoTol. 

We are only updating those dimensions that are ballooned on the print. Anything that is reference only is not getting updated.

Below is part of my script:

If dmis_command.Type = 176 Then
dmis_command.Remove
End If

The analysis views that I want to delete, (because I'm going to be redoing them), will be exporting to stats. 

What I'd like is to find a way to either find out what the NAME of the analysis view's dimension is, or else find out if it's exporting. 

If it's not exporting, I'd like to leave the analysis view right where it is, because we're not going to replace the dimension with a GeoTol version.

How would I go about doing this?

Parents
  • Does this help get you on the right track?

    Sub Main()
    
        Dim DmisApp As Object
        Dim DmisCmds As Object
        Dim DmisCmd As Object
        Dim DmisPart As Object
    
        Set DmisApp = CreateObject("PCDLRN.Application")
        Set DmisPart = DmisApp.ActivePartProgram
        Set DmisCmds = DmisPart.Commands
    
        For Each DmisCmd In DmisCmds
            If DmisCmd.Type = 176 Then          
                MsgBox DmisCmd.GetText(REF_ID, 1) 
            End If
        Next DmisCmd
    
        Set DmisCmd = Nothing
        Set DmisCmds = Nothing
        Set DmisPart = Nothing
        Set DmisApp = Nothing
    End Sub

Reply
  • Does this help get you on the right track?

    Sub Main()
    
        Dim DmisApp As Object
        Dim DmisCmds As Object
        Dim DmisCmd As Object
        Dim DmisPart As Object
    
        Set DmisApp = CreateObject("PCDLRN.Application")
        Set DmisPart = DmisApp.ActivePartProgram
        Set DmisCmds = DmisPart.Commands
    
        For Each DmisCmd In DmisCmds
            If DmisCmd.Type = 176 Then          
                MsgBox DmisCmd.GetText(REF_ID, 1) 
            End If
        Next DmisCmd
    
        Set DmisCmd = Nothing
        Set DmisCmds = Nothing
        Set DmisPart = Nothing
        Set DmisApp = Nothing
    End Sub

Children