请问大家关于VBA标注方面的一个小问题

ddyy841121

下面是我程序中一段尺寸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)

ddyy841121

顶一下，我想把比例因子调整一下这种方法可能简单点，望各位教教我，别的方法也可以，谢谢

68651521

那给你一个另类的方法

用标注的文字替代功能就好了

Dim Test As AcadAcadDimRotated

Test.TextOverride="1234567890"

ddyy841121

哦，谢谢你啊，但这东西不是很懂，我也是初学者，能否帮我结合我上面的那个例子讲的详细点，帮我弄一下，谢谢

68651521

你先在CAD里 随手画一个标注

然后 遍历全部图元（其实只有一个标注）

遍历到后 把这个图元的.TextOverride属性 改成12345678

再回图形里看看 就明白了啊

crazylsp

这个例子标注讲得满清楚的。