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

Add this additional line.

Sub X()

Dim oCD As PartComponentDefinition
Set oCD = ThisApplication.ActiveDocument.ComponentDefinition

Dim oSketch As PlanarSketch
Set oSketch = oCD.Sketches.Item(2)

Dim oProfile As Profile
Set oProfile = oSketch.Profiles.AddForSolid

Dim oED As ExtrudeDefinition
Set oED = oCD.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile, kCutOperation)
Call oED.SetDistanceExtent("1000 mm", kNegativeExtentDirection)

Dim oExtrude As ExtrudeFeature
Set oExtrude = oCD.Features.ExtrudeFeatures.Add(oED)

oExtrude.SetAffectedBodies(oCD.SurfaceBodies)

End Sub

Wesley Crihfield

EESignature

(Not an Autodesk Employee)