[求助]半径标注

dongfang_t

半径标注时,用TextOverride属性修改标注值,为什么有时修改不了?需要修改什么属性值?

wyj7485

把程序贴上来看看

dongfang_t

    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