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

修改半径尺寸

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

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

改完更新了吗，应该可以啊<br>&nbsp;entry.TextOverride = TextBox1.TEXT: entry.Update<br><br>

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

<P>&nbsp;&nbsp;&nbsp; Dim center(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim chordPoint(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim leaderLen As Integer<BR>&nbsp;&nbsp;&nbsp; center(0) = 120<BR>&nbsp;&nbsp;&nbsp; center(1) = L * Sin(3.1415926 / 6) / (2 * 2 * Cos(3.1415926 / 6)) + b2 + GF / (2 * Cos(3.1415926 / 6))<BR>&nbsp;&nbsp;&nbsp; center(2) = 0<BR>&nbsp;&nbsp;&nbsp; chordPoint(0) = 120 - R * Cos(3.1415926 / 3) / 2<BR>&nbsp;&nbsp;&nbsp; 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<BR>&nbsp;&nbsp;&nbsp; chordPoint(2) = 0<BR>&nbsp;&nbsp;&nbsp; leaderLen = 0<BR>&nbsp;&nbsp;&nbsp; Set xxbzObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)<BR>&nbsp;&nbsp;&nbsp; xxbzObj.TextOverride = R<BR>&nbsp;&nbsp;&nbsp; xxbzObj.Update</P>
<P>是这么写得,就是修改不了半径尺寸</P>

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

尺寸标注选择关联

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

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

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

<P>随机帮助例子是这样写的</P>
<P>&nbsp;&nbsp;&nbsp; dimObj.TextOverride = "The value is &lt;&gt;"<BR>&nbsp;&nbsp;&nbsp; dimObj.Update</P>
<P>textoverride修改的只是标注的字串，不是半径数值。</P>
<P>你的半径是怎么改的，改圆心呢？</P>
<P>&nbsp;</P>

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

请帮帮忙,谢谢,我还是解决不了
页: [1]
查看完整版本: 修改半径尺寸