Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

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;

TypeColor2:= AutoCADHatch. GradientColor2;

TypeColor2.SetRGB(0, 250, 0);

AutoCADHatch.GradientColor2:= TypeColor2;

//Передаем границы заливки

AutoCADHatch. AppendOuterLoop(Zal ivka);

//Осуществляем заливку

AutoCADHatch.Evaluate;

//Сообщаем о совершенных изменениях в AutoCAD

AcadDocumentl.Application.Update; end;

Обратите внимание на второй параметр функции AddHatch(). Он отвечает за шаблон штриховки и может принимать следующие значения:

- LINEAR

- CYLINDER

- INVCYLINDER

- SPHERICAL

Рекомендуем скачать другие рефераты по теме: доклад по биологии, век реферат.



Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки