You can also solve it automatically, using the measure and "underline" trick with the following iLogic macro:
'Underline "broken" dimensions - a tip from www.cadforum.cz
Sub Main()
Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
Dim Scl As Double ' View Scale
Dim oDim As DrawingDimension
For Each oDim In oSheet.DrawingDimensions
Dim oView As DrawingView
Select Case oDim.Type
Case ObjectTypeEnum.kLinearGeneralDimensionObject, ObjectTypeEnum.kAngularGeneralDimensionObject
oView = oDim.IntentOne.Geometry.Parent
Case ObjectTypeEnum.kRadiusGeneralDimensionObject, ObjectTypeEnum.kDiameterGeneralDimensionObject
oView = oDim.Intent.Geometry.Parent
End Select
Scl = oView.Scale
Dim d As Double
d = dist(oDim.DimensionLine.StartPoint.Y, oDim.DimensionLine.StartPoint.X, _
oDim.DimensionLine.EndPoint.Y, oDim.DimensionLine.EndPoint.X)
d = d / Scl
If Math.Round(d,4) <> Math.Round(oDim.ModelValue,4) Then ' equal?
'oDoc.SelectSet.Select(oDim)
If Not oDim.Text.FormattedText.Contains("<br/> \U+0305") Then 'was: <StyleOverride Underline='True'>
'oDim.Text.FormattedText = "<StyleOverride Underline='True'> <DimensionValue/> </StyleOverride>"
oDim.Text.FormattedText = "<DimensionValue/><br/> \U+0305 \U+0305 \U+0305 \U+0305 \U+0305 \U+0305 \U+0305 \U+0305 "
End If
End If
Next
End Sub
Function dist(y1 As Double, x1 As Double, y2 As Double, x2 As Double)
dist = Sqrt((y1 - y2) ^ 2 + (x1 - x2) ^ 2)
End Function
Vladimir Michl, www.arkance-systems.cz - www.cadforum.cz