Give that a try
{code}
Option Explicit
'' based on Tony Tanzillo technic
'' request check "Break on Unhandled Errors" in Tools->Options->General options
Public Sub SelectMultypleDims()
Dim varPt As Variant
Dim oEnt As AcadEntity
Dim oDim As AcadDimension
Dim oDimAl As AcadDimAligned
Dim oDimRot As AcadDimRotated
Dim dimStr As String
Dim dblValue As Double
Do
On Error Resume Next
ThisDrawing.Utility.GetEntity oEnt, varPt, vbLf & "Select Dimension (or press Enter to Exit): "
If Err Then
Err.Clear
Exit Do
End If
On Error GoTo 0
If Not oEnt Is Nothing Then
dblValue = CDbl(InputBox("Type new dimension value: ", "Multiple Dim Override"))
If TypeOf oEnt Is AcadDimAligned Then
Set oDimAl = oEnt
dimStr = CStr(Round(dblValue, 2)) '<-- set precision here
oDimAl.TextOverride = dimStr
oDimAl.Update
ElseIf TypeOf oEnt Is AcadDimRotated Then
Set oDimRot = oEnt
dimStr = CStr(Round(dblValue, 2))
oDimRot.TextOverride = dimStr
oDimRot.Update
End If
End If
Loop
On Error GoTo 0
End Sub
{code}
~'J'~
_____________________________________
C6309D9E0751D165D0934D0621DFF27919
