[求助]有关VBA开发中的标注问题
<P>请问在用VBA编制画东西的程序中，如何使在不改变对象大小的情况下把标注的数值按比例缩放，比如要把所有的标注数值缩小20 倍，那该在程序中怎么改，加哪几句程序，请大家帮帮忙，谢谢</P> http://www.mccad.net/object/acad2004/idh_textoverride.htm <P>哦，谢谢版主，但我刚还没试出来，您能不能帮我看下，下面是我做的绘图软件中一个等边三角形的边长a的长度标注，请各位大侠或版主帮我看看，能不能帮我在程序上改改，在图形不变的前提下把标注出来的大小数值缩小20倍，谢谢大家帮下忙，小弟急</P><P>'尺寸标注</P>
<P>'定义标注（直线）<BR>Dim dimobj As AcadDimAligned</P>
<P>'定义标注函数中的三个点<BR>'定义标注直线的起始点<BR>Dim pointst(0 To 2) As Double</P>
<P>'定义标注函数中的终点<BR>Dim pointen(0 To 2) As Double</P>
<P>'定义标注函数中的数值标注点<BR>Dim location(0 To 2) As Double</P>
<P>'对编著函数的三个值赋值<BR>'起始点赋值<BR>pointst(0) = cenpnt(0): pointst(1) = cenpnt(1): pointst(2) = cenpnt(2)</P>
<P>'终点赋值<BR>pointen(0) = cenpnt(0) + a: pointen(1) = cenpnt(1): pointen(2) = cenpnt(2)</P>
<P>'标注点赋值<BR>location(0) = cenpnt(0): location(1) = cenpnt(1) - a / 5: location(2) = cenpnt(2)</P>
<P>'画标注<BR>Set dimobj = ThisDrawing.ModelSpace.AddDimAligned(pointst, pointen, location)</P>
<P>'图形显示方式<BR>ZoomAll</P>
<P><BR>'将窗口本身从内存卸载<BR>Unload Me</P>
<P>End Sub</P> 我这设计的是一个参数化绘图的程序，所以它是输入不同的参数能绘出不同的图形，所以要把标注的比例因子缩小20倍，用版主你的方法我刚没弄出来，希望指点小弟一下 <P>在 Set dimobj = ThisDrawing.ModelSpace.AddDimAligned(pointst, pointen, location) 后面加一句 </P>
<P>dimobj.TextOverride=dimobj.Measurement/20</P> 谢谢你，真的很感谢
页:
[1]