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

Как начертить линию, имея ее координаты, вы уже знаете, и разбирать этот процесс нет смысла, поэтому протестируем готовый код. Запустите программу, нажмите кнопку «Линия с запросом» и переключитесь в окно AutoCAD. Обратите внимание: в командной строке, расположенной в нижней части окна AutoCAD, появился текст «Укажите начальную координату», рис. 4.

Сделаем это, щелкнув мышью в понравившемся нам месте на холсте чертежа. Появится надпись «Укажите конечную координату». В результате из указанных нами точек появится линия. Вот оно, чудо взаимодействия программы и программиста! Однако не будем отступать от главного — перейдем на следующий уровень. На подходе фигура посложнее — полилиния. С помощью нее можно строить всевозможные многоугольники. Для начала построим четырехугольник. Стоит отметить, что в этом случае нам достаточно задать две координаты X и Y. Размещаем на форме кнопку, назовем ее «Четырехугольник», далее создадим вариантный массив Points, рассчитанный на 10 значений, и зададим нужные координаты, например:

Points[0]:=	646.0351;
Points [1]: =	847.318;
Points[2]:=	1167.2274;
Points[3]:=	847.318;
Points[4]:=	1167.2274;
Points[5]: =	542.6844;
Points[6]:=	646.0351;
Points[7]:=	542.6844;
Points[8]:=	646.0351;
Points[9]:=	847.318;

Объявим переменную AutoCADPolyline типа OleVariant и последний штрих:

AutoCADPolyline:= AcadDocumentl.

ModelSpace.AddLightWeightPolyline(Po

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





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