Смена системы координат

Угловые, диаметральные размеры, знаки шероховатости, выноски

Begin

Var

param: ksLDimParam;

dPar: ksDimDrawingParam;

sPar: ksLDimSourceParam;

tPar: ksDimTextParam;

str: ksChar255;

arrText: ksDynamicArray;

obj: Reference;

// структура для параметров размера

param:= ksLDimParam

(kompas.GetParamStruct(ko_LDimParam));

// параметры отрисовки размера

dPar:= ksDimDrawingParam(param.GetDPar);

// положение размерной линии

sPar:= ksLDimSourceParam(param.GetSPar);

// параметры размерного текста

tPar:= ksDimTextParam (param.GetTPar);

dPar.Init;

dPar.textBase:= 0; // способ размещения текста

// тип первой стрелки (1- внутри, 2 – снаружи)

dPar.pt1:= 2;

dPar.pt2:= 2; // тип второй стрелки

dPar.ang:= -30; // угол наклона выноски

dPar.lenght:= 20; // длина выноски

sPar.Init;

// начало первой выносной линии

sPar.x1:= 50;

sPar.y1:= 50;

// начало второй выносной линии

sPar.x2:= 150;

sPar.y2:= 50;

// смещение размерной линии

sPar.dx:= 0;

sPar.dy:= 20;

// относительно какой точки задается смещение:

// 1 - от 1,y1,

// 2 - от x2,y2

sPar.basePoint:= 1;

tPar.Init(False);

// автопростановка номинала

tPar.SetBitFlagValue(_AUTONOMINAL, true);

// будет текст перед номиналом

tPar.SetBitFlagValue(_PREFIX, true);

// будет проставлено отклонение

tPar.SetBitFlagValue(_DEVIATION, true);

// будет проставлена единица измерения

tPar.SetBitFlagValue(_UNIT, true);

// будет текст после номинала

tPar.SetBitFlagValue(_SUFFIX, true);

// знак диаметра перед текстом

tPar.sign:= 1;

// строка в 255 символов

str:= ksChar255(kompas.GetParamStruct(ko_Char255));

// массив текстовых строк

arrText:= ksDynamicArray(tPar.GetTextArr);

// текст до номинала

str.str:= '+';

// добавили в массив

arrText.ksAddArrayItem(-1, str);

// верхнее отклонение

str.str:= '+0,2';

// добавили в массив

arrText.ksAddArrayItem(-1, str);

// нижнее отклонение

str.str:= '-0,4';

// добавили в массив

arrText.ksAddArrayItem(-1, str);

// единица измерения

str.str:= ' мм';

// добавили в массив

arrText.ksAddArrayItem(-1, str);

// текст после размера

// &04 - знак "х"

// &01 - знак градуса

str.str:= '2&0445&01';

arrText.ksAddArrayItem(-1, str);

// создаем размер

iDocument2d.ksLinDimension(param)

end;

Делаются аналогично. Примеры их построения приведены в файле step99.pas, входящем в примеры библиотек из комплекта поставки КОМПАС.

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

ksMtr(x, y, Angle, scaleX, scaleY)

Здесь x, y - координаты начала локальной системы координат, angle – угол наклона системы координат в градусах, scaleX - масштаб локальной системы координат по оси Х, scaleY - масштаб локальной системы координат по оси Y. Отменяется действие локальной системы координат методом ksDeleteMtr.

Дата добавления: 2014-11-29