Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

@bradeneuropeArthur ,  as @WCrihfield mentioned, as far as I know we can't switch the sketch...

 

but we can delete and recreate the extrusion

 

hope this helps,

Curtis

 

example:

Curtis_Waguespack_0-1726510246701.png

 

 

Dim oPartDoc As PartDocument
oPartDoc = ThisDoc.Document

Dim oCompDef As PartComponentDefinition
oCompDef = oPartDoc.ComponentDefinition

Dim oSketch As PlanarSketch
oSketch = oCompDef.Sketches.Item("Sketch2")

' Create a profile.
Dim oProfile As Profile
oProfile = oSketch.Profiles.AddForSolid

sName = "Extrusion1"

Dim oExtrude As ExtrudeFeature
oExtrude = oCompDef.Features.ExtrudeFeatures.Item(sName)

oExtrude.Delete

Dim oExtrudeDef As ExtrudeDefinition
oExtrudeDef = oCompDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile, kJoinOperation)
Call oExtrudeDef.SetDistanceExtent(4, kPositiveExtentDirection)
oExtrude = oCompDef.Features.ExtrudeFeatures.Add(oExtrudeDef)

oExtrude.Definition.Profile = oProfile
oExtrude.Name = sName