Форматирование отдельных символов мультитекста

Индивидуально можно менять шрифт, цвет, подчеркивание и др. атрибуты элементов мультитекста. Таблица кодов форматирующих символов приведена ниже.

Формат-символ	Назначение	Вводится так
\0...\o	надчеркивание	Autodesk \OAutoCAD\o 2000
\L...\l	подчеркивание	Autodesk \LAutoCAD\l 2000
\∼	неразрывный пробел	AutoCAD\∼2000
\\	обратный слеш	Autodesk\\AutoCAD
\{...\}	фигурные скобки	Autodesk\{AutoCAD\} 2000
\File name;	имя файла шрифта	Autodesk \Ftimes; AutoCAD 2000
\Hvalue;	высота текста в единицах чертежа	\H2;AutoCAD
\Hvaluex;	высота текста умножением	Autocad \H3x;2000
\S...^...;	текст стопкой используя символы \ # ^	1.000\S+0.010^-0.000;
\Tvalue;	межсимвольный интервал от 0.75 до 4	\T2;Autodesk
\Qangle;	угол наклона	\Q20;Autodesk
\Wvalue;	ширина букв	\W2;Autodesk
\A	выравнивание 0-низ, 1-центр,2-верх	\A1;1\S1/2

В последнем примере вводится дробь 1 и 1/2. Использование фигурных скобок применяет форматирование только внутри них. Вложенность скобок может достигать 8 уровней. Пример форматирования с ASCII-кодами {{\H1.5x; Big text} \A2; over text\A1;/\A0; under text} Пример использования форматирующих символов

Sub FormatMText() Dim mtextObj As AcadMText Dim insertPoint(0 To 2) As Double Dim width As Double Dim textString As String insertPoint(0) = 2: insertPoint(1) = 2: insertPoint(2) = 0: width = 100 Dim OB As Long,CB As Long,BS As Long,FS As Long,SC As Long OB = Asc("{") CB = Asc("}") BS = Asc("\") FS = Asc("/") SC = Asc(";") ' {{\H1.5x; Big text}\A2; over text\A1;/\A0; under text} textString = Chr(OB) + Chr(OB) + Chr(BS) + "H1.5x" _ + Chr(SC) + "Big text" + Chr(CB) + Chr(BS) + "A2" _ + Chr(SC) + "over text" + Chr(BS) + "A1" + Chr(SC) _ + Chr(FS) + Chr(BS) + "A0" + Chr(SC) + "under text" _ + Chr(CB) Set mtextObj = ThisDrawing.ModelSpace.AddMText(insertPoint, width, textString)ZoomExtentsEnd Sub

Форматирование многострочных текстовых объектов

Установка свойства объекта StyleName задает стиль по умолчанию для вновь создаваемых объектов мультитекста. При применении нового стиля к ранее созданным объектам имеющее сложное форматирование будет утеряно. Выравнивание текста бывает левое, правое и по центру, а положение вверху, внизу и по центру. AutoCAD предлагает 9 установок выравнивания: TL (вверх и влево), TC (вверх и по центру), TR (вверх и вправо), ML, MC, MR, BL, BC, BR. Изменять эти значения можно через свойство AttachmentPoint.

Использование символов unicode, управляющих и специальных символов

Символы unicode \U+00B0 градусы, \U+00B1 плюс-минус, \U+2205 диаметр. Указав %%код_символа можно вводить и другие спец-символы. %%o - надчеркивание, %%u - подчеркивание, %%d - градусы, %%p - плюс-минус, %%c - диаметр, %%% - проценты.

Замена шрифтов

Если AutoCAD не находит шрифт указанный в чертеже можно укзать другой. Для чего в любом текстовом редакторе создается таблица замены fmp-файл, каждая строка которого имеет вид romanc.shx; times.ttf (какой менять; на какой). Для указания файла замены шрифтов отличного от того, что входит в стандартную поставку AutoCAD, используйте свойство FontFileMap объекта Preferences.

Установка альтернативного шрифта по-умолчанию

По умолчанию для замены несуществующего шрифта используется simplex. shx, однако можно укзать любой другой через свойство AltFontFile объекта Preferences.

Размерности, допуски и указатели

Размерности представляют собой геометрические характеристики объектов - расстояния углы между ними. В AutoCADе их три разновидности - линейные, радиальные (от слова радиус) и угловые. Они могут создаваться как для объектов (линий, мультилиний, дуг, окружностей, сегментов полилинии) так и самостоятельно. Каждая размерность имеет свой размерный стиль, включающий цвет, тип линий, стиль текста. Переменные, определяющие вид размерностей: DIMAUNIT, DIMUPT, DIMTOFL, DIMFIT, DIMTIH, DIMTOH, DIMJUST, DIMTAD. Однострочный текст размерности использует текущий текстовый стиль. Ассациативные размерности это те, в которых все линии, стрелки, дуги и тексты рисуются как единый объект. По умолчанию системная переменная DIMASO, отвечающая за ассациативность размерностей, включена.

Создание размерностей

Можно создавать линейные, радиальные, угловые и ординатные размерности. При этом используется активный размерный стиль. Линейные размеры могут вращаться и выравниваться. Они строятся параллельно измеряемой части объекта с использованием методов AddDimAligned, AddDimRotated, AddDim3PointAligned. Для создания радиальных размеров дуг и окружностей есть метод AddDimRadial, пример построения радиальных размеров:

Sub CreateRadialDimension() Dim dimObj As AcadDimRadial Dim center(0 To 2) As Double Dim chordPoint(0 To 2) As Double Dim leaderLen As Integer center(0) = 0: center(1) = 0: center(2) = 0 chordPoint(0) = 5: chordPoint(1) = 5: chordPoint(2) = 0 leaderLen = 5 Set dimObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)ZoomExtentsEnd Sub

