If the extrude feature has been created using the distance extent, you can
get the parameter corrresponding to this from the ExtrudeFeature.Extent
property:
Public Sub ExtrudeFeat()
Dim ActivePartDoc As PartDocument
Set ActivePartDoc = ThisApplication.ActiveDocument
Dim ExtrudeFeat As ExtrudeFeature
Set ExtrudeFeat =
ActivePartDoc.ComponentDefinition.Features.ExtrudeFeatures(1)
If ExtrudeFeat.ExtentType = kDistanceExtent Then
Dim ExtrudeFeatDistExtent As DistanceExtent
Set ExtrudeFeatDistExtent = ExtrudeFeat.Extent
ExtrudeFeatDistExtent.Distance.Expression = "2.0 in"
End If
End Sub
If you need to change the extrude feature from another extent type to
distance extent, you can use the ExtrudeFeature.SetDistanceExtent method.
-Venkatesh Thiyagarajan.
wrote in message news:5644482@discussion.autodesk.com...
How to set the parameter expression for extrude feature's distance
like we set for taper angle oExtrude.TaperAngle.Expression=TAPER_ANGLE
