Gets and sets the expression to convert from the equivalent unit to the unit. | |
Syntax: | String =
object.ReverseExpression object.ReverseExpression = String |
Description: | The ReverseExpression property gets and
sets the expression to convert from the equivalent unit to the
unit. Example: Dim project As CimProject Set project = CreateObject("CimProject") project.OpenLocalProject "d:\classes\classes.gef" Dim measurementManager As CimMeasurementManager Dim measurementAssocList As
CimMeasurementAssociationList Dim measurementAssoc As CimMeasurementAssociation Dim measurementUnitList As CimMeasurementUnitList Dim measurementUnit As CimMeasurementUnit Set measurementManager =
project.MeasurementManager Set measurementUnitList = measurementManager.Units Set measurementUnit =
measurementUnitList.Item("METER") Set measurementAssocList =
measurementUnit.SystemAssociations Set measurementAssoc =
measurementAssocList.Item("Metric") MsgBox measurementAssoc.ReverseExpression |