请问大家关于VBA标注方面的一个小问题
下面是我程序中一段尺寸a的标注程序，我现在想把它标注出来的结果缩小一下，比如标注出来在图形上显示是100，但我要求把它变为20，缩小一下倍数，但图形大小不变，就变一下数字，请教大家帮小弟一个忙，我搞了好久也没试出，真试笨啊，呵呵'标注
'尺寸标注 a
'定义标注
Dim dimobj1 As AcadDimAligned
'定义起始点
Dim pointst1(0 To 2) As Double
'定义终点
Dim pointen1(0 To 2) As Double
'定义标注数值的位置
Dim location1(0 To 2) As Double
'为起始坐标赋值
pointst1(0) = cenpnt(0) - a / 2: pointst1(1) = cenpnt(1) + b: pointst1(2) = 0
'为终止坐标赋值
pointen1(0) = cenpnt(0) + a / 2: pointen1(1) = cenpnt(1) + b: pointen1(2) = 0
'为标注数值的位置赋值
location1(0) = cenpnt(0): location1(1) = cenpnt(1) + b + a: location1(2) = 0
'绘制标注
Set dimobj1 = ThisDrawing.ModelSpace.AddDimAligned(pointst1, pointen1, location1)
顶一下，我想把比例因子调整一下这种方法可能简单点，望各位教教我，别的方法也可以，谢谢 那给你一个另类的方法
用标注的文字替代功能就好了
Dim Test As AcadAcadDimRotated
Test.TextOverride="1234567890"
哦，谢谢你啊，但这东西不是很懂，我也是初学者，能否帮我结合我上面的那个例子讲的详细点，帮我弄一下，谢谢 你先在CAD里 随手画一个标注
然后 遍历全部图元（其实只有一个标注）
遍历到后 把这个图元的.TextOverride属性 改成12345678
再回图形里看看 就明白了啊
这个例子标注讲得满清楚的。
页:
[1]