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