Dimension display, i.e. Expression, Value etc

[Anonymous]

Hello,
I have been creating lots of IParts and looking at sketches with dimensions
displayed as expressions can make the sketch unreadable, hence I created the
following to toggle the display status of dimensions between expresssion and
value, however the following code will not change the dimension display
value.

If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
Dim varDocument As PartDocument, varParams As Inventor.Parameters
Set varDocument = ThisApplication.ActiveDocument

If varDocument.ComponentDefinition.Parameters.DimensionDisplayType =
kDimensionDisplayAsExpession Then
varDocument.ComponentDefinition.Parameters.DimensionDisplayType
= kDimensionDisplayAsValue
Else:
varDocument.ComponentDefinition.Parameters.DimensionDisplayType =
kDimensionDisplayAsExpession
End If

varDocument.Update
End If

Any ideas as to why this isn't working?

Thanks

Scott