Статья: IT-практикум: DELPHI и AutoCAD

При работе с чертежом может возникнуть необходимость присвоения имени отдельным объектам или их группам, что позволит быстро обращаться к ним в дальнейшем. Этот механизм реализован в AutoCAD посредством слоев. Итак, создайте новый чертеж, нарисуйте в нем два прямоугольника и многогранник (с помощью полилинии), а в каждой фигуре проставьте текст «Комната1», «Комната2», «Комната 3» (вы можете найти чертеж в исходниках программы, он называется Планировка.dwg), рис. 6.

Выберите пункт меню Format\l_ayer, появится окно Layer Property Manager. Нажмите кнопку New и введите текст FirstRoom, рис. 7. Точно таким же образом создаются слои SecondRoom и ThirdRoom. После двойного клика на первой комнате появится окно PROPERTIES. В свойстве Layer установим для выбранной фигуры слой FirstRoom, назначим остальным фигурам одноименные слои. Последний штрих —в целях эксперимента начертим простую линию и круг. Все, подготовительные действия выполнены, приступаем к кодингу— нашей задачей будет получение в программе данных столько что созданном чертеже. Разместим на форме TListBox и кнопку «Прочитать чертеж» (полный листинг обработчика— в исходниках, здесь мы рассмотрим только самые важные моменты). Сначала нужно организовать цикл, перебирающий все графические объекты, принадлежащие чертежу:

for i:=0 to AcadDocumentl.ModelSpace. Count-1 do

Проверяя название фигуры, мы будем осуществлять необходимые действия. Так как отдельные фигуры имеют разный набор свойств и количество координат, например, линия задается двумя точками, каждая из которых проецируется в трехмерной системе (ось X,Y,Z), а вот каждая точка полилинии позиционируется лишь в оси X и Y, то эти моменты обязательно надо учитывать. Поэтому для каждой фигуры придется писать свой собственный обработчик. Я рассмотрю описанный выше момент на следующем примере:

if AutoCadObject.

EntityName='AcDbCircle' then begin

//Координаты центра круга

t:=(AutoCadObject as lAcadCircle). Center;

ListBoxl.Items.Add('06beKT — Круг');

Li stBoxl. Items. Add ('Координаты центра X-'+IntToStr(t[0])+' Y-'+IntToStr (t [1]) +' Z-'+IntToStr (t [2])) ;

t:=(AutoCadObject as lAcadCircle). Radius;

ListBoxl.Items.АсШСРадиус круга R='+IntToStr(t)); end;

Круг по понятиям AutoCAD называется AcDBCircle. Чтобы обратиться к его свойствам, нужно привести объект AutoCADObject, который ссылается на обрабатываемую в данный момент фигуру к типу lAcadCircle, а далее все просто: из свойства Center вытаскиваем координаты центра, из свойства Radius — длину радиуса. Обратите внимание, в процессе обработки полилинии перед нами встанет практически философский вопрос: «Как узнать количество точек, из которых она состоит?». Дело в том, что это может быть обычный прямоугольник, который будет содержать 4 точки или ломаная фигура, состоящая из 10. Способ решения прост — для вариантного массива есть специальная функция VarArrayHighBoundQ, которой в качестве первого параметра передаем имя массива, а в качестве второго — единицу.

Полезные возможности

Предлагаю не останавливаться на достигнутом. Нарисуем круг и заштрихуем его. Для этого служит метод AddHatch(), принадлежащий коллекции ModelSpace. Итак, разместим на форме кнопку, назовем ее

«Штриховка» и впишем в ее обработчик следующий код:

AutoCADHatch, Zalivka: OleVariant;

TypeColorl, TypeColor2: OleVariant;

Points:01eVariant; begin

Points:= VarArrayCreate([0, 2], VarDouble);

Points[0]:= 400; Points[l]:= 700; Points[2]:= 500;

//Задаем границы штриховки

Zalivka:= VarArrayCreate([0, 0], varDispatch);

Zalivka[0]:= AcadDocumentl. ModelSpace.AddCircle(Points,500);

//Задаем параметры штриховки

AutoCADHatch:= AcadDocumentl. ModelSpace. AddHatch (acPreDefinedGradie nt, 'LINEAR', True, acGradientObject);

//Задаем цвета заливки

TypeColorl:= AutoCADHatch. GradientColorl;

TypeColorl.SetRGB(200, 50, 200);

AutoCADHatch.GradientColorl:= TypeColorl;