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