Gets and sets the expression to convert from the unit to the equivalent unit. | |
Syntax: | String =
object.ForwardExpression object.ForwardExpression = String |
Description: | The ForwardExpression property gets and
sets the expression to convert from the unit to the equivalent
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.ForwardExpression |