ddyy841121 发表于 2006-6-14 11:33:00

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

<P>下面是我程序中一段尺寸a的标注程序，我现在想把它标注出来的结果缩小一下，比如标注出来在图形上显示是100，但我要求把它变为20，缩小一下倍数，但图形大小不变，就变一下数字，请教大家帮小弟一个忙，我搞了好久也没试出，真试笨啊，呵呵</P>

<P>'标注<BR>'尺寸标注 a<BR>'定义标注<BR>Dim dimobj1 As AcadDimAligned</P>
<P>'定义起始点<BR>Dim pointst1(0 To 2) As Double</P>
<P>'定义终点<BR>Dim pointen1(0 To 2) As Double</P>
<P>'定义标注数值的位置<BR>Dim location1(0 To 2) As Double</P>
<P>'为起始坐标赋值<BR>pointst1(0) = cenpnt(0) - a / 2: pointst1(1) = cenpnt(1) + b: pointst1(2) = 0</P>
<P>'为终止坐标赋值<BR>pointen1(0) = cenpnt(0) + a / 2: pointen1(1) = cenpnt(1) + b: pointen1(2) = 0</P>
<P>'为标注数值的位置赋值<BR>location1(0) = cenpnt(0): location1(1) = cenpnt(1) + b + a: location1(2) = 0</P>
<P>'绘制标注<BR>Set dimobj1 = ThisDrawing.ModelSpace.AddDimAligned(pointst1, pointen1, location1)</P>

ddyy841121 发表于 2006-6-14 12:26:00

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

68651521 发表于 2006-6-14 14:30:00

<P>那给你一个另类的方法 </P>
<P>用标注的文字替代功能就好了 </P>
<P>Dim Test As AcadAcadDimRotated</P>
<P>Test.TextOverride="1234567890"</P>

ddyy841121 发表于 2006-6-14 15:39:00

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

68651521 发表于 2006-6-14 16:28:00

<P>你先在CAD里 随手画一个标注</P>
<P>然后 遍历全部图元（其实只有一个标注）</P>
<P>遍历到后 把这个图元的.TextOverride属性 改成12345678</P>
<P>再回图形里看看 就明白了啊 </P>

crazylsp 发表于 2013-3-4 17:16:23

这个例子标注讲得满清楚的。
页: [1]
查看完整版本: 请问大家关于VBA标注方面的一个小问题