社区 › VB › 从DimRadius中获得数据,改变圆弧半径

兰州人 发表于 2008-4-1 23:33:00

从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 发表于 2009-4-9 15:19:00

这个程序可实现吗?

查看完整版本: 从DimRadius中获得数据,改变圆弧半径