请大侠帮忙检查错误！！

董堃

请大侠帮忙检查错误！！

$$ 变量定义
4 x( K7 j2 i1 F" }" F% ]7 T; Aentity /obj(100),pt0,tb(200),zx(100),sm,xm,pn(100000),pm(100000),&
5 p- \  g# I$ X& X7 fGB,G2B(100),lsg,bg(100),linm,linn
string /yzs(100),ys
number /L,D,D2,p,b,a,YN,x1,y1,z1,h2,hy,zjqs,zhqs,r,$
6 p9 a/ \) V8 |6 ]2 ^) c1 s' dq,MAT(20,20),x(10000),y(10000),z(10000),eh,zh,s,m,$
0 K" J- p" U$ d- ci1,i2,i3,c,qx,t,thp,zp,zt,xn,yp,zn,xm,ym,angt,angz,g
# Q: Q# F( ]& hyzs='D:\NX10\bzj\data\th.dat'
$ d, B& w6 w0 ?9 l9 j4 alabel:
$ ]9 L! I3 s3 `* Nxspawn/'D:\NX10\bzj\Program\exe\th.exe'
FETCH/TXT,1,yzs,IFERR,label:
reset/1
( P( m) c* b2 a# V2 x. u9 qread/1,D     $$外径
READ/1,D2    $$内径
READ/1,L     $$自由长度
READ/1,ys    $$颜色
/ {: f3 o* ]; R/ Q* z, c* ZREAD/1,p     $$节距  
READ/1,b     $$弹簧丝轴向尺寸
READ/1,qs    $$总圈数  
READ/1,YN    $$是否画窝孔
FTERM/TXT,1
n10:
a=(D-D2)/2      $$弹簧丝径向尺寸
6 J1 l: x8 X' v4 e  B7 k/ P* ?zhqs=0.75       $$弹簧头部圈数
8 c5 G9 }' f8 o. H% [eh=(qs-1.5)/2*b $$弹簧头部螺旋高度
zh=l-b-eh*2     $$弹簧中间螺旋高度
' p3 H$ P- j% q8 c8 eangt=270     $$头部角度
- G4 d6 w( V% [0 F* a, ~angz=angt+(qs-1.5)*360
/ k0 o) y! @$ w: ~4 |! }# Xs=(qs-1.5)*25
+ Z3 @4 n5 x/ l; ]4 Zthp=0.75*25
MAT(1,1..12)=MATRIX/TRANSL,0,0,0
ifthen/yn==1
6 w: y. ]( I. X7 B" B$ O4 fzb:
& a; V. n& a* Y* T% }0 M) f     MASK/71  $$只选实体
3 e9 Y  Z& {4 N7 ~- M     IDENT/'选择放置面',m1,resp
     JUMP/zb:,END:,,resp
& u# T% D  f8 j0 F4 Z: s; Ycall/'gzzb',m1
5 B: x3 U+ [& \: ~2 D+ J( ^& jy10:
      param/'请输入弹簧装配。',$
             '模板保留厚度=',h2,resp
& [& w" H  O2 T9 D% `      '压缩长度=',hy,resp
& k0 I+ U6 c) |, b! N      jump/y10:,end:,,,resp
) {4 L; p. U4 j6 ^; C; ]$ W( b      
ifthen/h2<>0
, ^7 u- v; O; `4 I9 S  c5 n; ~ h=h2
9 F# Y/ g3 o: I; E4 b; uendif
endif
  C1 {4 X9 X5 i1 I. q4 E6 E) {l10: $$点构造器
gpos/'请选择参考点。',x(q=q+1),y(q),z(q),resp
0 q% `1 Y" m' l( X/ g- F8 m6 f  mJUMP/l10:,END:,cj:,,l10:,resp
: {) x" c! V4 @$ Acj:
do/loop1:,g,1,q-1
x1=x(g)
y1=y(g)
z1=z(g)-h2
0 N) q: T1 O8 }# K: Cifthen/yn==1
- R" I6 n7 k8 z* k% e: L5 c! J$$弹簧过孔
: O) T6 ~( ]. D# y  tb(g)=solcyl/origin,x1,y1,z1,height,l-hy,diamtr,d+1,axis,0,0,-1
   blank/tb(n)      
