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

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