Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...
Топ:
Определение места расположения распределительного центра: Фирма реализует продукцию на рынках сбыта и имеет постоянных поставщиков в разных регионах. Увеличение объема продаж...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Устройство и оснащение процедурного кабинета: Решающая роль в обеспечении правильного лечения пациентов отводится процедурной медсестре...
Интересное:
Национальное богатство страны и его составляющие: для оценки элементов национального богатства используются...
Инженерная защита территорий, зданий и сооружений от опасных геологических процессов: Изучение оползневых явлений, оценка устойчивости склонов и проектирование противооползневых сооружений — актуальнейшие задачи, стоящие перед отечественными...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Дисциплины:
2021-06-30 | 42 |
5.00
из
|
Заказать работу |
|
|
Индивидуально можно менять шрифт, цвет, подчеркивание и др. атрибуты элементов мультитекста. Таблица кодов форматирующих символов приведена ниже.
Формат-символ | Назначение | Вводится так |
\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, то там должны появиться три разных стиля.
|
|
Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...
Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!