Extract Location / Well information macro

Best Answer

• Options

  YuriG

  August 2020 Answer ✓

  Hi Henri,
  
  There is no documentation specifically for getting location suffix. You can check "Automation Reference" that contains descriptions for all low-level objects and functions, though it's a large help file with thousands of pages.
  You can just look at the LocationSuff function of ImageSetAnalyzer to see how it works.
  
  Here is a modified version of the macro that prints location suffix of the CurrentLocation of the active Image Set, you can just copy/paste it to your macro (assuming that you have all necessary references and Imports in your project):
  
  

      Public Sub PrintLocationSuffix
          Dim suff As String=LocationSuffix(ThisApplication.SelectedData.ImageSet)
          Debug.Print(suff)
      End Sub
  
      Private Function LocationSuffix(imSet As McImageSet) As String
          If imSet Is Nothing Then Return ""
          Dim lc As McImageSetLocations = imSet.GetCurrentLocation()
          Dim rgn As McImageSetRegion = imSet.ActiveRegion
          Dim s As String = ""
          If rgn.Sections(mcImageSetDimensions.mcisdTime).Extent <> 1 Then
              AddSuff(s, String.Format("t{0}", lc(mcImageSetDimensions.mcisdTime).Location + 1))
          End If
          If rgn.Sections(mcImageSetDimensions.mcisdZ).Extent <> 1 Then
              AddSuff(s, String.Format("z{0}", lc(mcImageSetDimensions.mcisdZ).Location + 1))
          End If
          If rgn.Sections(mcImageSetDimensions.mcisdSite).Extent <> 1 Then
              AddSuff(s, _imSet.Sites.Item(lc(mcImageSetDimensions.mcisdSite).Location).Name)
          End If
          If Not opt.AutoTile AndAlso rgn.Sections(mcImageSetDimensions.mcisdScan).Extent <> 1 Then
              AddSuff(s, String.Format("xy{0}", lc(mcImageSetDimensions.mcisdScan).Location + 1))
          End If
          'If s.Length = 0 Then Return "Comp"
          Return "_" & s
      End Function
  
  
      Private Sub AddSuff(ByRef s As String, suff As String)
          If s.Length > 0 Then s += "_"
          s += suff
      End Sub
  

  
  Yuri

  0