GRS文件如何在中间一个标题

lin023

想在红色线条加一下栏，16系列、20系列、25系列、32系列，不知道怎么编写程序了
+ f' f) f, R2 J# V/ |/ C; S* R9 h以下是程序：
) [+ D( y' w/ ]) H" Z; WEntity/pt,pt1,pt2,cs,cs1,pt3
: d5 R' E6 R7 D9 X8 h9 A- Vstring/LN1(200),LN2(200),ln3(200)

L10:
" h4 T, z! M. h    pt=POINT/0,0,0
9 X# D" }( ^' B; _    pt1=POINT/1,0,0
    pt2=POINT/0,1,0
( A, y' X  J0 V0 H* ^8 Y# B& b% d    cs1=CSYS/pt,pt1,pt2
) A7 r" }3 Q" t( w' ^. o    Delete/pt,pt1,pt2
. P( X: I! M: f% ]+ a    &WCS=cs1
  r  N7 b5 P% J( X$ l, n    choose/'选择热嘴型号',$
    'AKM-16ATF-∮2.0',$   
7 D' ]+ [- S! W, Z# W1 E    'AKM-16ATF-∮2.5',$                                      
    'AKM-20ATF-∮2.0',$
- m( R8 X3 D- l5 P0 V5 M    'AKM-20ATF-∮2.5',$
    'AKM-20ATF-∮3.0',$
6 Q* k; P% R6 J; I2 J% D    'AKM-25ATF-∮2.5',$
" ]# t8 `4 w. j; C4 @    'AKM-25ATF-∮3.0',$
    'AKM-25ATF-∮3.5',$
    'AKM-25ATF-∮4.0',$                                       
2 D& A% l. y* N    'AKM-32ATF-∮3.0',$
    'AKM-32ATF-∮3.5',$
2 ?! z, J$ d' j4 C0 y( B0 Y0 p/ b    'AKM-32ATF-∮4.0',$
    'AKM-32ATF-∮5.0',$
    'AKM-32ATF-∮6.0',RESP
    JUMP/L10:,end:,,,A1:,A2:,A3:,A4:,A5:,A6:,A7:,A8:,A9:,$
6 [' A& }& \9 a* M, LA10:,A11:,A12:,A13:,A14:,RESP
- k' q$ x7 H' t% |( V. f) T: O
) _7 U6 ^. z4 I7 X+ jA1:
/ w, I' n1 f* i   LN1='16ATF-2.0.PRT'
9 x% X" R, i  l   JUMP/L20:
A2:
   LN1='16ATF-2.5.PRT'
   JUMP/L20:
4 g- z/ K/ B! E" R$ }; W, ^1 UA3:
3 m! c8 u* g# e4 k# k3 c5 f   LN1='20ATF-2.0.PRT'
& u! D; u# ~1 }$ k- \2 ~4 b   JUMP/L20:
A4:
8 ~- d3 d  W! W5 Y" k& Y   LN1='20ATF-2.5.PRT'
   JUMP/L20:
A5:
% C- S% _% D: w1 f+ z  @3 P   LN1='20ATF-3.0.PRT'
/ O; K) z7 x7 t0 _3 j+ _6 J   JUMP/L20:
A6:
8 J/ G" q8 H) k3 Q. [   LN1='25ATF-2.5.PRT'
   JUMP/L20:
1 T% _9 ?! v" E2 Z1 o# j" O. LA7:
+ b3 s! r+ G( s' i   LN1='25ATF-3.0.PRT'
   JUMP/L20:
! l2 {+ T3 \6 s8 [% d$ GA8:
   LN1='25ATF-3.5.PRT'
   JUMP/L20:
A9:
   LN1='25ATF-4.0.PRT'
* D1 I! `7 h2 U+ V/ o. z3 i/ V   JUMP/L20:
1 [# H$ c% q, k7 V; xA10:
   LN1='32ATF-3.0.PRT'
   JUMP/L20:
! ^' b4 ^( C: @A11:
- M! G7 R5 ^2 U! p% Q" ]' l# m   LN1='32ATF-3.5.PRT'
$ r! v+ _0 c* {+ L   JUMP/L20:
A12:
6 ^! F% L' M3 _' I   LN1='32ATF-4.0.PRT'
" j9 o, A( [; V: L3 Z* u   JUMP/L20:
0 x  ]; E# _* B$ x2 E; XA13:
   LN1='32ATF-5.0.PRT'
   JUMP/L20:
8 E4 `6 [8 s& [1 yA14:
# F" [! }  C- _! W+ P   LN1='32ATF-6.0.PRT'
- X/ ], B1 e# C, w- [" \4 j( j   JUMP/L20:

1 \0 I. t! ?: f  i# q
0 X# y4 J) I% p" S+ C8 f7 a6 P

L20:
    Gpos/'选择基准放置点',x,y,z,resp
3 r+ C4 A* ?! j0 S+ V! k2 m; h    jump/L20:,end:,,,L30:,resp
l30:
    pt3=POINT/x,y,z
! U1 Z0 E% H) l; U& l+ y% ?    cs=CSYS/cs1,ORIGIN,pt3
    &WCS=cs
    DELETE/pt3
( ~8 M2 s0 `- P    ln2='D:\akoma\STD\HOT\AKM-ATF\'+ln1
    RPATT/ln2,layer,IFERR,er:
8 I9 Y+ k* M. t    &WCS=cs1
    jump/l20:

end:
HALT
- T2 ^' W3 v, X% E& ?7 Der:
5 L+ U" Z, Z' g2 `% b    MESSG/'请重新选择'
    jump/end:
: ]& g! J9 U0 _6 w% P% g

lin023

希望那个大师帮忙告诉一下，先感谢了！

lin023

没有人知道吗？

wangcongwei1002

你这个已经加不了了，choose最多支持14项，你现在这个已经满了

zmjacky

最后个换成上一页，下一页。
" e3 y2 B$ f8 e; c再定义page页数，就可以无限翻页，无限增加选项。