Пример создания угловых размеров

Sub CreateAngularDimension() Dim dimObj As AcadDimAngular Dim angVert(0 To 2) As Double Dim FirstPoint(0 To 2) As Double Dim SecondPoint(0 To 2) As Double Dim TextPoint(0 To 2) As Double angVert(0) = 0: angVert(1) = 5: angVert(2) = 0 FirstPoint(0) = 1: FirstPoint(1) = 7: FirstPoint(2) = 0 SecondPoint(0) = 1: SecondPoint(1) = 3: SecondPoint(2) = 0 TextPoint(0) = 3: TextPoint(1) = 5: TextPoint(2) = 0 Set dimObj = ThisDrawing.ModelSpace.AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint)ZoomAllEnd Sub

Ординатные размеры измеряют перпиндикулярное расстояние от заданной точки до измеремого объекта. Обычно используются, чтобы избежать ошибок взаимного положения объектов.

Пример:

Sub CreatingOrdinateDimension()Dim dimObj As AcadDimOrdinate Dim definingPoint(0 To 2) As Double Dim leaderEndPoint(0 To 2) As Double Dim useXAxis As Long definingPoint(0) = 5: definingPoint(1) = 5: definingPoint(2) = 0 leaderEndPoint(0) = 10: leaderEndPoint(1) = 5: leaderEndPoint(2) = 0 useXAxis = 5 Set dimObj = ThisDrawing.ModelSpace.AddDimOrdinate(definingPoint, leaderEndPoint, useXAxis)ZoomExtentsEnd Sub

Для редактирования размеров используется следующие свойства

· Rotation - задает угол поворота в радианах;

· StyleName - задает имя размерного стиля;

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

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

· Measurement - задает актуальное измерение для размера;

А в дополнение следующие методы

· ArrayPolar - создает полярный массив;

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

· Copy - копирует;

· Erase - стирает;

· Mirror - зеркально отражает;

· Move - перемещает;

· Rotate - вращает;

· ScaleEntity - масштабирует.

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

Sub OverrideDimensionText() 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 ' задаем размер point1(0) = 5#: point1(1) = 3#: point1(2) = 0# point2(0) = 10#: point2(1) = 3#: point2(2) = 0# location(0) = 7.5: location(1) = 5#: location(2) = 0# Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location) ' меняем текст dimObj.TextOverride = "Значение <>" dimObj.UpdateEnd Sub

Работа с размерными стилями

Именованный размерный стиль - группа настроек определяющих вид размеров. Создание нового стиля осуществляется методом Add, метод CopyFrom позволяет копировать стиль. При этом если копировать стиль не с объекта Style, а с объекта Document, то переносятся все переопределения стиля.

Пример копирования стиля с переопределениями. Он создает три размерных стиля и копирует их при разных установках. Для его работы следует в новом рисунке создать линейный размер, изменить цвет на желтый, изменить значение системной переменной DIMCLRD на 5.

Sub CopyDimStyles() Dim newStyle1 As AcadDimStyle,newStyle2 As AcadDimStyle Dim newStyle3 As AcadDimStyle  Set newStyle1 = ThisDrawing.DimStyles.Add ("Стиль 1 скопированс dim") Call newStyle1.CopyFrom(ThisDrawing.ModelSpace(0)) Set newStyle2 = ThisDrawing.DimStyles.Add ("Стиль 2 скопировансоСтиль 1") Call newStyle2.CopyFrom(ThisDrawing.DimStyles.Item ("Стиль 1 скопированс dim")) Set newStyle2 = ThisDrawing.DimStyles.Add ("Стиль 3 скопированснастройками") Call newStyle2.CopyFrom(ThisDrawing)End Sub

Если открыть диалог DIMSTYLE, то там должны появиться три разных стиля.