zfbj 发表于 2005-5-12 14:24:00

把所有的＃都去掉，这个东西是系统自动生成的，例如，0.0会显示成0#，不要自己添加。

cryyyy 发表于 2005-5-13 10:29:00

zfbj发表于2005-5-12 14:24:00static/image/common/back.gif把所有的＃都去掉，这个东西是系统自动生成的，例如，0.0会显示成0#，不要自己添加。


<BR>你说的这个东西 应该跟标注 没有关系吧


我改了,还是没有达到标注效果啊 那个 huai 还是加不上去.


具体格式是什么?

ljpnb 发表于 2005-5-13 11:08:00

将你完整的程序贴上来看看。

cryyyy 发表于 2005-5-14 21:23:00

ljpnb发表于2005-5-13 11:08:00static/image/common/back.gif将你完整的程序贴上来看看。


<BR><BR>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>''''''''''''''''''''''''''''''''''自己写尺寸@@@@@@@@@@@@@@@<BR>Set bz5 = acadapp.ActiveDocument.ModelSpace.AddDimAligned(point51, point52, location5)<BR>Dim zbz5 As Integer<BR>zbz5 = cm * (cz - 2.5)<BR>bz5.TextOverride = zbz5


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

夜孤城 发表于 2006-4-10 20:58:00

<P>用%%c当前缀是OK，可我现在的标注字体是仿宋_GB2312,那么加的话会出现“口”形前缀，没出现需要的 Φ。</P>
<P>其实只要：</P>
<P>bz5.TextOverride =" Φ" &amp; zbz5</P>
<P>这个&nbsp;Φ 就是在输入法状态下，希腊字符里的 Φ。</P>
页: 1 [2]
查看完整版本: 标注时,如何加一个符号表示直径??/