[求助]有关VBA开发中的标注问题

ddyy841121

请问在用VBA编制画东西的程序中，如何使在不改变对象大小的情况下把标注的数值按比例缩放，比如要把所有的标注数值缩小20 倍，那该在程序中怎么改，加哪几句程序，请大家帮帮忙，谢谢

雪山飞狐_lzh

[WEB]http://www.mccad.net/object/acad2004/idh_textoverride.htm[/WEB]

ddyy841121

哦，谢谢版主，但我刚还没试出来，您能不能帮我看下，下面是我做的绘图软件中一个等边三角形的边长a的长度标注，请各位大侠或版主帮我看看，能不能帮我在程序上改改，在图形不变的前提下把标注出来的大小数值缩小20倍，谢谢大家帮下忙，小弟急

'尺寸标注

'定义标注（直线）
Dim dimobj As AcadDimAligned

'定义标注函数中的三个点
'定义标注直线的起始点
Dim pointst(0 To 2) As Double

'定义标注函数中的终点
Dim pointen(0 To 2) As Double

'定义标注函数中的数值标注点
Dim location(0 To 2) As Double

'对编著函数的三个值赋值
'起始点赋值
pointst(0) = cenpnt(0): pointst(1) = cenpnt(1): pointst(2) = cenpnt(2)

'终点赋值
pointen(0) = cenpnt(0) + a: pointen(1) = cenpnt(1): pointen(2) = cenpnt(2)

'标注点赋值
location(0) = cenpnt(0): location(1) = cenpnt(1) - a / 5: location(2) = cenpnt(2)

'画标注
Set dimobj = ThisDrawing.ModelSpace.AddDimAligned(pointst, pointen, location)

'图形显示方式
ZoomAll

'将窗口本身从内存卸载
Unload Me

End Sub

ddyy841121

我这设计的是一个参数化绘图的程序，所以它是输入不同的参数能绘出不同的图形，所以要把标注的比例因子缩小20倍，用版主你的方法我刚没弄出来，希望指点小弟一下

68651521

在 Set dimobj = ThisDrawing.ModelSpace.AddDimAligned(pointst, pointen, location) 后面加一句

dimobj.TextOverride=dimobj.Measurement/20

ddyy841121

谢谢你，真的很感谢