请大侠帮忙检查错误！！

董堃

1 j8 Q8 P, _/ y; `0 L/ o
请大侠帮忙检查错误！！

$$ 变量定义
- ]% G0 l+ I" i1 B6 rentity /obj(100),pt0,tb(200),zx(100),sm,xm,pn(100000),pm(100000),&
) f7 t6 l) }' S% ~( _4 ^. {GB,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,$
* i3 Y# H, h9 l  c. uq,MAT(20,20),x(10000),y(10000),z(10000),eh,zh,s,m,$
* c0 x  ^' f; D, k8 Y# |i1,i2,i3,c,qx,t,thp,zp,zt,xn,yp,zn,xm,ym,angt,angz,g
yzs='D:\NX10\bzj\data\th.dat'
8 Z0 {( x* F0 U) ?' A0 jlabel:
" M7 G/ f6 W4 X! i2 ?xspawn/'D:\NX10\bzj\Program\exe\th.exe'
9 h" X: x, N8 o$ r1 }! sFETCH/TXT,1,yzs,IFERR,label:
9 b: g3 d' Z4 e* z9 w& lreset/1
read/1,D     $$外径
READ/1,D2    $$内径
# f6 Y7 l$ C2 k3 _" V1 SREAD/1,L     $$自由长度
: L9 F: t/ s2 q8 q. GREAD/1,ys    $$颜色
4 `- K$ C* _$ P7 i/ L3 k7 WREAD/1,p     $$节距  
. S. a- d6 ?# \- q& ~READ/1,b     $$弹簧丝轴向尺寸
READ/1,qs    $$总圈数  
READ/1,YN    $$是否画窝孔
9 \' o6 D/ I9 C* X/ k! p7 n! VFTERM/TXT,1
3 E3 ~5 s$ ~( b8 t) l/ Cn10:
a=(D-D2)/2      $$弹簧丝径向尺寸
zhqs=0.75       $$弹簧头部圈数
eh=(qs-1.5)/2*b $$弹簧头部螺旋高度
zh=l-b-eh*2     $$弹簧中间螺旋高度
( s* F; Z. L( c+ {  g% v) Langt=270     $$头部角度
  [! A# ]8 b* Y, p  {, Langz=angt+(qs-1.5)*360
( j& H- P' r% }) j1 n8 cs=(qs-1.5)*25
# n2 L: p# o- m; I" G# Zthp=0.75*25
MAT(1,1..12)=MATRIX/TRANSL,0,0,0
ifthen/yn==1
( L) |9 Y( [0 R- Bzb:
     MASK/71  $$只选实体
     IDENT/'选择放置面',m1,resp
     JUMP/zb:,END:,,resp
. h, N& k! k- E, lcall/'gzzb',m1
y10:
      param/'请输入弹簧装配。',$
. a4 g4 B, U$ v2 ~             '模板保留厚度=',h2,resp
! b  `' G9 a% v" o, c6 A! k      '压缩长度=',hy,resp
      jump/y10:,end:,,,resp
, j; `# @! Y9 j$ e' O0 M6 Y      
ifthen/h2<>0
h=h2
$ j( ~4 y  v# h. L/ k* y. _- zendif
endif
l10: $$点构造器
gpos/'请选择参考点。',x(q=q+1),y(q),z(q),resp
% N5 Y  f4 _, Q  k3 H5 E! h' ?JUMP/l10:,END:,cj:,,l10:,resp
cj:
) a# {$ V9 G  g" L  ldo/loop1:,g,1,q-1
x1=x(g)
6 n8 k9 q  i7 d$ T! \1 o1 `3 ~y1=y(g)
+ w! g6 a' g# q% M3 }z1=z(g)-h2
ifthen/yn==1
$$弹簧过孔
  tb(g)=solcyl/origin,x1,y1,z1,height,l-hy,diamtr,d+1,axis,0,0,-1
   blank/tb(n)      
% v8 Y1 J% w7 h, gendif
i1=0
M=0
$$创建点
& }( v* v# m$ s0 s2 d* E0 o$$1下部螺旋
: w& J1 e# ^# A3 I" K; n3 Rstr1:
i=i1+1
m=m+1
& g" w/ \. p5 P3 [t=(i1-1)/s
9 r) Z6 k2 ]0 z, M; G' f" Wxn=cosf(t*135)*d2/2+x1                                          
2 w' d% g. R: T* e- @9 u" Yyp=sinf(t*135)*d2/2+y1
xm=cosf(t*135)*d/2+x1                                          
ym=sinf(t*135)*d/2+y1                                         
zn=zh*t+z1  
8 x" V2 g( Z% V' p$ gpn(m)=point/xn,yp,zn
pm(m)=point/xm,ym,zn
if/t<1,jump/str1:
0 }4 f$ R% O2 d5 X8 o- {' E$$2中间螺旋
: |. S' r% L" n: X1 @i2=0
z1=z1+zn
str2:
& J  V; M  o! x9 \* g: \i2=i2+1
m=m+1
t=(i2-1)/thp
# ~0 L8 f4 {" L6 z& lxn=cosf(t*135+angt)*d2/2+x1                                          
yp=sinf(t*135+angt)*d2/2+y1
' K+ O, P$ Z$ a$ a$ ?2 l* I  hxm=cosf(t*135+angt)*d/2+x1                                          
ym=sinf(t*135+angt)*d/2+y1                                       
3 N. v  D6 j) p0 Bzn=eh*t+z1  
) j# u7 y; Y  ^  D4 W+ x* ppn(m)=point/xn,yp,zn
3 `3 W6 D* U9 g" x' y7 }4 spm(m)=point/xm,ym,zn                                       
- `1 A/ T3 q% C: o6 n' M% n5 P" X( uif/t<1,jump/str2:
- A' h% v5 C. B5 d8 ^$$3上部螺旋
5 ?7 l- t# d% ]i3=0
z1=z1+zn
str3:
+ ]5 |$ M1 B$ |' R3 ?9 ai3=i3+1
m=m+1
5 s  e! u- q" }t=(i3-1)/s
$ M4 Z1 U+ E7 {9 r0 A# ]+ D( uxn=cosf(t*135+angz)*d2/2+x1                                          
' Z* A% V) d7 J8 E" b$ m1 z9 iyp=sinf(t*135+angz)*d2/2+y1
/ {/ o6 Q4 D- j/ v+ ^3 U$ I/ Gxm=cosf(t*135+angz)*d/2+x1                                          
5 A" R% y( P; Y, M) M# dym=sinf(t*135+angz)*d/2+y1                                       
zt=eh*t+z1  
8 D7 h4 U* n! ]" c0 u% d  Lpn(m)=point/xn,yp,zn
pm(m)=point/xm,ym,zn
) |* t9 s# o5 @5 P- x8 b- dif/t<1,jump/str3:
% }0 q% \; W+ l$ p0 E3 h) ]$$删除多余几何体
sm=spline/pn(1..m)     $$ 创建样条
xm=spline/pm(1..m)     $$ 创建样条
linm=line/pn(1),pm(1)  $$ 创建直线
/ t) a! h" D* V0 wobj(g)=bsurf/swpsrf,tracrv,sm,endof,xm,gencrv,linm
&color(obj(g))=126
loop1:
END: $$ 结束操作
INEXTE/ALL
8 S) G7 ]& e3 X- y/ {" lHALT