Главная » Delphi, OLE, САПР » Ломаная – КОМПАС в DELPHI

0

Прежде чем приступить к построению ломаной линии нам нужно познакомиться с двумя методами интерфейса ksDocument2D ksPolyline и ksEndObj. Начнем с первого. Вот его прототип:

ksPolyline(

style: Integer //стиль линии ломаной

): Integer;

Что делает данный метод? Фактически он дает старт построению ломаной линии. Останавливает этот процесс другой метод того же интерфейса:

ksEndObj(): Integer;

Для большей ясности рассмотрим пример построения ломаной линии:

var

……

Document2D: ksDocument2D;

begin

……

//Начинаем процесс построения ломаной линии

Document2D.ksPolyline(1);

//Строим точки ломаной линии

Document2D.ksPoint(100, 100, 0);

Document2D.ksPoint(110, 110, 0);

Document2D.ksPoint(120, 90, 0);

Document2D.ksPoint(130, 110, 0);

Document2D.ksPoint(140, 90, 0);

Document2D.ksPoint(150, 110, 0);

Document2D.ksPoint(160, 90, 0);

Document2D.ksPoint(170, 100, 0);

//Останавливаем процесс построения ломаной линии

Document2D.ksEndObj();

……

В результате работы этой программы будет построена ломаная линия как на рисунке ниже:

Источник: Норсеев Сергей, «РАЗРАБОТКА ПРИЛОЖЕНИЙ ПОД КОМПАС В DELPHI»

По теме:

  • Комментарии