Приклад. Побудова позначення шорсткості з виносної лінією – КОМПАС в DELPHI

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

var

kompas: KompasObject Document2D: ksDocument2D RoughParam: ksRoughParam RoughPar : ksRoughPar ShelfPar : ksShelfPar DynamicArray : ksDynamicArray Char255 : ksChar255

……………………

Begin

……………………

/ / Горизонтальний відрізок, на якому будемо обзначать шорсткість

Document2DksLineSeg(90, 100, 150, 100, 1)

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

RoughParam := ksRoughParam(kompasGetParamStruct(ko_RoughParam))

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

RoughPar := ksRoughPar(RoughParamGetrPar())

RoughParang := 90  / / Розташувати горизонтально RoughPararound := 0 / / Звичайна шорсткість RoughParcText0 := 1

RoughParcText1 := 0

RoughParcText2 := 0

RoughParcText3 := 0

RoughParstyle := 4 / / Стиль тексту позначення шорсткості

RoughPartype_ := 0 / / Без обробки

RoughParx := 100

RoughPary := 100

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

DynamicArray := ksDynamicArray(RoughParGetpText())

/ / Очищаємо масив

DynamicArrayksClearArray()

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

Char255 := ksChar255(kompasGetParamStruct(ko_Char255)) Char255str := Ra04;

/ / Додаємо рядок у масив

DynamicArrayksAddArrayItem(-1,Char255)

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

ShelfPar := ksShelfPar(RoughParamGetshPar()) ShelfParang   := 60 / / Кут нахилу ShelfParlength := 10 / / Довжина

ShelfParpsh   := -1 / / Виносна полку орієнтована вліво

/ / Будуємо саме позначення шорсткості

Document2DksRough(RoughParam) kompasVisible:=true

end

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

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

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


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

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

Ваш отзыв

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

*

*