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

lin023

想在红色线条加一下栏，16系列、20系列、25系列、32系列，不知道怎么编写程序了
- H% d  s$ M7 P( S- z0 U& \# Y以下是程序：
  R& O( I. p# g2 a4 N. WEntity/pt,pt1,pt2,cs,cs1,pt3
string/LN1(200),LN2(200),ln3(200)
& ?# H1 n1 U& H1 N' y: M
; h1 b* S- a. Q1 z) TL10:
    pt=POINT/0,0,0
    pt1=POINT/1,0,0
    pt2=POINT/0,1,0
7 S, u- g+ C7 h: E4 E& A    cs1=CSYS/pt,pt1,pt2
3 J! x$ i  o3 _' U' k' B    Delete/pt,pt1,pt2
9 I4 H( G% C( x    &WCS=cs1
# l3 ]  |4 f0 w2 o    choose/'选择热嘴型号',$
    'AKM-16ATF-∮2.0',$   
    'AKM-16ATF-∮2.5',$                                      
  E7 H8 t" d) i* r    'AKM-20ATF-∮2.0',$
    'AKM-20ATF-∮2.5',$
+ ~  F2 N; s9 A* _& r! B    'AKM-20ATF-∮3.0',$
    'AKM-25ATF-∮2.5',$
2 m0 ]0 b& {" Z1 [9 ~    'AKM-25ATF-∮3.0',$
    'AKM-25ATF-∮3.5',$
7 g- n6 z0 e5 P. y5 s; N" N    'AKM-25ATF-∮4.0',$                                       
    'AKM-32ATF-∮3.0',$
    'AKM-32ATF-∮3.5',$
% `$ c) N( |& H) [1 p    'AKM-32ATF-∮4.0',$
4 y3 Y$ Y$ V: @: i    'AKM-32ATF-∮5.0',$
    'AKM-32ATF-∮6.0',RESP
, W/ Y' x1 w3 q4 P0 _) ?    JUMP/L10:,end:,,,A1:,A2:,A3:,A4:,A5:,A6:,A7:,A8:,A9:,$
, G, k/ |1 [7 jA10:,A11:,A12:,A13:,A14:,RESP
1 w8 T# G% W" O
A1:
   LN1='16ATF-2.0.PRT'
   JUMP/L20:
! D7 a2 Y. a# @: e- g* jA2:
   LN1='16ATF-2.5.PRT'
   JUMP/L20:
+ S, s2 b$ b& G' G2 `4 D% }+ x2 EA3:
& c& m+ o  Y3 ?; t5 h' U- a   LN1='20ATF-2.0.PRT'
/ t& m& \9 K' U. t   JUMP/L20:
A4:
  G9 ]% u1 ?1 T$ I: z  [; a9 n3 a0 d6 t   LN1='20ATF-2.5.PRT'
5 y% m; m0 J( ^  K7 \, n   JUMP/L20:
A5:
   LN1='20ATF-3.0.PRT'
, n1 E/ y" B2 r   JUMP/L20:
% z6 Z8 B7 J5 ^) b8 h* g2 w0 n  rA6:
   LN1='25ATF-2.5.PRT'
* D, y2 {, I/ _! }1 K   JUMP/L20:
( }/ \3 ^4 B# `$ m9 v$ nA7:
   LN1='25ATF-3.0.PRT'
   JUMP/L20:
8 S" T8 j9 l, Z; D4 I) [$ T! o, fA8:
* V9 n8 ^. r  J2 g! M- S   LN1='25ATF-3.5.PRT'
   JUMP/L20:
A9:
   LN1='25ATF-4.0.PRT'
   JUMP/L20:
A10:
   LN1='32ATF-3.0.PRT'
3 n0 v4 x! l7 p   JUMP/L20:
A11:
7 `- |' u$ O; i. S$ C: X4 O   LN1='32ATF-3.5.PRT'
. E1 [) a. I7 u+ r5 U/ A   JUMP/L20:
7 I! a% B6 v6 v) i5 W. yA12:
   LN1='32ATF-4.0.PRT'
; S0 u, o$ a: H5 O1 J5 r1 W   JUMP/L20:
A13:
   LN1='32ATF-5.0.PRT'
5 M1 s. a# u( Q* {, s   JUMP/L20:
( L: r$ s) Q/ X8 I/ `A14:
   LN1='32ATF-6.0.PRT'
: C2 O- l* T& j   JUMP/L20:




, ^4 [! _5 k  i: ]2 `; R: o6 S) JL20:
    Gpos/'选择基准放置点',x,y,z,resp
    jump/L20:,end:,,,L30:,resp
( |, ]0 _- ^9 a. \% }l30:
) K# P1 Q) y0 K# n- X' c    pt3=POINT/x,y,z
    cs=CSYS/cs1,ORIGIN,pt3
6 A; o! H- K! w) {- ?0 P1 {    &WCS=cs
4 s7 B  F2 o1 y8 m' z' B    DELETE/pt3
3 }% l' h/ S# y    ln2='D:\akoma\STD\HOT\AKM-ATF\'+ln1
. [1 J& e$ ~. M7 k    RPATT/ln2,layer,IFERR,er:
) j! w# {" N7 U% O. E: a" O) X% G    &WCS=cs1
8 F8 o* m; H6 `  I, v5 \" H: y& q    jump/l20:

end:
HALT
er:
- i$ u3 o' e6 ~  `( g3 f: {& N    MESSG/'请重新选择'
: Z6 J% p7 b) \! T: a7 E: Q    jump/end:
& ~' X$ \( v" B1 J, A. h5 w- `

lin023

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

lin023

没有人知道吗？

wangcongwei1002

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

zmjacky

最后个换成上一页，下一页。
再定义page页数，就可以无限翻页，无限增加选项。