Позначення незазначеної шорсткості – КОМПАС в DELPHI

Інтерфейс 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(kompasGetParamStruct(ko_SpecRoughParam)) SpecRoughParamstyle := 13 / / Стиль тексту

SpecRoughParamsign := 0  / / Без обробки

SpecRoughParamt    := TRUE/ / Із знаком в дужках

SpecRoughParams := Ra0,4;

/ / Будуємо саме позначення незазначеної шорсткості Document2DksSpecRough(SpecRoughParam) kompasVisible:=true

end

На малюнку наводиться результат роботи цієї програми

Джерело: Норсеев Сергій, «розробка програм під КОМПАС У DELPHI»

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*