How to check the direction of an extrude feature

[Anonymous]

How to check the direction of an existing extrude feature 

kPositiveExtentDirection 
 kNegativeExtentDirection 
 kSymmetricExtentDirection

[Vladimir.Ananyev · Accepted solution]

PartFeatureExtent object returns direction of its extrude feature.

Try this VBA code:

Sub ExtrusionDir()

  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
  
  Dim oDef As PartComponentDefinition
  Set oDef = oDoc.ComponentDefinition
  
  Dim oExtrFeatures As ExtrudeFeatures
  Set oExtrFeatures = oDef.Features.ExtrudeFeatures
  
  Dim oExtrFeature As ExtrudeFeature
  Set oExtrFeature = oExtrFeatures.Item(1)
  
  Dim oExtrDef As ExtrudeDefinition
  Set oExtrDef = oExtrFeature.Definition
  
  Dim oExtent As PartFeatureExtent
  Set oExtent = oExtrDef.Extent
  
  Dim oDir As PartFeatureExtentDirectionEnum
  oDir = oExtent.Direction

    ' PartFeatureExtentDirectionEnum:
    'kNegativeExtentDirection  = 20994
    'kPositiveExtentDirection  = 20993
    'kSymmetricExtentDirection = 20995

End Sub

[Anonymous]

Thank you