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

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

<p>Sub rr()<br/>&nbsp; Dim rr As AcadDimRadial, Ar As AcadArc<br/>&nbsp; With ThisDrawing.Utility<br/>&nbsp;&nbsp;&nbsp; .GetEntity rr, varEntityPickedPoint, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Pick Arc&nbsp;:" '&nbsp;选择DimRadial尺寸线<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rrdd = rr.TextOverride　'获得Dimradiaus尺寸线上的TextOverRide数据，如R20等数据</p><p>&nbsp;&nbsp;&nbsp; .GetEntity Ar, varEntityPickedPoint, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Pick Arc Entity:" '选择Ａrc图图元<br/>&nbsp;&nbsp;&nbsp;&nbsp; Ar.Radius = Round(Mid(rrdd, 2), 3)&nbsp; 更改圆弧的半径<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rr.TextOverride = "" 替代字符改为自动<br/>&nbsp; End With<br/>End Sub</p><p></p>

lioney 发表于 2009-4-9 15:19:00

这个程序可实现吗?
页: [1]
查看完整版本: 从DimRadius中获得数据,改变圆弧半径