Главная » Delphi, OLE, САПР » NURBS кривая – КОМПАС в DELPHI

0

Построение NURBS кривой очень похоже на построение ломаной, которое мы уже рассматривали. Разница состоит лишь в том, что запуск построения кривой осуществляется методом ksNurbs интерфейса ksDocument2D, а не ksPolyline как в случае с ломаной. Вот как выглядит метод ksNurbs:

ksNurbs(

degree: Smallint; //степень полинома кривой (от 3 до 8)

close: WordBool; //признак замкнутости кривой

style: Integer   //стиль линии

): Integer;

Если параметр close равен true то строится замкнутая кривая, если же он равен false то незамкнутая кривая.

В случае успеха данный метод возвращает единицу, а в случае ошибки

нуль.

Теперь  можно  переходить  к  практике.  Ниже  приводится  фрагмент

программы, строящей NURBS кривую:

var

……

begin

……

Document2D: ksDocument2D;

//Запускаем процесс построения кривой

Document2D.ksNurbs(3,false,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»

По теме:

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