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

0

Параметры обозначения неуказанной шероховатости (ksSpecRoughParam)

Интерфейс ksSpecRoughParam служит для задания параметров обозначения неуказанной шероховатости. Получить этот интерфейс можно с помощью метода GetParamStruct интерфейса KompasObject. Для этого в качестве единственного параметра данному методу нужно передать значение константы ko_SpecRoughParam. Рассмотрим свойства интерфейса ksSpecRoughParam.

style – номер системного стиля текста. Допустимые номера системных стилей текстов приводились в главе 22. Здесь лишь напомню, что для обозначения неуказанной шероховатости предусмотрен системный стиль текста с номером 13.

sign – определяет наличие и вид обработки поверхности. Аналогичен свойству type_ интерфейса ksRoughPar (см. главу 34).

t – задает наличие значка в скобках. Если значение этого свойства равно TRUE, то обозначение неуказанной шероховатости строится со знаком в скобках. Если же значение этого свойства равно FALSE, то обозначение неуказанной шероховатости строится без знака в скобках. На рисунке ниже представлен пример обозначения неуказанной шероховатости без знака в скобках (t=FALSE).

На рисунке ниже представлен пример обозначения неуказанной шероховатости со знаком в скобках (t=TRUE).

s - строка с выводимым текстом.

Методов у интерфейса ksSpecRoughParam нет.

Построение обозначения неуказанной шероховатости

Для построения обозначения неуказанной шероховатости используется метод ksSpecRough интерфейса ksDocument2D. В качестве единственного параметра данный метод принимает интерфейс ksSpecRoughParam.

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


Пример

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

var

kompas: KompasObject; Document2D: ksDocument2D;

SpecRoughParam: ksSpecRoughParam;

…………………………

Begin

…………………………

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

SpecRoughParam:=ksSpecRoughParam(kompas.GetParamStruct(ko_SpecRoughParam)); SpecRoughParam.style := 13; //Стиль текста

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

SpecRoughParam.t    := TRUE;//Со знаком в скобках

SpecRoughParam.s := ‘Ra0,4′;

//Строим само обозначение неуказанной шероховатости Document2D.ksSpecRough(SpecRoughParam); kompas.Visible:=true;

end;

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

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

По теме:

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