请大侠帮忙检查错误！！

董堃

请大侠帮忙检查错误！！
* X. T! _) F' |+ w
$$ 变量定义
- i; N( g! R& j4 I; aentity /obj(100),pt0,tb(200),zx(100),sm,xm,pn(100000),pm(100000),&
( |% I# n+ b) q; I+ u: D* \9 AGB,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,$
q,MAT(20,20),x(10000),y(10000),z(10000),eh,zh,s,m,$
i1,i2,i3,c,qx,t,thp,zp,zt,xn,yp,zn,xm,ym,angt,angz,g
yzs='D:\NX10\bzj\data\th.dat'
$ M' H4 B6 H" p* u& `6 Olabel:
1 j9 S( H+ c& j) ^xspawn/'D:\NX10\bzj\Program\exe\th.exe'
! u1 D  A4 J! e7 }3 }6 \, `FETCH/TXT,1,yzs,IFERR,label:
) k& ]' r& y3 B" zreset/1
9 V! y% r2 f4 e& o% Eread/1,D     $$外径
2 \4 ^2 G2 c- a& lREAD/1,D2    $$内径
: a2 g. e& S6 m, M- k& ^" kREAD/1,L     $$自由长度
2 z3 m) U2 S1 e& U4 P3 @READ/1,ys    $$颜色
* f& |) j: Z$ {5 O2 k6 z4 _2 _READ/1,p     $$节距  
) b! f5 h+ i& T: Q: j" BREAD/1,b     $$弹簧丝轴向尺寸
  z: K- h, x7 z! r+ g( _  v) wREAD/1,qs    $$总圈数  
READ/1,YN    $$是否画窝孔
3 _3 M* o$ v& pFTERM/TXT,1
n10:
) ~$ ^6 w3 Z3 Y" y$ z! J0 @a=(D-D2)/2      $$弹簧丝径向尺寸
zhqs=0.75       $$弹簧头部圈数
eh=(qs-1.5)/2*b $$弹簧头部螺旋高度
% y- Q  L5 J, r' z: g& qzh=l-b-eh*2     $$弹簧中间螺旋高度
angt=270     $$头部角度
angz=angt+(qs-1.5)*360
6 {! @( N, H' U" Q/ |/ e6 E. u) Hs=(qs-1.5)*25
thp=0.75*25
MAT(1,1..12)=MATRIX/TRANSL,0,0,0
ifthen/yn==1
% C! K; l) S) S0 T, H7 G+ ^' @0 ozb:
3 v7 r  d/ x/ s2 ?& I, G! B4 t* \     MASK/71  $$只选实体
     IDENT/'选择放置面',m1,resp
7 r' |( ^# Q( ^( J* R     JUMP/zb:,END:,,resp
call/'gzzb',m1
2 m& [' C: Q) ]: ]( n" f2 zy10:
      param/'请输入弹簧装配。',$
% \5 `6 g# ]. ^, ^2 v6 Y' M             '模板保留厚度=',h2,resp
      '压缩长度=',hy,resp
! Y4 C4 ]6 d# ^2 W9 {9 U% C- H" P) N8 y      jump/y10:,end:,,,resp
8 R) _1 J; `6 p& L' b      
% M+ G6 N! d9 y4 zifthen/h2<>0
5 }7 C  t$ Y% _% }' |- g h=h2
. C/ `- j3 l7 yendif
endif
- ]8 w6 u3 E' b  m' Kl10: $$点构造器
+ s8 r! M2 N# n3 L# B  e% D( D& Tgpos/'请选择参考点。',x(q=q+1),y(q),z(q),resp
JUMP/l10:,END:,cj:,,l10:,resp
cj:
* Q' S# E0 d2 S' ~do/loop1:,g,1,q-1
x1=x(g)
y1=y(g)
% N: |! |/ k) m- o5 |z1=z(g)-h2
! F8 H- K' Q6 }+ ~8 Iifthen/yn==1
8 Z3 [+ ~( q9 ?$$弹簧过孔
  tb(g)=solcyl/origin,x1,y1,z1,height,l-hy,diamtr,d+1,axis,0,0,-1
   blank/tb(n)      
endif
+ d7 J% D( B2 M* L' ?8 bi1=0
' h" G4 d' X3 fM=0
3 c8 F$ w6 k; Q* _. P. D$$创建点
; b# C) m7 r2 i# [* i$$1下部螺旋
str1:
7 ]! c# f5 w* n0 U& pi=i1+1
  z5 U" u0 z1 a- g7 N' j9 Em=m+1
t=(i1-1)/s
  ?. j& X) g2 [xn=cosf(t*135)*d2/2+x1                                          
yp=sinf(t*135)*d2/2+y1
xm=cosf(t*135)*d/2+x1                                          
  o' Q! g) c7 l& P8 S- m5 m0 R" E  dym=sinf(t*135)*d/2+y1                                         
6 }$ u2 C# K1 A) qzn=zh*t+z1  
pn(m)=point/xn,yp,zn
6 |, {6 P# C; v. `/ Lpm(m)=point/xm,ym,zn
- v. ^" ~  F2 _. n' K7 v! N% jif/t<1,jump/str1:
$$2中间螺旋
i2=0
z1=z1+zn
str2:
" d* k. |- A* w3 q1 l+ n) b, ni2=i2+1
: K. h5 ?" s) N6 x+ X, |8 qm=m+1
- F* s& T. Z) ft=(i2-1)/thp
( ]7 H6 e- M! r6 L1 Mxn=cosf(t*135+angt)*d2/2+x1                                          
yp=sinf(t*135+angt)*d2/2+y1
xm=cosf(t*135+angt)*d/2+x1                                          
ym=sinf(t*135+angt)*d/2+y1                                       
- V( ^& A- C0 P1 \. t8 Tzn=eh*t+z1  
pn(m)=point/xn,yp,zn
pm(m)=point/xm,ym,zn                                       
  y6 J+ j& j. r2 W# @; oif/t<1,jump/str2:
7 x5 Q! d2 K/ c* n/ c; _- `& s, x$$3上部螺旋
i3=0
z1=z1+zn
9 T: O" b! L6 O& ^8 A# r2 `str3:
4 q3 i- i  v. y6 s- P- w% @i3=i3+1
% i  e- W7 R; d: e  R- E+ Wm=m+1
4 i* _$ N1 m5 tt=(i3-1)/s
9 Q* M9 v/ o9 l: o2 z' t) hxn=cosf(t*135+angz)*d2/2+x1                                          
yp=sinf(t*135+angz)*d2/2+y1
' P; \7 i. ]6 `5 B6 r2 u4 p0 l2 gxm=cosf(t*135+angz)*d/2+x1                                          
ym=sinf(t*135+angz)*d/2+y1                                       
zt=eh*t+z1  
pn(m)=point/xn,yp,zn
2 f! w4 V! W# }& U7 Z8 Z5 `pm(m)=point/xm,ym,zn
if/t<1,jump/str3:
$$删除多余几何体
sm=spline/pn(1..m)     $$ 创建样条
7 I0 Q0 Y  h3 ]# Hxm=spline/pm(1..m)     $$ 创建样条
* e. |" p" {  H& S( a3 llinm=line/pn(1),pm(1)  $$ 创建直线
obj(g)=bsurf/swpsrf,tracrv,sm,endof,xm,gencrv,linm
&color(obj(g))=126
, ^) G# I# k1 k& @; h+ Iloop1:
END: $$ 结束操作
INEXTE/ALL
, w8 ~# g- V8 c0 p+ W. Y2 dHALT