[求助]尺寸标注

dongfang_t · 发表于 2006-7-19 10:01:00

线性标注中,怎样标注实际尺寸,而不管图中比例大小,图中显示的是想要标注的尺寸? 用AddDimAligned方法只能标注当前图上的两点长度,请问有没有别的方法

dongfang_t · 发表于 2006-7-19 11:25:00

如果用 dimObj.TextOverride可以修改,不过公差标注不上,请问怎么解决?
Dim xxbzObj As AcadDimAligned
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double
point1(0) = 100: point1(1) = 184.96: point1(2) = 0
point2(0) = 350: point2(1) = 184.96: point2(2) = 0
location(0) = 225: location(1) = 200: location(2) = 0
Set xxbzObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)

xxbzObj.ToleranceDisplay = acTolSymmetrical
ThisDrawing.Application.ZoomAll
xxbzObj.ToleranceLowerLimit = 0.15
xxbzObj.ToleranceUpperLimit = 0.05
xxbzObj.TextOverride = "{\Fgdt;n}500"
ThisDrawing.Regen acAllViewports
这是程序,运行结果只有直径500,没有上下偏差,如何解决?