IT-практикум: DELPHI и AutoCAD
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: налоги и налогообложение, allbest
| Добавил(а) на сайт: Favsta.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная