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

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

在用vb和cad的二次开发过程中



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


有人说格式是如下:


<FONT color=#4822dd>bz5.TextOverride = "%%c" &amp; zbz5</FONT>


也有人说如下格式:


<FONT color=#3333cc>bz5.TextOverride = "%%c" &amp; Str(zbz5 )</FONT>


<FONT color=#f70909>但是都不行</FONT>


<FONT color=#f70909>赐教</FONT>


完整程序如下:
Dim bz5 As AcadDimAligned                                                                                                                       ''''''分度圆 '''' 标注<BR>Dim point51(0 To 2) As Double<BR>Dim point52(0 To 2) As Double<BR>Dim location5(0 To 2) As Double



<BR>'定义尺寸标注。<BR>point51(0) = zbjl + wide + 10#: point51(1) = zxxsp + cr#: point51(2) = 0#<BR>point52(0) = zbjl + wide + 10#: point52(1) = zxxsp - cr#: point52(2) = 0#


location5(0) = zbjl + wide + 40#: location5(1) = 0#: location5(2) = 0#


'创建平行尺寸标注对象。<BR>If Option6.Value = True Then<BR>Set bz5 = acadapp.ActiveDocument.ModelSpace.AddDimAligned(point51, point52, location5)


Else


<BR>Set bz5 = acadapp.ActiveDocument.ModelSpace.AddDimAligned(point51, point52, location5)<BR>Dim zbz5 As Integer<BR>zbz5 = cm * (cz - 2.5)<BR><FONT color=#9611ee>bz5.TextOverride = zbz5</FONT>


End If<BR>                                                                                                                                                                                                                                                                                                                       '标注公差。<BR>bz5.DecimalSeparator = "."               '小数点符号。<BR>'公差显示特性。<BR>bz5.ToleranceDisplay = acTolSymmetrical       '对称显示公差。<BR>bz5.TolerancePrecision = acDimPrecisionFour               '4位小数<BR>bz5.ToleranceHeightScale = 0.5       '偏差文本高度为尺寸高度的一半。<BR>'设置公差。<BR>bz5.ToleranceLowerLimit = 0.015<BR>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()<BR>                       ' This example creates an aligned dimension in model space.


                       Dim dimObj As AcadDimAligned<BR>                       Dim point1(0 To 2) As Double<BR>                       Dim point2(0 To 2) As Double<BR>                       Dim location(0 To 2) As Double<BR>                       <BR>                       ' Define the dimension<BR>                       point1(0) = 5#: point1(1) = 5#: point1(2) = 0#<BR>                       point2(0) = 10#: point2(1) = 5#: point2(2) = 0#<BR>                       location(0) = 5#: location(1) = 7#: location(2) = 0#<BR>                       <BR>                       ' Create an aligned dimension object in model space<BR>                       Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)<BR>                       <BR>                       dimObj.TextOverride = "%%C" &amp; "500"                                '        我加的<BR>                       dimObj.Update                       '        我加的<BR>                                <BR>                       ZoomAll<BR>End Sub<BR>

cryyyy 发表于 2005-5-22 12:13:00

zfbj发表于2005-5-21 23:28:00static/image/common/back.gif真不知道你是怎么弄的，还是我没明白你的意思？看看下面的代码，不就改过来了？



Sub Example_AddDimAligned()                       ' This example creates an aligned dim...


那些是我的参数


意思就是说格式是


dimObj.TextOverride = "%%C" &amp; "500"       


但是我也这样弄了,为什么不行呢...<BR>
页: [1]
查看完整版本: 如何在vb调用cad命令中加一个代码表示直径的符号...