Переопределение размерного стиля

Следующие свойства доступны для большинства размеров:

· AltRoundDistance - задает округление изменяемых единиц;

· AngleFormat - задает формат единиц для угловых размеров;

· Arrowhead1Block, Arrowhead2Block - задает блок используемый как пользовательский тип стрелок;

· Arrowhead1Type, Arrowhead2Type - задаеттипстрелок;

· ArrowheadSize - задает размеры стрелок и hook lines;

· CenterMarkSize - задает размер центральной отметки для радиальных размеров;

· CenterType - задает тип центральной отметки для радиальных размеров;

· DecimalSeparator - задает символ используемый как десятичный разделитель в десятичных размерах и значениях допуска;

· DimensionLineColor - задает цвет размерной линии;

· DimensionLineWeight - задает вес линии;

· DimLine1Suppress, DimLine2Suppress - задает подавление;

· DimLineInside - задает показ размеров внутри линий расширения;

· ExtensionLineColor - задает цвет для размеров линий расширения;

· ExtensionLineExtend - задает расстояние линии расширения;

· ExtensionLineOffset - задает расстояние линии расширения по смещению;

· ExtensionLineWeight - задает вес линии расширения;

· ExtLine1EndPoint, ExtLine2EndPoint - задает конечную точку линии расширения;

· ExtLine1StartPoint, ExtLine2StartPoint - задает начальную точку линии расширения;

· ExtLine1Suppress, ExtLine2Suppress - задает подавление линий расширения;

· Fit - задает полодение текста и стрелок внутри или снаружи линий расширения;

· ForceLineInside - задает если размерная линия чертится между линией расширения даже когда текст расположен вне линии расширения;

· FractionFormat - задает формат дробной части;

· HorizontalTextPosition - задает горизонтальное выравнивание текста;

· LinearScaleFactor - задает глобальный масштаб для r for измерений линейных размеров;

· PrimaryUnitsPrecision - задает число десятичных знаков для первичных единиц;

· SuppressLeadingZeros, SuppressTrailingZeros - задает подавление лидирующих и хвостовых нолей в значениях размеров;

· SuppressZeroFeet, SuppressZeroInches - задает подавление нулевых футов и дюймов в измерениях размеров;

· TextColor - задает цвет текста;

· TextGap - задает расстояние между текстом размера и размерной линией когда разрывается линия для размещения текста;

· TextHeight - задает высоту текста размера и допуска;

· TextInside - задает если текст размера рисуется внутри линий расширения;

· TextInsideAlign - задает положение текста размера внутри линий расширения для всех типов размеров кроме ординатных;

· TextMovement - задает как текст размера рисуется когда текст перемещен;

· TextOutsideAlign - задает положение текста размера вне линий расширения для всех типов размеров кроме ординатных;

· TextPosition - задает положение текста размера;

· TextPrecision - задает точность текста угловых размеров;

· TextPrefix - задает префикс значения размера;

· TextRotation - задает угол вращения текста размера;

· TextSuffix - задает суффикс значения размера;

· ToleranceDisplay - задает если допусков отображается с текстом размера;

· ToleranceHeightScale - задает масштаб для текста или высоту текста допуска относительно высоты текста размера;

· ToleranceJustification - задает вертикальное выравнивание значений допуска относительно номинального текста размера;

· ToleranceLowerLimit - задает миним. предел допуска для текста размера;

· TolerancePrecision - задает точность значений допуска в первичном размере;

· ToleranceSuppressLeadingZeros - задает подавление лидирующих нулей в значениях допуска;

· ToleranceSuppressTrailingZeros - задает подавление хвостовых нулей в значениях допуска;

· ToleranceUpperLimit - задает макс. предел допуска для текста размера;

· UnitsFormat - задает формат единиц для всех размеров исключая ept угловые;

· VerticalTextPosition - задает вертикальное положение текста в отношении к линии размера.

Пример выровненного размера с суффиксом определенным пользователем:

Sub AddTextSuffix() 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 Dim suffix As String ' Определимразмер point1(0) = 0: point1(1) = 5: point1(2) = 0 point2(0) = 5: point2(1) = 5: point2(2) = 0 location(0) = 5: location(1) = 7: location(2) = 0 Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location) ThisDrawing.Application.ZoomExtents ' Позволимпользователюсменитьсуффикс suffix = InputBox("Новыйсуффиксдляразмера", "Set Dimension Suffix", ":SUFFIX") dimObj.TextSuffix = suffix ThisDrawing.Regen acAllViewportsEnd Sub