Тип должен быть определён до помещения в тело параграфа
TextBox=""
См. пример параграфа - текстового блока, привязанного к подтипу выносная надпись.
!2D скрипт
!Текстовый шаблон привязан к подтипу выносная надпись
If LABEL_TEXT_PEN=0 then LABEL_TEXT_PEN=1
If LABEL_ARROW_PEN=0 then LABEL_ARROW_PEN=1
DEFINE STYLE{2} "TypA" LABEL_FONT_NAME, LABEL_TEXT_SIZE, LABEL_FONT_STYLE
SET STYLE "TypA"
SkinBegin =1
SkinFinish =3
DIM str_txt[]
str_txt[1]=_1
str_txt[2]=_2
str_txt[3]=_3
SET STYLE "TypA"
TextBox=""
for i=SkinBegin to SkinFinish-1
TextBox=TextBox+str_txt[i]+"\n"
next i
TextBox=TextBox+str_txt[SkinFinish]
PEN LABEL_TEXT_PEN
PARAGRAPH "TxtPar" LABEL_TEXT_ALIGN, 0, 0, 0, LABEL_TEXT_LEADING
SET STYLE "TypA"
TextBox
ENDPARAGRAPH
TEXTBLOCK "TxtBox" 0, 1, 0, LABEL_TEXT_WIDTH_FACT, LABEL_TEXT_CHARSPACE_FACT,1,"TxtPar"
rr=REQUEST ("TEXTBLOCK_INFO","TxtBox", width, height)
PEN SYMB_VIEW_PEN
RICHTEXT2 0,0, "TxtBox"
PEN LABEL_ARROW_PEN
rrr=request("Height_of_style","TypA", txt_hgt)
TxH=txt_hgt*glob_scale/1000
for i=0 to SkinFinish-1
line2 0,-i*TxH*LABEL_TEXT_LEADING-TxH,\
width*glob_scale/1000,-i*TxH*LABEL_TEXT_LEADING-TxH
next i