Осевые линии

Begin

Begin

Begin

Var

Текст

End

Begin

Begin

NURBS-сплайн.

Begin

Begin

// создание структуры данных

par:= ksEllipseParam(kompas.GetParamStruct(ko_EllipseParam));

with par do

Init; // создание структуры

xc:= 50; // координаты центра

yc:= 40;

a:= 20; // оси

B:= 10;

style:= 1; // стиль линии

end;

iDocument2D.ksEllipse(par) // построение эллипса

end;

Сплайн – это составной объект, определяемый набором опорных точек. Сплайны используются в чертежах, например, при построении профиля зубчатых колес. Рассмотрим пример построения сплайна:

var par: ksNurbsPointParam;

par:= ksNurbsPointParam(kompas.GetParamStruct(ko_NurbsPointParam));

with par do

Init;

// 3 – порядок сплайна

// FALSE – незамкнутый (TRUE – замкнутый)

// 1 – стиль линии

iDocument2D.ksNurbs(3,False,1);

x:= 0;

y:= 0;

weight:= 1;

// добавили точку с координатами x,y и "весом" weight

iDocument2D.ksNurbsPoint(par);

x:= 20;

y:= 20;

weight:= 1;

iDocument2D.ksNurbsPoint(par);

x:= 50;

y:= 10;

weight:= 1;

iDocument2D.ksNurbsPoint(par);

x:= 70;

y:= 20;

weight:= 1;

iDocument2D.ksNurbsPoint(par);

x:= 100;

y:= 0;

weight:= 1;

iDocument2D.ksNurbsPoint(par);

x:= 50;

y:= -50;

weight:= 1;

iDocument2D.ksNurbsPoint(par);

// завершили создание объекта

iDocument2D.ksEndObj

end;

Здесь сплайн 3-го порядка задан шестью точками.

Текст отрисовывается методом ksParagraph. Это также составной объект. Для каждого элемента текста можно указывать большое количество параметров, приведенных в Приложении 6.2. Рассмотрим код, выводящий текст, показанный на
рис. 6.1.

par: ksParagraphParam; // абзац

itemParam: ksTextItemParam; // текст

itemFont: ksTextItemFont; // шрифт

par:= ksParagraphParam(

kompas.GetParamStruct(ko_ParagraphParam));

par.Init;

// параметры абзаца

with par do

begin

x:= 30; // левая верхняя точка

y:= 30;

height:= 25; // высота

width:= 20; // ширина

end;

// создаем абзац

iDocument2d.ksParagraph(par);

// параметры текста

itemParam:= ksTextItemParam(

kompas.GetParamStruct(ko_TextItemParam));

itemParam.Init;

// параметры шрифта

itemFont:= ksTextItemFont(itemParam.GetItemFont);

itemFont.Init;

with itemFont do

// c новой строчки

SetBitVectorValue(NEW_LINE, true);

// наименование шрифта

FontName:='Arial';

// высота текста в мм

Height:=5;

end;

// собственно текст

ItemParam.s:= 'Первая строка';

// выводим текст

iDocument2d.ksTextLine(itemParam);

// следующая строка

itemFont.Init;

with itemFont DO

SetBitVectorValue(NEW_LINE, true);

SetBitVectorValue(BOLD_ON, true);

Height:=10;

end;

ItemParam.s:= 'Вторая строка (жирный)';

iDocument2d.ksTextLine(itemParam);

iDocument2d.ksEndObj

end;

Метод SetBitVectorValue управляет оформлением текста и его разбивкой на строки (обратите внимание на константу NEW_LINE). Текст в основной надписи чертежа редактируется другими методами.

Рис. 6.1 Результат отрисовки текста.

Как известно, осевые линии окружностей и дуг в КОМПАС строятся автоматически. Рассмотрим пример построения окружности с осевыми. Для их построения нужно запомнить ссылку на окружность в переменную типа Reference.

var par:ksCentreParam;

c:reference;

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