[求助]尺寸标注

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,没有上下偏差,如何解决?

wyj7485 · 发表于 2006-7-19 11:37:00

加入标注线性比例

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

是dimObj.LinearScaleFactor 吗?

dongfang_t · 发表于 2006-7-19 13:45:00

急待解决,希望大家帮忙

wyj7485 · 发表于 2006-7-19 17:02:00

dimlfac

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

谢谢这位学长,我初学VBA,所以什么都不懂

对了,dimlfac怎么用? 这样dimobj.dimlfac吗?怎么不对

请明示

wyj7485 · 发表于 2006-7-19 17:49:00

dimlfac 是cad的系统变量,对于dimobj没有这个属性,可以用textoverride属性固定尺寸,要加上下公差可以按如下格式添加:10\H0.5x\S+0.2^-0.1-----10是尺寸,+0.2是上偏差,-0.1是下偏差

dongfang_t · 发表于 2006-7-19 19:47:00

可以这么做啊,我还不知道,谢谢学长,这个问题困扰我好长时间了.

上下限对称的公差也是这样吗?

账号		自动登录	找回密码
密码			注册