grip 调用子函数难题【怎么才能 参数 是混合行的 】

1113824550

$$ 由于 字库内容太大 我想分开来做
$$ 发现 子程序不能 编译生成 *.gri
2 A! m  @. T5 k. x( x% j$$ 如下 部分代码
$$ 是不是 grip调用子函数 参数不能 是混合行的 [怎么才能做到  混合行的]
. a) `& p8 {6 g$ ^: O; ^% @$$ CALL/'SUB1',SF,JG,HG,zf,gg1,gg2
$$ zf 是 字符串
9 V; ]! P) I* i+ ^) @; {$$ SF,JG,HG,gg1,gg2 是数字

ENTITY/obj(99),ln(999),p(9999),ol(3),HI(2)
STRING/zf(132),zm(5),zmm(5)
NUMBER/mat1(12),mat2(12),d(6),dzb(3)
$$ 调用VB  
XSPAWN/'C:\MeiLei_ug_WG\MeiLei_UG_WG\刻字.exe',IFERR,END:
FETCH/TXT,1,'C:\MeiLei_UG_WG\MeiLei_UG_WG\111222333444555666.ini',IFERR,END:
RESET/1
/ ?- Q& _$ V4 o  Q3 ?: Y/ `$ zREAD/1,SF   $$ 大小
7 R& @* P# N! RREAD/1,JG   $$ 间隔
' T2 L4 p0 c2 {; o' [READ/1,HG   $$ 高度
READ/1,zf   $$ 字符串
# \6 ~" `6 P! o# u: {READ/1,gg1  $$ 字体类型(宋体、黑体)
READ/1,gg2  $$ 类型(常规、斜体)
" g% @0 g- n; y4 WFTERM/TXT,1
$$ 调用子函数
+ m  T/ E4 f  VCALL/'SUB1',SF,JG,HG,zf,gg1,gg2
5 b& I+ y! p0 ?0 g! S% |
END:
7 d7 ?  J0 r- I6 N, EHALT
; x5 y2 l$ s* }3 y  b3 l/ _
$$ 子程序 宋体字库 常规字体
PROC/SF,JG,HG,zf,gg1,gg2
ENTITY/obj(99),ln(999),p(9999),ol(3),HI(2)
8 H- |+ E6 E+ D! K! n2 pSTRING/zf(132),zm(5),zmm(5)
2 f% L: z" v: j3 @+ v- QNUMBER/mat1(12),mat2(12),d(6),dzb(3)
; S- x* S+ n4 `3 [- _1 {print/zf
RETURN

one6363

改成 STRING/zf，zm，zmm试一试
; K9 w& g! Y% \7 h7 m! I# s$ n* M! Q