|
|
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
|
|
置顶卡
