Attribute VB_Name = "Module08"
 
Public Function ArrayGeometry(Doc As PartDocument)
   Dim oDef As PartComponentDefinition
  
   Set oDef = Doc.ComponentDefinition

   Select Case FeatureType
     Case "Rectangular"
          Dim oRP As RectangularPatternFeature

          Set oRP = oDef.Features.RectangularPatternFeatures.Item("Rectangular Pattern1")
  
          Dim oPar As Inventor.Parameter

          Set oPar = oRP.Xcount
  
          Xcount = oPar.Value
  
          Set oPar = oRP.Ycount
  
          Ycount = oPar.Value
  
          Set oPar = oRP.Xspacing
  
          Xspacing = oPar.Value * 10
  
          Set oPar = oRP.YSpacing
  
          YSpacing = oPar.Value * 10
            
          Dim i As Integer
  
          Dim oFPE As FeaturePatternElement
  
          For i = 1 To oRP.PatternElements.Count
              Set oFPE = oRP.PatternElements.Item(i)
     
              If oFPE.Suppressed = False Then
                 ' Call RectangularArray
              End If
          Next i
     Case "Circular"
          Dim oCP As CircularPatternFeature

          Set oCP = oDef.Features.CircularPatternFeatures.Item("Circular Pattern1")
  
          Dim oPar As Inventor.ModelParameter

          Set oPar = oCP.Count

          Xcount = oPar.Value

          Set oPar = oCP.Angle

          Angle = oPar.Value * Rad

          Set oPar = oCP.FitWithinAngle
          
          FitAngle = oPar.Value * Rad

          For i = 1 To oCP.PatternElements.Count
              Set oFPE = oCP.PatternElements.Item(i)
     
              If oFPE.Suppressed = False Then
                 ' Call CircularArray
              End If
          Next i
    End Select
End Function