7 ]8 @* `# K1 F: O: B1 U/ Uendif
i1=0
M=0
! m( }9 r; X2 T& J$$创建点
2 B  B1 _4 o7 |/ E4 A$$1下部螺旋
8 d, r$ K; }7 v& e- @& lstr1:
0 U) I. {( k' ]. ]) @! C5 di=i1+1
m=m+1
; G0 p% @7 M8 y" q9 }2 tt=(i1-1)/s
7 e: h9 e2 h! T4 Nxn=cosf(t*135)*d2/2+x1                                          
" g" {5 m  I! q3 T1 t: i( fyp=sinf(t*135)*d2/2+y1
xm=cosf(t*135)*d/2+x1                                          
ym=sinf(t*135)*d/2+y1                                         
zn=zh*t+z1  
: s; \) r, {0 W* @: Qpn(m)=point/xn,yp,zn
pm(m)=point/xm,ym,zn
if/t<1,jump/str1:
/ t9 n0 B" D+ t& N% }8 C. o$$2中间螺旋
i2=0
9 o( J+ Q0 x1 d/ bz1=z1+zn
str2:
i2=i2+1
" ^/ u' \) e1 ]) |+ qm=m+1
t=(i2-1)/thp
7 b* u. R4 \0 |xn=cosf(t*135+angt)*d2/2+x1                                          
6 }: G# ~( E  v7 z7 H, g0 t7 ~6 Ayp=sinf(t*135+angt)*d2/2+y1
xm=cosf(t*135+angt)*d/2+x1                                          
ym=sinf(t*135+angt)*d/2+y1                                       
zn=eh*t+z1  
pn(m)=point/xn,yp,zn
pm(m)=point/xm,ym,zn                                       
if/t<1,jump/str2:
$$3上部螺旋
i3=0
" J$ v8 F& e; V+ kz1=z1+zn
( N$ o& s. r: sstr3:
i3=i3+1
9 T% T! Y- ]+ g+ I: bm=m+1
+ Z! c. U7 m8 I' Z# ~t=(i3-1)/s
1 b% d, H4 c2 {! a3 o" O; jxn=cosf(t*135+angz)*d2/2+x1                                          
8 z6 ]0 L3 W- K" y% ^$ q% uyp=sinf(t*135+angz)*d2/2+y1
* n) R' A8 X! L* n1 G( ^! Zxm=cosf(t*135+angz)*d/2+x1                                          
$ ^+ @7 f0 `: W$ K' Dym=sinf(t*135+angz)*d/2+y1                                       
" m% n9 S) o! f: gzt=eh*t+z1  
. W9 A; T/ U# G0 y$ V6 l! Bpn(m)=point/xn,yp,zn
; V3 W( e2 y, apm(m)=point/xm,ym,zn
8 d5 l6 [, U% x4 B$ _if/t<1,jump/str3:
$$删除多余几何体
4 p: N0 Q0 q* E3 _* Asm=spline/pn(1..m)     $$ 创建样条
( ^4 P3 s" `' A( Qxm=spline/pm(1..m)     $$ 创建样条
2 P0 k5 \3 Y0 r3 v% k# L5 Jlinm=line/pn(1),pm(1)  $$ 创建直线
* s6 i6 c! p, xobj(g)=bsurf/swpsrf,tracrv,sm,endof,xm,gencrv,linm
  u! a- h! O- k: I: o1 T&color(obj(g))=126
loop1:
END: $$ 结束操作
1 C0 e4 k4 i/ V5 ^% K0 B. C( {( ]INEXTE/ALL
HALT
4 f2 _2 Z4 g) G' `8 e: }2 O
: `. u1 K7 G& X2 B