Главная » Delphi, OLE, САПР » Прямоугольник Параметры прямоугольника (ksRectangleParam) – КОМПАС в DELPHI

0

Параметры прямоугольника задаются интерфейсом KsRectangleParam. Получить его можно с помощью метода GetParamStruct интерфейса KompasObject, для этого надо в качестве параметра передать ему константу ko_RectangleParam.

Ниже представлены свойства этого интерфейса.

ang – угол наклона прямоугольника к горизонтальной оси;

height – высота прямоугольника;

style – стиль линии;

width – ширина прямоугольника;

x и y – координаты левого нижнего угла прямоугольника.

Среди методов данного интерфейса нам может быть интересен только метод Init(), который не имеет входных параметров и сбрасывает настройки прямоугольника.

Построение прямоугольника

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

ksRectangle(

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

centre: Smallint //признак обозначения центра

): Integer;

С первым параметром, думаю все ясно. Поговорим о втором. Данный параметр задает обозначение центра прямоугольника (точку пересечения его диагоналей). Он может принимать одно из значений, представленных в таблице ниже:

Значение

Описание

0

никак не обозначать центр

1

маленьким крестиком

2

горизонтальная ось

3

и горизонтальная и вертикальная оси

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

Ниже приводится пример программы, которая строит прямоугольник размером 20×50, наклоненный под углом 30 градусов.

Var

……

Begin

……

kompas: KompasObject; Document2D: ksDocument2D;

RectangleParam: ksRectangleParam;

//Заполняем параметры прямоугольника

RectangleParam:=ksRectangleParam(kompas.GetParamStruct(ko_RectangleParam));

RectangleParam.ang:=30; RectangleParam.height:=20;

RectangleParam.style:=1; RectangleParam.width:=50; RectangleParam.x:=100; RectangleParam.y:=100;

//Строим сам прямоугольник без обозначения центра

Document2D.ksRectangle(RectangleParam,0);

……

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

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

По теме:

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