Позначення бази – КОМПАС в DELPHI

Інтерфейс ksBaseParam служить для завдання параметрів позначення бази Отримати цей інтерфейс можна за допомогою методу GetParamStruct інтерфейсу KompasObject Для цього в якості єдиного параметра даному методу потрібно передати значення константи ko_BaseParam Розглянемо властивості інтерфейсу ksBaseParam

str   – Рядок з текстом в позначенні бази Дана властивість

використовується, тільки якщо значення властивості type_ (про нього трохи нижче) інтерфейсу ksBaseParam одно FALSE, в іншому випадку воно ігнорується

style – Номер системного стилю тексту Допустимі номера системних стилів тексту описувалися в главі 22 На жаль, серед них не передбачено окремого системного стилю для тексту в позначенні бази Тому ми будемо використовувати номер системного стилю рівний нулю Це значення говорить системі КОМПАС про те, що для даного обєкта потрібно використовувати системний стиль за замовчуванням, передбачений для цього обєкта

type_1 – Визначає спосіб завдання тексту в позначенні бази Якщо значення цієї властивості дорівнює FALSE то текст задається у вигляді звичайної рядки, що вказується в значенні властивості str Якщо ж значення цього

властивості одно TRUE, то текст задається у вигляді динамічного масиву ksDynamicArray, а значення властивості str ігнорується

x1і y1 – Координати базової точки (початок «опори»)

x2 і y2 – Координати кінцевої точки «опори»

Точки, що задаються координатами x1, y1, x2 і y2, показані на малюнку

нижче

Тепер розглянемо методи інтерфейсу ksBaseParam

GetPTextItem() – Повертає інтерфейс динамічного масиву ksDynamicArray2 Даний масив використовується тільки в тому випадку якщо значення властивості type_ одно TRUE

1 У докмуентаціі КОМПАС це властивість описується як type (без знака підкреслення), проте в заголовних файлах воно задано як type_ (зі знаком підкреслення на кінці)

2 Розглядався в розділі 22

Масив має тип TEXT_ITEM_ARR Це означає, що рядки в ньому задаються у вигляді інтерфейсу ksTextItemParam1

Init()   – Ініціалізує нулями значення властивостей інтерфейсу ksBaseParam У разі успіху повертає значення TRUE

SetPTextItem – Встановлює інтерфейс динамічного масиву ksDynamicArray В якості єдиного параметра приймає значення встановлюваного інтерфейсу У разі успіху повертає значення TRUE

Для побудови позначення бази використовується метод ksBase інтерфейсу ksDocument2D В якості єдиного параметра даний метод приймає інтерфейс параметрів позначення бази ksBaseParam У разі успіху він повертає ідентифікатор побудованого позначення бази А в разі помилки – значення нуль

Нижче наводиться фрагмент вихідного коду програми, яка демонструє побудову позначення бази

var

kompas: KompasObject Document2D: ksDocument2D BaseParam : ksBaseParam

………………………

Begin

………………………

/ / Отримуємо інтерфейс параметрів позначення бази BaseParam:=ksBaseParam(kompasGetParamStruct(ko_BaseParam)) BaseParamstr := A; / / Текст в позначенні бази BaseParamstyle := 0 / / Стиль тексту за замовчуванням BaseParamtype_ := FALSE / / Динамічний масив не використовуємо BaseParamx1 := 100 / / Координати базової точки

BaseParamy1 := 100

BaseParamx2 := 100 / / Координати кінцевої точки опори

BaseParamy2 := 110

/ / Будуємо саме позначення бази

Document2DksBase(BaseParam) kompasVisible:=true

end

На малюнку нижче показаний результат роботи цієї програми

1 У даній книзі не розглядається

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

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


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

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

Ваш отзыв

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

*

*