如何在VBA中修改标注尺寸文字和箭头的显示大小？？？

wky-dyf

如何在VBA中修改标注尺寸文字和箭头的显示大小？？？

wky-dyf

怎么还没人回答啊

linux1234

我也想知道,并且我想将所有标注样式的某个变量,比如DIMEXE,DIMTAD都改了

兰州人

你要东西在这里

         Debug.Print .AltRoundDistance
          Debug.Print .AltSuppressLeadingZeros
          Debug.Print .AltSuppressTrailingZeros
          Debug.Print .AltSuppressZeroFeet
          Debug.Print .AltSuppressZeroInches
          Debug.Print .AltTextPrefix
          Debug.Print .AltTextSuffix
          Debug.Print .AltTolerancePrecision
          Debug.Print .AltToleranceSuppressLeadingZeros
          Debug.Print .AltToleranceSuppressTrailingZeros
          Debug.Print .AltToleranceSuppressZeroFeet
          Debug.Print .AltUnits
          Debug.Print .AltUnitsFormat
          Debug.Print .AltUnitsPrecision
          Debug.Print .AltUnitsScale
          Debug.Print .ArrowheadBlock
          Debug.Print .ArrowheadSize-指定标注箭头、引线箭头和钩线的尺寸。
          Debug.Print .ArrowheadType
          Debug.Print .CenterMarkSize
          Debug.Print .CenterType
          Debug.Print .DimensionLineColor
          Debug.Print .DimensionLineWeight
          Debug.Print .DimLineSuppress
          Debug.Print .Fit
          Debug.Print .ForceLineInside
          Debug.Print .FractionFormat
          Debug.Print .Layer
          'Debug.Print .LeaderLength
          Debug.Print .LinearScaleFactor
          Debug.Print .Measurement
         
          Debug.Print .PrimaryUnitsPrecision
          Debug.Print .RoundDistance
         
          Debug.Print .SuppressZeroFeet
          Debug.Print .SuppressZeroInches
          Debug.Print .StyleName
         
          '文字部分
          Debug.Print .TextColor
          Debug.Print .TextInside
          Debug.Print .TextInsideAlign
          Debug.Print .TextGap
          Debug.Print .TextHeight-----指定标注或公差的文字高度
          Debug.Print .TextMovement
          Debug.Print .TextOutsideAlign
          Debug.Print .TextOverride------指定标注的文字字符串
          Debug.Print .TextPosition(0), .TextPosition(1), .TextPosition(2)
          Debug.Print .TextPrefix
          Debug.Print .TextRotation
          Debug.Print .TextStyle
          Debug.Print .TextSuffix
         
          Debug.Print .ToleranceSuppressZeroFeet
          Debug.Print .ToleranceSuppressZeroInches
          Debug.Print .UnitsFormat

linux1234

不知道如何DEBUG

crazylsp

谢谢给出的提示。