Радіальний розмір – КОМПАС в DELPHI

Для побудови радіального розміру використовується метод ksRadDimension інтерфейсу ksDocument2D В якості єдиного параметра даний метод приймає интерфес параметрів радіального розміру ksRDimParam Ми розглядали цей інтерфейс в попередньому розділі Повторюватися я не буду

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

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

var

kompas: KompasObject Document2D: ksDocument2D RDimParam: ksRDimParam

RDimDrawingParam: ksRDimDrawingParam

RDimSourceParam: ksRDimSourceParam DimTextParam: ksDimTextParam DynamicArray: ksDynamicArray

………………………………

Begin

………………………………

/ / Будуємо дугу кола, радіус якої будемо вимірювати

Document2DksArcByAngle(100, 100, 15, 10, 70, 1, 1)

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

RDimParam:=ksRDimParam(kompasGetParamStruct(ko_RDimParam))

/ / Отримуємо інтерфейс ksRDimDrawingParam RDimDrawingParam:=ksRDimDrawingParam(RDimParamGetDPar()) RDimDrawingParamang:=30 / / Кут нахилу розмірної лінії

RDimDrawingParampt1:=1 / / Перша стрілка зсередини RDimDrawingParampt2:=0 / / Ігнорується RDimDrawingParamshelfDir:=0 / / Виносний полки немає RDimDrawingParamtextPos:=0/ / Автоматичне розміщення тексту

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

RDimSourceParam := ksRDimSourceParam(RDimParamGetSPar())

/ / Координати центру вимірюваної окружності RDimSourceParamxc:=100 RDimSourceParamyc:=100

/ / Радіус вимірюваної дуги кола

RDimSourceParamrad:=15

/ / Отримуємо інтерфейс ksDimTextParam DimTextParam:=ksDimTextParam(RDimParamGetTPar()) DimTextParambitFlag:=1/ / Автоматична простановка розміру DimTextParamsign:=3/ / Значок радіуса

DimTextParamstringFlag:=false DimTextParamstyle:=3/ / Текст розмірного напису

/ / Отримуємо інтерфейс ksDynamicArray DynamicArray:=ksDynamicArray(DimTextParamGetTextArr()) DynamicArrayksClearArray() / / Очищаємо масив

/ / Будуємо радіальний розмір Document2dksRadDimension(RDimParam) 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>

*

*