Назначение слоев, цветов и типов линий объектам

Число слоев в рисунке и число объектов на слое виртуально неограниченно. Пример изменения слоя объекта с применением свойства Layer.

Sub MoveObjectNewLayer()Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 2: center(1) = 2: center(2) = 0: radius = 1 Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius) Dim layerObj As AcadLayer Set layerObj = ThisDrawing.Layers.Add("ABC") circleObj.Layer = "ABC" circleObj.UpdateEnd Sub

Константыдляцветаобъекта: acRed, acYellow, acGreen, acCyan, acBlue, acMagenta, acWhite. Примеризменениясвойства Color уобъекта:

Sub ColorCircle() Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 2: center(1) = 2: center(2) = 0: radius = 1 Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius) circleObj.Color = acRed circleObj.UpdateEnd Sub

Пример изменения типа линий объекта. Создается окружность, делается попытка загрузить тип линии из acad.lin. Если тип линии уже есть или файл не существует, выдается сообщение об ошибке. В итоге для окружности устанавливается нужный тип линии.

Sub ChangeCircleLinetype()On Error Resume Next Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 2: center(1) = 2: center(2) = 0: radius = 1 Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius) Dim linetypeName As String linetypeName = "CENTER" ' Загрузимтиплинии "CENTER" изфайла acad.lin ThisDrawing.Linetypes.Load linetypeName, "acad.lin" If Err.Description <> "" Then MsgBox Err.Description ' Назначим окружности тип линии "CENTER"circleObj.Linetype = "CENTER" circleObj.Update ZoomExtentsEnd Sub

Работа с текстом

Вставка текста в рисунок

AutoCAD предоставляет несколько возможностей по созданию текста. В простейшем случае это однострочный текст. Для длинных блоков с внутренним форматированием используется многострочный текст. Хотя вводимый текст использует текущий текстовый стиль, основанный на шрифте и его настройках по умолчанию, есть несколько способов изменить оформление.

Работа со стилями текста

Каждый текст имеет связанный с ним стиль. Стиль задает шрифт, размер, угол, ориентацию и другие характеристики текста. Атрибут стиля перечислены ниже в таблице.

Свойство	Умолчание	Описание
Название	STANDARD	Не больше 31 символа
Название шрифта	txt.shx	Файл связанный со шрифтом
Название большого шрифта	нет	Для не ASCII символов
Высота	0	Высота символов
Ширина	1	Расширение или сжатие
Угол	0	Наклон текста
Флаг генерации	нет, нет	перевернутый, зеркальный или оба

Создание и изменение текстового стиля

Исключая стиль по умолчанию standard можно создавать любой собственный. Вновь вводимый текст наследует высоту, ширину, угол и др. свойства текущего стиля. После создания стиля текст имя его изменить нельзя. AutoCAD автоматически преобразует имя стиля в верхний регистр. Если не вводить имя, то оно будет Style[N] где N следующее числовое значение. Изменение текущего текстового стиля осуществляется модификацией свойств объекта TextStyle.

· FontFile - задает файл связанный со шрифтом;

· BigFontFile - задает форму не ASCII-символов;

· Height - задает высоту символа;

· Width - задает сжатие или растяжение символов;

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

· TextGenerationFlag - задает зеркальный, перевернутый или оба.

Если изменить ориентацию текстового стиля все ранее введенные тексты этим стилем изменят ориентацию, изменение же размера, ширины, наклона так не влияет на ранее введенный текст. Впрочем поведение довольно загадочно, иногда меняется и отображение ранее введенного текста в последнем случае. Шрифт определяет форму символов. Один шрифт может быть использован для создания различных стилей. Примерназначениитекстовогостиля.

Sub UpdateTextFont() Dim typeFace As String Dim Bold As Boolean Dim Italic As Boolean Dim charSet As Long Dim PitchandFamily As Long ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamilytypeFace = "PlayBill"' Установить ранее созданный текстовой стильThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily ThisDrawing.Regen acActiveViewportEnd Sub