Зміщена площину – КОМПАС в DELPHI

Зміщена площину являє собою площину, розташовану паралельно заданій площині (вона називається базовою) і віддалену від неї на фіксовану відстань (зміщення)

Параметри зміщеною площині описуються інтерфейсом ksPlaneOffsetDefinition Цей інтерфейс повертає метод GetDefinition () інтерфейсу ksEntity Розглянемо властивості інтерфейсу

ksPlaneOffsetDefinition

direction – Напрям зсуву від базової площини Якщо значення даної властивості одно TRUE, то зсув має пряме напрямок Якщо ж значення цієї властивості одно FALSE, то зсув має зворотний напрямок Зазвичай прямий напрямок вказує вгору

offset – Зміщення (відстань) від базової площини

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

GetPlane() – Повертає інтерфейс ksEntity, що описує базову площину

SetPlane – Встановлює нову базову площину В якості єдиного параметра даний метод приймає інтерфейс ksEntity, який описує нову базову площину

Нижче наводиться ключовий фрагмент вихідного тексту програми, яка демонструє створення зміщеною площині Створювана площину розташована паралельно площині XOY і віддалена від неї на 10 мм

const

pTop_Part = -1

o3d_planeXOY = 1

o3d_planeOffset = 14

var

kompas: KompasObject Document3D: ksDocument3D Part: ksPart

EntityPlane, EntityOffsetPlane: ksEntity PlaneOffsetDefinition: ksPlaneOffsetDefinition

begin

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

kompas:=KompasObject(CreateOleObject(KompasApplication5))

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

Document3D:=ksDocument3D(kompasDocument3D())

/ / Створюємо документ-модель

Document3DCreate(FALSE,true)

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

Part:= ksPart(Document3DGetPart(pTop_Part))

/ / Отримуємо інтерфейс обєкта площину XOY

EntityPlane:=ksEntity(PartGetDefaultEntity(o3d_planeXOY))

/ / Отримуємо інтерфейс обєкта зміщена площину

EntityOffsetPlane:=ksEntity(PartNewEntity(o3d_planeOffset))

/ / Отримуємо інтерфейс параметрів зміщеною площині

PlaneOffsetDefinition:=ksPlaneOffsetDefinition(EntityOffsetPlaneGetDefinition()) PlaneOffsetDefinitiondirection:=TRUE / / Пряме напрямок зміщення PlaneOffsetDefinitionoffset:=10     / / Величина зміщення

/ / Встановлюємо базову площину

PlaneOffsetDefinitionSetPlane(EntityPlane)

/ / Створюємо зміщену площину

EntityOffsetPlaneCreate()

/ / Включаємо отбраженіе площин

Document3DhideAllPlanes:=FALSE

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

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>

*

*