Syntax for Extrude Surface

[TatianaR]

Hello
Somebody knows syntax for Extrude Surface?
Realy need
Best regards
Tatiana

[RodrigoEiras · Accepted solution]

Hi Tatiana,

I have been taking a look and it seems the syntax is the same as for solid extrusion, but the difference is done when defining the profile used for the extrusion.

It seems you need to use the Method below when defining the profile.

Profiles.AddForSurface( [Curve] As Variant ) As Profile

I also found an example in API help

 ' Create a profile for the first extrude.
    Dim oProfileOne As Profile
    Set oProfileOne = oSketch.Profiles.AddForSurface(oLineOne)

    ' Create an surface extrusion 2 cm thick.
    Dim oExtrudeDef As ExtrudeDefinition
    Set oExtrudeDef = oCompDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfileOne, kSurfaceOperation)
    Call oExtrudeDef.SetDistanceExtent(2, kNegativeExtentDirection)
    Dim oExtrudeOne As ExtrudeFeature
    Set oExtrudeOne = oCompDef.Features.ExtrudeFeatures.Add(oExtrudeDef)

I hope this helps

Best regards