|
发表于 2007-1-22 17:26:00
|
显示全部楼层
Dim center29(0 To 2) As Double
Dim chordPoint29(0 To 2) As Double
Dim leaderLen29 As Integer
center29(0) = x + 135 - (JS1 - DN / 2)
center29(1) = y + JK / 2
center29(2) = 0
chordPoint29(0) = x + 135 - (JS1 - DN / 2) - JR * Cos(3.1415926 / 4)
chordPoint29(1) = y + JK / 2 + JR * Sin(3.1415926 / 4)
chordPoint29(2) = 0
leaderLen29 = 0
Set xxbzObj(29) = ThisDrawing.ModelSpace.AddDimRadial(center29, chordPoint29, leaderLen29)
xxbzObj(29).ToleranceDisplay = acTolSymmetrical
ThisDrawing.Application.ZoomAll
xxbzObj(29).TextOverride = 100 |
|