02-12-2020
11:53 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-12-2020
11:53 AM
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
(Not an Autodesk Employee)