Asymmetric Extrude

[kulkarniyh12.mech]

I am trying to create Asymmetric Extrude Surface as follows:

Dim oExtrudeDef As ExtrudeDefinition

oExtrudeDef = oCompDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfileOne, PartFeatureOperationEnum.kSurfaceOperation)

oExtrudeDef.SetDistanceExtent(length + otherEndExtension, dir)

oExtrudeDef.SetDistanceExtentTwo(profileSideExtension) ' Create Surface Extrude Feature

Dim oExtrudeOne As ExtrudeFeature oExtrudeOne = oCompDef.Features.ExtrudeFeatures.Add(oExtrudeDef)

But this does not work. Any idea?

[Vladimir.Ananyev · Accepted solution]

The folowing code sample create asymmetric extruded surface:
10 mm in the positive direction + 40 mm in the negative direction.

Sub TestAsymmetricExtrusion()
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    Dim oDef As PartComponentDefinition
    Set oDef = oDoc.ComponentDefinition
    
    Dim oSketch As PlanarSketch
    Set oSketch = oDef.Sketches.Item(1)
    
    ' Create a profile based on the sketch geometry
    Dim oProfile As Profile
    Set oProfile = oSketch.Profiles.AddForSurface
 
    Dim oExtrudeDef As ExtrudeDefinition
    Set oExtrudeDef = oDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile, kSurfaceOperation)
    Call oExtrudeDef.SetDistanceExtent(1, kPositiveExtentDirection)
    Call oExtrudeDef.SetDistanceExtentTwo(4)
        
    Dim oExtrude As ExtrudeFeature
    Set oExtrude = oDef.Features.ExtrudeFeatures.Add(oExtrudeDef)
 
End Sub