For I = 3 To oViews.Count ' scan all views for dimensions except main view and background views
Set oView = oViews.Item(I)
oView.Activate
Set oDims = oView.Dimensions
For J = 1 To oDims.Count
Set MyDimension = oDims.Item(J)
Set MyValue = MyDimension.GetValue
MyDimension.DualValue = catDualBellow
'----
iIndex = 1 ' main value
' If already in inch then don't use
MyValue.SetFormatName iIndex, "in"
MyValue.SetFormatPrecision iIndex, "0.01000"
' For Dual Value
iIndex = 2 ' dual value
MyValue.SetFormatName iIndex, "mm"
MyValue.SetFormatPrecision iIndex, "0.10000"
MyValue.GetBaultText 2, Array1, Array2, Array3, Array4
MyValue.SetBaultText 2, "[", "]", Array3, Array4
Next 'Dimension Loop End
Next 'Views Loop End