标注时,如何加一个符号表示直径??/

zfbj

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

cryyyy

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

你说的这个东西 应该跟标注 没有关系吧 我改了,还是没有达到标注效果啊 那个 huai 还是加不上去. 具体格式是什么?

ljpnb

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

cryyyy

ljpnb发表于2005-5-13 11:08:00将你完整的程序贴上来看看。

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

夜孤城

用%%c当前缀是OK，可我现在的标注字体是仿宋_GB2312,那么加的话会出现“口”形前缀，没出现需要的 Φ。

其实只要：

bz5.TextOverride =" Φ" & zbz5

这个 Φ 就是在输入法状态下，希腊字符里的 Φ。