Главная » Delphi, OLE, САПР » Эллипс Параметры эллипса (ksEllipseParam) – КОМПАС в DELPHI

0

Параметры эллипса описываются интерфейсом ksEllipseParam. Для его получения нужно вызвать метод GetParamStruct интерфейса KompasObject с параметром ko_EllipseParam. Рассмотрим свойства этого интерфейса:

A, B – размеры полуосей эллипса;

angle – согласно документации это угол наклона оси эллипса; style – стиль линии эллипса;

xc,yc – координаты центра эллипса, то есть точки пересечения его осей.

Метод у интерфейса всего один Init(). Он обнуляет значения свойств интерфейса ksEllipseParam.

Построение эллипса

Для  построения  эллипса  используется  метод  ksEllipse  интерфейса ksDocument2D. Вот прототип данного метода:

ksEllipse(

const par: IDispatch //интерфейс ksEllipseParam

): Integer;

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

Давайте посмотрим, как это делается на практике. Ниже приводится фрагмент программы, в котором строится эллипс размером 100×40 наклоненный к вертикальной оси под углом 30◦.

var

kompas: KompasObject; Document2D: ksDocument2D; EllipseParam: ksEllipseParam;

………

begin

………

//Заполняем параметры эллипса

EllipseParam:=ksEllipseParam(kompas.GetParamStruct(ko_EllipseParam)); EllipseParam.A:=20;

EllipseParam.B:=50; EllipseParam.angle:=30; EllipseParam.style:=1; EllipseParam.xc:=100; EllipseParam.yc:=100;

//Строим сам эллипс

Document2D.ksEllipse(EllipseParam);

………

На рисунке ниже представлен эллипс, построенный этой программой:

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

По теме:

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