Ok, I tested this part with editor,
change in the code on this line:
==========
ElseIf TypeOf ent Is AcadDimDiametric Then
If ent.TextOverride = vbNullString Then
ent.TextOverride = "Dia" & m & "=" & ent.Measurement
Else
If InStr(1, ent.TextOverride, "%%c", vbTextCompare) Then
ent.TextOverride = "Dia" & m & "=" & Replace(ent.TextOverride, "%%c", vbNullString)
Else
ent.TextOverride = "Dia" & m & "=" & ent.TextOverride
End If
End If
m = m + 1
=========
~'J'~