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

cryyyy · 发表于 2005-5-20 22:29:00

在用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 · 发表于 2005-5-21 15:15:00

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

mccad · 发表于 2005-5-21 21:27:00

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

zfbj · 发表于 2005-5-21 23:28:00

真不知道你是怎么弄的，还是我没明白你的意思？看看下面的代码，不就改过来了？
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 · 发表于 2005-5-22 12:13:00

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

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

发表回复

精选推荐