请大侠帮忙检查错误！！

董堃

' }: W# Z$ z$ C, c* ~
请大侠帮忙检查错误！！
& G+ j* ?) S/ u4 C# R- S
- w9 N* p4 W4 s, P$$ 变量定义
) D) R3 R( W) j9 eentity /obj(100),pt0,tb(200),zx(100),sm,xm,pn(100000),pm(100000),&
GB,G2B(100),lsg,bg(100),linm,linn
string /yzs(100),ys
: s( H0 S, o$ A% dnumber /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,$
1 M8 p: u# G) _# ?5 ni1,i2,i3,c,qx,t,thp,zp,zt,xn,yp,zn,xm,ym,angt,angz,g
6 K8 p4 N( k8 V2 {8 r8 q  A6 f3 @yzs='D:\NX10\bzj\data\th.dat'
# ^+ V  f" h6 w7 Blabel:
6 e6 N  h% p$ ^9 v8 h! j+ _1 Fxspawn/'D:\NX10\bzj\Program\exe\th.exe'
FETCH/TXT,1,yzs,IFERR,label:
reset/1
read/1,D     $$外径
. Y" V% ?& D8 KREAD/1,D2    $$内径
) Z9 @- U" f6 P1 UREAD/1,L     $$自由长度
READ/1,ys    $$颜色
READ/1,p     $$节距  
# P" P9 h5 m: D0 E3 t8 ^8 z9 AREAD/1,b     $$弹簧丝轴向尺寸
0 i0 C, y& p) j. d( x8 iREAD/1,qs    $$总圈数  
4 ?) i* R" G; y: {; L4 h2 PREAD/1,YN    $$是否画窝孔
FTERM/TXT,1
0 p+ i; X% x2 hn10:
a=(D-D2)/2      $$弹簧丝径向尺寸
zhqs=0.75       $$弹簧头部圈数
- h3 D6 \. t. h, teh=(qs-1.5)/2*b $$弹簧头部螺旋高度
zh=l-b-eh*2     $$弹簧中间螺旋高度
( }; o8 D" @; m7 M' L% R" C! C0 E: Jangt=270     $$头部角度
% U5 h+ m* H2 v! E( ]# A/ t' F& Hangz=angt+(qs-1.5)*360
s=(qs-1.5)*25
thp=0.75*25
MAT(1,1..12)=MATRIX/TRANSL,0,0,0
3 t0 g' C7 N8 Kifthen/yn==1
- a( f& Q0 V. _# j) E4 yzb:
3 @  u2 |/ h" n6 t4 o+ q     MASK/71  $$只选实体
7 t; X' `1 a+ ^" c9 I     IDENT/'选择放置面',m1,resp
     JUMP/zb:,END:,,resp
call/'gzzb',m1
" D1 h* t  V$ s1 `- j( by10:
) R0 Q; ?6 n5 j5 x( g      param/'请输入弹簧装配。',$
! M* D) Z( P8 m3 y* y             '模板保留厚度=',h2,resp
0 [+ m! |+ o* g! F      '压缩长度=',hy,resp
) [8 N- `% n/ _      jump/y10:,end:,,,resp
      
ifthen/h2<>0
* g/ c0 b3 q* c$ _4 G* u. U h=h2
- L. I+ ~* S) D3 K6 zendif
endif
$ H0 v; O7 H2 s- K( R% tl10: $$点构造器
4 S4 ^! J9 ^2 Ngpos/'请选择参考点。',x(q=q+1),y(q),z(q),resp
' a" M; |) v; L/ _JUMP/l10:,END:,cj:,,l10:,resp
cj:
do/loop1:,g,1,q-1
7 l- o& Y; _' b0 k* \x1=x(g)
y1=y(g)
5 o5 d) P$ ~  j' nz1=z(g)-h2
ifthen/yn==1
$$弹簧过孔
# G2 g/ a6 i: G: ~7 P  T! e0 X  tb(g)=solcyl/origin,x1,y1,z1,height,l-hy,diamtr,d+1,axis,0,0,-1
   blank/tb(n)      
endif
! ^2 C! s# i$ Z" G# Di1=0
M=0
8 A* O( J9 Z( s, S# X/ m! R5 @' m$$创建点
$$1下部螺旋
4 z8 }5 Y5 r& Z0 U1 ]5 G2 S! Ustr1:
i=i1+1
' e. c1 P0 y+ v2 d7 O, am=m+1
t=(i1-1)/s
9 U* C3 I7 b! N. f) [; [  L2 pxn=cosf(t*135)*d2/2+x1                                          
yp=sinf(t*135)*d2/2+y1
xm=cosf(t*135)*d/2+x1                                          
( E2 a9 ]2 \7 `: r- A( t2 p5 gym=sinf(t*135)*d/2+y1                                         
* z- j" R: u5 I5 [3 Jzn=zh*t+z1  
pn(m)=point/xn,yp,zn
# N: k7 c: R% }  N: _3 f  ^pm(m)=point/xm,ym,zn
if/t<1,jump/str1:
: [& o  T" x  ]. c( t; I$$2中间螺旋
i2=0
z1=z1+zn
str2:
# A% h2 Q3 B, l: L0 f) Vi2=i2+1
m=m+1
t=(i2-1)/thp
xn=cosf(t*135+angt)*d2/2+x1                                          
7 H9 g( L! W" J* y7 Ayp=sinf(t*135+angt)*d2/2+y1
' n+ U( ?- T0 M# t  M# Cxm=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                                       
1 A$ A: i  z  v' k. c& ~if/t<1,jump/str2:
; j" ~) S* a4 X1 K' l$$3上部螺旋
i3=0
* u- V& M; k$ Z) y% B7 M. Cz1=z1+zn
str3:
i3=i3+1
m=m+1
t=(i3-1)/s
xn=cosf(t*135+angz)*d2/2+x1                                          
4 T! S* }; X; ], U1 pyp=sinf(t*135+angz)*d2/2+y1
3 G6 [5 H0 X" N: [( T# Txm=cosf(t*135+angz)*d/2+x1                                          
8 `& Z; ]! m  Z# ~) ^' h. h9 Q7 Cym=sinf(t*135+angz)*d/2+y1                                       
' X4 u- Y, ?# ?4 Q8 I3 f1 O5 F: lzt=eh*t+z1  
6 b, r7 ?/ O% r9 M# lpn(m)=point/xn,yp,zn
pm(m)=point/xm,ym,zn
if/t<1,jump/str3:
$$删除多余几何体
$ O( F' s' e2 f" \/ @sm=spline/pn(1..m)     $$ 创建样条
xm=spline/pm(1..m)     $$ 创建样条
1 o. N# w( D. |& S; V2 Plinm=line/pn(1),pm(1)  $$ 创建直线
obj(g)=bsurf/swpsrf,tracrv,sm,endof,xm,gencrv,linm
&color(obj(g))=126
( N" H4 k/ X- |- X, |loop1:
END: $$ 结束操作
( Q, e  ]& N" b  O+ b, B' SINEXTE/ALL
HALT

; v1 L/ d% Q  H8 e8 T- _6 V3 V