Главная » Delphi, OLE, САПР » Пример. Позиционная линия-выноска с двумя строками – КОМПАС в DELPHI

0

Ниже приводится ключевой фрагмент исходного текста программы, в которой демонстрируется построение позиционной линии-выноски с двумя строками.

var

kompas: KompasObject; Document2D: ksDocument2D;

PosLeaderParam: ksPosLeaderParam;

DynamicArray1,DynamicArray2: ksDynamicArray; MathPointParam: ksMathPointParam;

Char255: ksChar255;

…………………………

Begin

…………………………

//Получаем интерфейс параметров позиционной линии выноски

PosLeaderParam:=ksPosLeaderParam(kompas.GetParamStruct(ko_PosLeaderParam));

PosLeaderParam.arrowType:= 0; //без указателя PosLeaderParam.dirX:=1;      //вправо PosLeaderParam.dirY:=1;      //вверх PosLeaderParam.style:=0;     //стиль текста

//Координаты базовой точки

PosLeaderParam.x:=110; PosLeaderParam.y:=110;

//Получаем массив "ножек" DynamicArray1:=ksDynamicArray(PosLeaderParam.GetpPolyline()); DynamicArray1.ksClearArray();

//Получаем массив точек DynamicArray2:=ksDynamicArray(kompas.GetDynamicArray(2)); DynamicArray2.ksClearArray();

//Получаем интерфейс параметров математической точки

MathPointParam:=ksMathPointParam(kompas.GetParamStruct(ko_MathPointParam));

MathPointParam.x:=100; MathPointParam.y:=100;

//Добавляем точку в массив точек

DynamicArray2.ksAddArrayItem(-1,MathPointParam);

//Добавляем массив точек в массив "ножек"

DynamicArray1.ksAddArrayItem(-1,DynamicArray2);

//Получаем массив строк

DynamicArray1 := ksDynamicArray(PosLeaderParam.GetpTextline()); DynamicArray1.ksClearArray();

//Получаем интерфейс строки

Char255:=ksChar255(kompas.GetParamStruct(ko_Char255)); Char255.str:=’Первая строка';

//Добавляем первую строку в массив строк DynamicArray1.ksAddArrayItem(-1,Char255); Char255.str:=’Вторая строка';

//Добавляем вторую строку в массив строк

DynamicArray1.ksAddArrayItem(-1,Char255);

//Строим позиционную линию-выноску Document2D.ksPositionLeader(PosLeaderParam); kompas.Visible:=true;

end;

На рисунке ниже показан результат работы этой программы.

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

По теме:

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