Форматирование строки текста

Изменить оформление текста можно либо изменив назначенный ему текстовый стиль, либо меняя свойства самого текстового объекта. Форматировать можно только полностью строку, а не отдельное слово. Для изменения стиля есть свойство StyleName, после его изменения следует применять метод Update. Дополнительные свойства характерные только для текстов:

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

· InsertionPoint - задает точку вставки;

· ObliqueAngle - задает угол наклона;

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

· ScaleFactor - задает фактор масштабирования;

· TextAlignmentPoint - задает точку выравнивания;

· TextGenerationFlag - задает отоброжение вверх ногами,зеркальное и оба;

· TextString - задает текстовую строку.

Полный список свойств и методов приведен в справочной системе.

Повторное выравнивание текста

Пример создает объект Text и объект Point, последний задает точку выравнивания текста и меняется на красное перекрестие.

Sub TextAlignment() Dim textObj As AcadText Dim textString As String Dim insertionPoint(0 To 2) As Double Dim height As Double textString = "Hello, World." insertionPoint(0) = 3: insertionPoint(1) = 3: insertionPoint(2) = 0 height = 0.5 Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height) Dim Center(0 To 2) As Double Dim magnification As Double Center(0) = 3: Center(1) = 3: Center(2) = 0: magnification = 10 ThisDrawing.Application.ZoomCenter Center, magnification Dim pointObj As AcadPoint Dim alignmentPoint(0 To 2) As Double alignmentPoint(0) = 3: alignmentPoint(1) = 3: alignmentPoint(2) = 0 Set pointObj = ThisDrawing.ModelSpace.AddPoint(alignmentPoint)pointObj.Color = acRed ' сменим стиль отображения точки ThisDrawing.SetVariable "PDMODE", 2 ' выровняем текст влевоtextObj.Alignment = acAlignmentLeft ThisDrawing.Regen acActiveViewportMsgBox "Текст выровнян по левому краю" ' теперьпоцентру textObj.Alignment = acAlignmentCenter ' теперьпоточке textObj.TextAlignmentPoint = alignmentPoint ThisDrawing.Regen acActiveViewport MsgBox "Текстцентрирован" ' Теперьвправо textObj.Alignment = acAlignmentRight ThisDrawing.Regen acActiveViewport MsgBox "Текствыровненпоправомукраю" End Sub

Модификации текста

Как и любой другой объект, текст можно перемещать, вращать, стирать, копировать. Можно так же зеркально отражать, при этом если не хочется, чтобы он был вывернут наизнанку, меняем значение системной переменной MIRRTEXT на ноль. Некоторые методы текста перечисленны ниже, все остальные можно узнать из справочной системы.

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

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

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

· Erase - уничтожает текст;

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

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

· Rotate - вращает текст.

Многострочный текст

Принципальное отличие многострочного текста (мультитекста) от текста в том, что форматровать можно отдельные слова и даже символы. Мультитекст может состоять из любого числа параграфов, весь блок мультитекста можно подвергнуть форматированию сразу. Так же только для мультитекста есть подчеркивание.

Создание многострочного текста

Метод AddMText требует три параметра - текстовая строка, точка вставки и ширина рамки в которую будет втиснут мультитекст. Последний параметр представляет положительное число, в единицах текущего чертежа. Высота блока мультитекста зависит от количества вводимых символов. Примерсозданиямультитекста.

Sub CreateMText() 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 = 4 textString = "Длинаястрокаявляющаясяпримероммногострочноготекста." Set mtextObj = ThisDrawing.ModelSpace.AddMText(insertPoint, width, textString)ZoomExtentsEnd Sub

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

Вновь вводимому тексту автоматически назначается форматирование текущего текстового стиля. (по умолчанию стиль STANDARD) Форматирование можно впоследствии изменить используя специальные символы и свойства объекта. Ориентация, выравнивание, ширина и вращение могут назначаться только целому объекту мультитекст, в отличие например от подчеркивания, которое может выделять лишь нужное слово или букву.