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

lin023

想在红色线条加一下栏，16系列、20系列、25系列、32系列，不知道怎么编写程序了
2 l$ V) E% g; U: R1 P以下是程序：
Entity/pt,pt1,pt2,cs,cs1,pt3
8 Q+ \' W0 H% E# O& Q( i* ustring/LN1(200),LN2(200),ln3(200)
1 |* X9 v$ `' X' X+ x& r. l
L10:
    pt=POINT/0,0,0
    pt1=POINT/1,0,0
: ], {& x" y9 J: B    pt2=POINT/0,1,0
    cs1=CSYS/pt,pt1,pt2
' s6 d0 i- M& ~! r% w  T' u    Delete/pt,pt1,pt2
    &WCS=cs1
! [* G" H. R! m5 H+ Y3 W  r    choose/'选择热嘴型号',$
    'AKM-16ATF-∮2.0',$   
    'AKM-16ATF-∮2.5',$                                      
    'AKM-20ATF-∮2.0',$
    'AKM-20ATF-∮2.5',$
    'AKM-20ATF-∮3.0',$
4 R0 S# Q7 q8 j8 n. {$ r    'AKM-25ATF-∮2.5',$
    'AKM-25ATF-∮3.0',$
    'AKM-25ATF-∮3.5',$
    'AKM-25ATF-∮4.0',$                                       
2 Z* W  a+ E- @, w$ l. w    'AKM-32ATF-∮3.0',$
    'AKM-32ATF-∮3.5',$
    'AKM-32ATF-∮4.0',$
    'AKM-32ATF-∮5.0',$
" k6 N  k* |( t3 m1 _    'AKM-32ATF-∮6.0',RESP
    JUMP/L10:,end:,,,A1:,A2:,A3:,A4:,A5:,A6:,A7:,A8:,A9:,$
* q! q2 e' p  T9 ?0 UA10:,A11:,A12:,A13:,A14:,RESP

: {0 ^# x4 o7 h2 nA1:
9 Q; A6 y7 \8 O" T   LN1='16ATF-2.0.PRT'
   JUMP/L20:
A2:
. m* }1 [4 k% u+ f( P3 w9 _- ]   LN1='16ATF-2.5.PRT'
   JUMP/L20:
A3:
5 W! [7 }+ X8 _   LN1='20ATF-2.0.PRT'
   JUMP/L20:
+ f0 y" M) @: ^7 ~% m% jA4:
   LN1='20ATF-2.5.PRT'
8 [" b5 _! r" H3 h; s; D9 T   JUMP/L20:
A5:
   LN1='20ATF-3.0.PRT'
   JUMP/L20:
  p; p# r5 }) E7 dA6:
% D6 y$ J# M8 z- Z( a3 H4 L1 z+ T   LN1='25ATF-2.5.PRT'
+ ?  l1 c3 q  @2 |   JUMP/L20:
7 W: K) w; \$ @  Z) {. o0 cA7:
% O+ s! `! r9 M1 G/ h- ^' O5 ~& i   LN1='25ATF-3.0.PRT'
( S3 X# R# O; I  Y' u   JUMP/L20:
A8:
! I) _9 d+ ^1 v- n& C   LN1='25ATF-3.5.PRT'
   JUMP/L20:
A9:
   LN1='25ATF-4.0.PRT'
   JUMP/L20:
A10:
   LN1='32ATF-3.0.PRT'
; S+ L; h6 F# S" ]   JUMP/L20:
A11:
   LN1='32ATF-3.5.PRT'
   JUMP/L20:
A12:
   LN1='32ATF-4.0.PRT'
* l# I; v; X0 X9 e   JUMP/L20:
- r0 X* U6 k4 V$ KA13:
   LN1='32ATF-5.0.PRT'
0 [4 L* j& k6 J+ a   JUMP/L20:
A14:
   LN1='32ATF-6.0.PRT'
   JUMP/L20:

" x1 B; b+ g) a  j  h
- ^, q0 Y; B; Y
" `' }* A0 u" `  i) R/ j: K
L20:
7 N( k$ s6 k' k* I    Gpos/'选择基准放置点',x,y,z,resp
    jump/L20:,end:,,,L30:,resp
l30:
' c1 H& J/ \+ B! a5 c    pt3=POINT/x,y,z
    cs=CSYS/cs1,ORIGIN,pt3
    &WCS=cs
    DELETE/pt3
    ln2='D:\akoma\STD\HOT\AKM-ATF\'+ln1
    RPATT/ln2,layer,IFERR,er:
    &WCS=cs1
- j! M' V$ n1 L9 H1 n% o    jump/l20:

end:
HALT
4 w; b$ q# u/ S2 t$ Ner:
    MESSG/'请重新选择'
9 a8 `% A/ F3 V" h# m) Y8 E" e    jump/end:

7 N' d& j% i+ W# j2 F

lin023

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

lin023

没有人知道吗？

wangcongwei1002

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

zmjacky

最后个换成上一页，下一页。
# k4 J* V- s! [8 n6 U再定义page页数，就可以无限翻页，无限增加选项。