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

Well, if you do this manually, you first need to create a selection, and then activate the command to show the dimensions, if you just loop through the feature, only the last looped shows dimensions.

Sub ShowDimensions()

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument


Dim oCompDef As PartComponentDefinition
Set oCompDef = oDoc.ComponentDefinition

Dim oSelectSet As SelectSet

Dim oFeature As PartFeature
For Each oFeature In oCompDef.Features
Call oDoc.SelectSet.Select(oFeature)
Next oFeature

Dim oControlDef As ControlDefinition
Set oControlDef = ThisApplication.CommandManager.ControlDefinitions.Item("PartShowDimensionsCtxCmd")
oControlDef.Execute

End Sub
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"