修改半径尺寸

dongfang_t · 发表于 2006-10-27 10:20:00

用VBA做图,半径标注后,想修改一下半径尺寸,为什么TextOverride属性不能修改,显示的还是图中实际大小?,请问怎么办?谢谢指教

xcl0_0 · 发表于 2006-10-27 13:56:00

改完更新了吗，应该可以啊
entry.TextOverride = TextBox1.TEXT: entry.Update

dongfang_t · 发表于 2006-10-28 10:18:00

    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer
    center(0) = 120
    center(1) = L * Sin(3.1415926 / 6) / (2 * 2 * Cos(3.1415926 / 6)) + b2 + GF / (2 * Cos(3.1415926 / 6))
    center(2) = 0
    chordPoint(0) = 120 - R * Cos(3.1415926 / 3) / 2
    chordPoint(1) = L * Sin(3.1415926 / 6) / (2 * 2 * Cos(3.1415926 / 6)) + b2 + GF / (2 * Cos(3.1415926 / 6)) - R * Sin(3.1415926 / 3) / 2
    chordPoint(2) = 0
    leaderLen = 0
    Set xxbzObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)
    xxbzObj.TextOverride = R
    xxbzObj.Update

是这么写得,就是修改不了半径尺寸

wyj7485 · 发表于 2006-10-30 11:39:00

尺寸标注选择关联

dongfang_t · 发表于 2006-11-1 08:15:00

是这样设置吗? 在上面的程序中加上ThisDrawing.SetVariable "DIMASSOC", 2

shirazbj · 发表于 2006-11-1 10:26:00

随机帮助例子是这样写的

dimObj.TextOverride = "The value is <>"
dimObj.Update

textoverride修改的只是标注的字串，不是半径数值。

你的半径是怎么改的，改圆心呢？

dongfang_t · 发表于 2006-11-2 14:50:00

我不知道怎么改,别的标注都可以改,就是这个半径标注不行. 圆心要是改了的话标注线和引线也到动, 不行的. 怎么样才能改动半径标注值呢?

shirazbj · 发表于 2006-11-4 10:14:00

如果你的半径不改，怎么可能改标注的值呢。这是先有鸡才有蛋的问题。

dongfang_t · 发表于 2006-11-6 16:26:00

请问具体怎么改呢? 比如图形已经画好,实际半径是图上的二倍, 直接标注的话只是实际半径的二分之一, 怎样能标出实际尺寸

dongfang_t · 发表于 2006-11-13 10:28:00

请帮帮忙,谢谢,我还是解决不了

账号		自动登录	找回密码
密码			注册