Приклад. Позиційна лінія-виноска з двома рядками – КОМПАС в DELPHI

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

var

kompas: KompasObject Document2D: ksDocument2D

PosLeaderParam: ksPosLeaderParam

DynamicArray1,DynamicArray2: ksDynamicArray MathPointParam: ksMathPointParam

Char255: ksChar255

…………………………

Begin

…………………………

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

PosLeaderParam:=ksPosLeaderParam(kompasGetParamStruct(ko_PosLeaderParam))

PosLeaderParamarrowType:= 0 / / Без покажчика PosLeaderParamdirX:=1      / / Вправо PosLeaderParamdirY:=1      / / Вгору PosLeaderParamstyle:=0     / / Стиль тексту

/ / Координати базової точки

PosLeaderParamx:=110 PosLeaderParamy:=110

/ / Отримуємо масив ніжок DynamicArray1:=ksDynamicArray(PosLeaderParamGetpPolyline()) DynamicArray1ksClearArray()

/ / Отримуємо масив точок DynamicArray2:=ksDynamicArray(kompasGetDynamicArray(2)) DynamicArray2ksClearArray()

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

MathPointParam:=ksMathPointParam(kompasGetParamStruct(ko_MathPointParam))

MathPointParamx:=100 MathPointParamy:=100

/ / Додаємо крапку в масив точок

DynamicArray2ksAddArrayItem(-1,MathPointParam)

/ / Додаємо масив точок у масив ніжок

DynamicArray1ksAddArrayItem(-1,DynamicArray2)

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

DynamicArray1 := ksDynamicArray(PosLeaderParamGetpTextline()) DynamicArray1ksClearArray()

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

Char255: = ksChar255 (kompasGetParamStruct (ko_Char255)) Char255str: = Перший рядок;

/ / Додаємо перший рядок в масив рядків DynamicArray1ksAddArrayItem (-1, Char255) Char255str: = Другий рядок;

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

DynamicArray1ksAddArrayItem(-1,Char255)

/ / Будуємо позиційну лінію-виноску Document2DksPositionLeader(PosLeaderParam) 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>

*

*