如何在vb调用cad命令中加一个代码表示直径的符号...

cryyyy

在用vb和cad的二次开发过程中 如何在vb调用cad命令中加一个代码表示直径的符号...huai 有人说格式是如下: bz5.TextOverride = "%%c" & zbz5 也有人说如下格式: bz5.TextOverride = "%%c" & Str(zbz5 ) 但是都不行 赐教 完整程序如下: Dim bz5 As AcadDimAligned ''''''分度圆 '''' 标注
Dim point51(0 To 2) As Double
Dim point52(0 To 2) As Double
Dim location5(0 To 2) As Double
'定义尺寸标注。
point51(0) = zbjl + wide + 10#: point51(1) = zxxsp + cr#: point51(2) = 0#
point52(0) = zbjl + wide + 10#: point52(1) = zxxsp - cr#: point52(2) = 0# location5(0) = zbjl + wide + 40#: location5(1) = 0#: location5(2) = 0# '创建平行尺寸标注对象。
If Option6.Value = True Then
Set bz5 = acadapp.ActiveDocument.ModelSpace.AddDimAligned(point51, point52, location5) Else
Set bz5 = acadapp.ActiveDocument.ModelSpace.AddDimAligned(point51, point52, location5)
Dim zbz5 As Integer
zbz5 = cm * (cz - 2.5)
bz5.TextOverride = zbz5 End If
'标注公差。
bz5.DecimalSeparator = "." '小数点符号。
'公差显示特性。
bz5.ToleranceDisplay = acTolSymmetrical '对称显示公差。
bz5.TolerancePrecision = acDimPrecisionFour '4位小数
bz5.ToleranceHeightScale = 0.5 '偏差文本高度为尺寸高度的一半。
'设置公差。
bz5.ToleranceLowerLimit = 0.015
bz5.ToleranceUpperLimit = 0.01 bz5.Update

cryyyy

就要答辩了...急死我了...

mccad

还是跟字体有关。要看你设置什么字体。

zfbj

真不知道你是怎么弄的，还是我没明白你的意思？看看下面的代码，不就改过来了？ Sub Example_AddDimAligned()
' This example creates an aligned dimension in model space. Dim dimObj As AcadDimAligned
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double

' Define the dimension
point1(0) = 5#: point1(1) = 5#: point1(2) = 0#
point2(0) = 10#: point2(1) = 5#: point2(2) = 0#
location(0) = 5#: location(1) = 7#: location(2) = 0#

' Create an aligned dimension object in model space
Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)

dimObj.TextOverride = "%%C" & "500" ' 我加的
dimObj.Update ' 我加的

ZoomAll
End Sub

cryyyy

zfbj发表于2005-5-21 23:28:00真不知道你是怎么弄的，还是我没明白你的意思？看看下面的代码，不就改过来了？ Sub Example_AddDimAligned() ' This example creates an aligned dim...

那些是我的参数 意思就是说格式是 dimObj.TextOverride = "%%C" & "500" 但是我也这样弄了,为什么不行呢...