Приклад. Збірка – КОМПАС в DELPHI

Повернемося до нашої збірці, яку ми будували в главі 82 Додамо в неї настройку розташування деталей один щодо одного В даному випадку нам потрібно як перемістити деталь, так і повернути її Ключовий фрагмент вихідного тексту доопрацьованій програми представлений нижче

const

pTop_Part = -1

vm_Shaded = 3

var

kompas: KompasObject Document3D: ksDocument3D Part: ksPart

Placement: ksPlacement

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)

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

Part:=ksPart(Document3DGetPart(1))

/ / Отримуємо інтерфейс розташування деталі

Placement:=ksPlacement(PartGetPlacement())

/ / Змінюємо розташування деталі

PlacementSetOrigin(0,0,170)

PlacementSetAxis(0,-1,170,1)

/ / Оновлюємо розташування деталі

PartUpdatePlacement()

/ / Перемальовувати збірку

Document3DRebuildDocument()

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>

*

*