I have a similar one on what you need
See how it will work for you
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
Option Explicit
Public Sub SelectMulty()
'' based on Tony Tanzillo technic
'' request check "Break on Unhandled Errors" in General options
Dim varPt As Variant
Dim oEnt As AcadEntity
Dim dme As AcadDimension
Do
On Error Resume Next
ThisDrawing.Utility.GetEntity oEnt, varPt, "Select Dimension: "
If Err Then
Err.Clear
Exit Do
End If
On Error GoTo 0
If Not oEnt Is Nothing Then
If oEnt.ObjectName Like "*Dim*" Then
Set dme = oEnt
dme.TextPrefix = "TYP."
dme.Update
Set oEnt = Nothing
End If
End If
Loop
On Error GoTo 0
End Sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
~'J'~
