Додавання деталей в збірку – КОМПАС в DELPHI

Для додавання деталей в збірку використовується метод SetPartFromFile інтерфейсу ksDocument3D Нижче представлений прототип цього методу

SetPartFromFile(

const fileName: WideString / / Файл з добавлеямой деталлю

const part: IDispatch / / Інтерфейс ksPart

externalFile: WordBool / / Чи зберігати звязок з файлом джерелом

): WordBool

Параметр fileName являє собою рядок з найменуванням файлу, з якого береться деталь

Згідно документації, параметр part представляє собою інтерфейс ksPart, що описує 3D-модель, що додається в збірку Однак, як

показує експеримент як значення цього параметра повинен бути вказаний інтерфейс ksPart, що описує головний компонент збірки

Параметр externalFile вказує, чи потрібно зберігати звязок з файлом збірки Якщо значення цього параметра дорівнює TRUE, то в документ збірки вставляється посилання на файл з деталлю Якщо ж значення цього параметра одно FALSE, то вставляється деталь повністю копіюється з свого файлу в документ збірки без збереження посилання на файл джерело

У разі успіху метод SetPartFromFile повертає значення TRUE

Припустимо, у нас є дві деталі Вони представлені на малюнку нижче

Ці деталі зберігаються в файлах «D: \ Study \ Деталь1m3d» і

«D: \ Study \ Деталь2m3d» Нижче наводиться ключовий фрагмент вихідного тексту програми, яка демонструє створення збірки, що складається з цих двох деталей

const

pTop_Part = -1

vm_Shaded = 3

var

kompas: KompasObject Document3D: ksDocument3D Part: ksPart

path: string

begin

/ / Підключаємося до компаса

kompas:=KompasObject(CreateOleObject(KompasApplication5))

/ / Отримуємо інтерфейс документа-збірки

Document3D:=ksDocument3D(kompasDocument3D())

/ / Створюємо збірку

Document3DCreate(FALSE,FALSE)

/ / Отримуємо інтерфейс моделі

Part:=ksPart(Document3DGetPart(pTop_Part))

/ / Додаємо першу деталь в збірку path: = D: \ Study \ Деталь1m3d; Document3DSetPartFromFile (path, Part, TRUE)

/ / Додаємо другу деталь в збірку path: = D: \ Study \ Деталь2m3d; Document3DSetPartFromFile (path, Part, TRUE)

end

/ / Встановлюємо півтонове відображення

Document3DdrawMode:=vm_Shaded

/ / Вмикаємо відображення каркаса

Document3DshadedWireframe:=TRUE

/ / Робимо КОМПАС видимим

kompasVisible:=true

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

Зрозуміло, дана збірка побудована неправильно Так, ми додали необхідні деталі в документ збірки, але відносне розташування цих деталей один щодо одного невірне Про те, як це виправити ми поговоримо в наступному розділі

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

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


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

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

Ваш отзыв

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

*

*