Главная » Delphi, OLE, САПР » Пример. Построение обозначения шероховатости с выносной линией – КОМПАС в DELPHI

0

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

var

kompas: KompasObject; Document2D: ksDocument2D; RoughParam: ksRoughParam; RoughPar : ksRoughPar; ShelfPar : ksShelfPar; DynamicArray : ksDynamicArray; Char255 : ksChar255;

……………………

Begin

……………………

//Горизонтальный отрезок, на котором будем обзначать шероховатость

Document2D.ksLineSeg(90, 100, 150, 100, 1);

//Получаем интерфейс обозначения параметров шероховатости

RoughParam := ksRoughParam(kompas.GetParamStruct(ko_RoughParam));

//Получаем интерфейс параметров обозначения шероховатости

RoughPar := ksRoughPar(RoughParam.GetrPar());

RoughPar.ang := 90;  //Расположить горизонтально RoughPar.around := 0; //Обычная шероховатость RoughPar.cText0 := 1;

RoughPar.cText1 := 0;

RoughPar.cText2 := 0;

RoughPar.cText3 := 0;

RoughPar.style := 4; //Стиль текста обозначение шероховатости

RoughPar.type_ := 0; //Без обработки

RoughPar.x := 100;

RoughPar.y := 100;

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

DynamicArray := ksDynamicArray(RoughPar.GetpText());

//Очищаем массив

DynamicArray.ksClearArray();

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

Char255 := ksChar255(kompas.GetParamStruct(ko_Char255)); Char255.str := ‘Ra0.4′;

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

DynamicArray.ksAddArrayItem(-1,Char255);

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

ShelfPar := ksShelfPar(RoughParam.GetshPar()); ShelfPar.ang   := 60; //угол наклона ShelfPar.length := 10; //длина

ShelfPar.psh   := -1; //выносная полка ориентирована влево

//Строим само обозначение шероховатости

Document2D.ksRough(RoughParam); kompas.Visible:=true;

end;

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

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

По теме:

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