Правильний багатокутник Параметри багатокутника (ksRegularPolygonParam) – КОМПАС в DELPHI

Параметри правильного багатокутника задаються інтерфейсом ksRegularPolygonParam Отримати даний інтерфейс можна за допомогою методу GetParamStruct інтерфейсу KompasObject, для цього йому як параметр потрібно передати константу ko_RegularPolygonParam

Нижче представлені властивості цього інтерфейсу:

ang – кут між вертикальною віссю і одне з вершин багатокутника

count – кількість вершин

describe – визначає значення властивості radius Якщо властивість describe має значення true, тоді властивість radius розглядається як радіус вписаного в багатокутник кола В іншому випадку (якщо значення властивості describe одно false) властивість radius розглядається як радіус описаної навколо багатокутника кола

radius – радіус вписаного або описаного (залежно від значення властивості describe) кола

style – стиль ліній багатокутника

xc і yc – координати центру вписаною або описаного кола

Серед методів даного інтерфейсу нас цікавитиме лише один метод Init () Даний метод скидає настройки багатокутника

Для побудови багатокутника використовується метод ksRegularPolygon інтерфейсу ksDocument2D Ось його прототип:

ksRegularPolygon(

const par: IDispatch / / Інтерфейс ksRegularPolygonParam

centre: Smallint / / ознака позначення центру

): Integer

Як бачите побудова багатокутника схоже на побудову прямокутника, про який ми говорили в попередньому розділі Параметр Smallint тут має те ж саме значення

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

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

багатокутником

var

kompas: KompasObject Document2D: ksDocument2D

RegularPolygonParam: ksRegularPolygonParam

………

Begin

………

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

RegularPolygonParam:=ksRegularPolygonParam(kompasGetParamStruct(ko_RegularPolygonParam))

/ / Без нахилу

RegularPolygonParamang:=0

/ / Шестикутник

RegularPolygonParamcount:=6

/ / Радіус вписаного кола дорівнює 10 RegularPolygonParamdescribe:=true RegularPolygonParamradius:=10

/ / Основний стиль лінії

RegularPolygonParamstyle:=1

/ / Координати центру вписаного кола RegularPolygonParamxc:=100 RegularPolygonParamyc:=100

/ / Будуємо сам багатокутник

Document2DksRegularPolygon(RegularPolygonParam, 0)

………

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

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

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


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

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

Ваш отзыв

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

*

*