11-02-2018
07:42 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-02-2018
07:42 AM
You were close... try this out
oDoc = ThisApplication.ActiveDocument oFeatures = oDoc.ComponentDefinition.Features i = 1 For Each oFeature In oFeatures 'look at all the features that make up the body 'look at only extrude features If oFeature.Type = ObjectTypeEnum.kExtrudeFeatureObject Then 'rename feature using solid name 'and pad the number with zero if under 10 oFeature.Name = oFeature.SurfaceBodies(1).Name _ & " - Ext. " & If(i < 10, "0" + CStr(i), CStr(i)) i = i + 1 End If Next
If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State
Custom Glyph Icon for iMates
Mass Override for Each Model State
Custom Glyph Icon for iMates