Mode:
Duration:
1
2
3
4
5
6
Dim feature As Feature = workPart.Features.FindObject("Extrude1")
Dim axis As Axis = workPart.Axes.FindObject("Z_Axis")
Dim patternBuilder As PatternFeatureBuilder = workPart.Features.CreatePatternFeatureBuilder(feature)
patternBuilder.SetCircularPattern(axis, 6, 360)
patternBuilder.CommitFeature()
patternBuilder.Destroy()Coding works best on desktop or with an external keyboard.