从DimRadius中获得数据,改变圆弧半径

兰州人

Sub rr()
  Dim rr As AcadDimRadial, Ar As AcadArc
  With ThisDrawing.Utility
    .GetEntity rr, varEntityPickedPoint, _
      "Pick Arc :" ' 选择DimRadial尺寸线
      rrdd = rr.TextOverride　'获得Dimradiaus尺寸线上的TextOverRide数据，如R20等数据

    .GetEntity Ar, varEntityPickedPoint, _
      "Pick Arc Entity:" '选择Ａrc图图元
     Ar.Radius = Round(Mid(rrdd, 2), 3)  更改圆弧的半径
           rr.TextOverride = "" 替代字符改为自动
  End With
End Sub

lioney

这个程序可实现吗?