混凝土搅拌车拌筒及螺旋线参数化设计编译链接成功,无法执行,求高人

晓狼

NUMBER/r(3),h(3),bt(3),i,st,stm(3),a1,a3,p1,p3
: G5 T( y8 C4 R- g$$ 1-定义变量
ENTITY/ax,ps1(1001),ps2(1200),m(3),g(3),sl1,sl2,pt(4),pt0(2)
pds1:  
& V/ G$ C* H% K$$ 2-生成输入参数的对话框
PARAM/'请输入罐体和螺旋线参数:',$
'前锥小端半经:',r(1),$
5 W& T9 ]/ O, o8 V0 @0 P'前锥高度:',h(1),$
) L/ t3 o% A1 v  |; M8 n9 t. V( U'中柱半经:',r(2),$
2 h6 r9 G% R( y" l7 Y  d'中柱高度:',h(2),$
+ w; F2 C# a6 P, G'后锥小端半经:',r(3),$
5 w8 @: d- [1 P'后锥高度:',h(3),$
4 {/ A5 k1 h& q( L: T4 E1 i$ E'前锥螺旋角:',bt(1),$
'中段螺旋角:',bt(2),$
' F0 C* t  o$ n2 `: f% A'后锥螺旋角:',bt(3),resp
JUMP/pds1:,stop1:,,resp
3 C9 F$ r) v; bax=LINE/(pt0(1)=POINT/0,0,0),(pt0(2)=POINT/0,0,600)
$$ 3-生成罐体
g(1)=LINE/(pt(1)=POINT/r(1),0,0),(pt(2)=POINT/r(2),0,h(1))
5 p4 ]1 S- d7 G5 W8 kg(2)=LINE/pt(2),(pt(3)=POINT/r(2),0,(h(1)+h(2)))
g(3)=LINE/pt(3),(pt(4)=POINT/r(3),0,(h(1)+h(2)+h(3)))
m(1)=REVSRF/g(1),AXIS,ax,0,360
/ [& @) W: c7 _! m4 V& lm(2)=REVSRF/g(2),AXIS,ax,0,360
m(3)=REVSRF/g(3),AXIS,ax,0,360
a1=ATANF((r(2)-r(1))/h(1))
3 \! T- F5 W" F$$ 4-计算基本参数
; b' U( W5 q; _3 U/ `6 }a3=ATANF((r(3)-r(2))/h(3))
7 ]7 k/ {/ ~8 l/ Sp1=(r(2)-r(1))/h(1)*COSF(a1)*COSF(bt(1))/SINF(bt(1))
p3=(r(3)-r(2))/h(3)*COSF(a3)*COSF(bt(3))/SINF(bt(3))
8 M# d( I( ]: Q0 \stm(1)=LOGF((r(2)-r(1))/r(1)+1)/p1
stm(2)=stm(1)+h(2)/r(2)*SINF(bt(2))/COSF(bt(2))
: s: N: f; b/ e3 b5 i8 r  Vstm(3)=stm(2)+LOGF((r(3)-r(2))/r(2)+1)/p3
i=1
7 F! y; e, p  `- ^" F( w" JSTR1:
) S# }- y; t- p0 g" y3 J; V$$ 5-计算曲线上点的坐标
st=(i-1)*stm(3)/1000
  h# o2 {4 A) j6 o  c) jIFTHEN/st<=stm(1)
; M" C! I5 i/ m2 f+ {9 k% Fxc=r(1)*EXPF(p1*st)*COSF(st*180/3.14159)
9 U2 o3 N/ ?) G0 ryc=r(1)*EXPF(p1*st)*SINF(st*180/3.14159)
zc=r(1)*h(1)/(r(2)-r(1))*(EXPF(p1*st)-1)
ELSEIF/stm(1)<st AND st<=stm(2)
xc=r(2)*COSF(st*180/3.14159)
% [  b# _* {8 b0 |) T7 r7 h2 uyc=r(2)*SINF(st*180/3.14159)
zc=r(2)*COSF(bt(2))/SINF(bt(2))*(st-stm(1))+h(1)
ELSEIF/stm(2)<st AND st<=stm(3)
( k# z" w0 |3 n# E; F- r- B8 }xc=r(2)*EXPF(p3*(st-stm(2)))*COSF(st*180/3.14159)
$ k* @( N& x$ L9 Eyc=r(2)*EXPF(p3*(st-stm(2)))*SINF(st*180/3.14159)
zc=r(2)*h(3)/(r(3)-r(2))*(EXPF(p3*(st-stm(2)))-1)+h(1)+h(2)
ENDIF
, ~; \1 @! q9 F" e  pps1(i)=POINT/xc,yc,zc
1 T% j% L! h4 w' E+ n3 l, T* H$$ 6-生成螺旋线
7 b) O' T% @( S+ o' n8 e9 w* E7 x$ N5 aps2(i)=POINT/-xc,-yc,zc
i=i+1
- F7 L5 T' k7 h4 j, lIF/st<=stm(3),JUMP/STR1:
! q# {8 U2 F* {6 s7 t/ C8 Vsl1=SPLINE/ps1(1..(i-1))
sl2=SPLINE/ps2(1..(i-1))
* J8 D1 I0 a  X/ A3 A) p1 F0 f" XBLANK/ax,g,pt,pt0,ps1(1..(i-1)),ps1(1..(i-1))
/ \; r6 I6 N0 P1 \, u& ?$$结束处理
& b' H: V! P( J& ]& \stop1:
HALT

晓狼

ps1(i)=POINT/xc,yc,zc  在UG中执行时说这行 子脚本阵列超过范围  不懂!!!
ps2(i)=POINT/-xc,-yc,zc这行同上
i=i+1
IF/st<=stm(3),JUMP/STR1:
sl1=SPLINE/ps1(1..(i-1))这行说是尺寸不匹配
sl2=SPLINE/ps2(1..(i-1))
BLANK/ax,g,pt,pt0,ps1(1..(i-1)),ps1(1..(i-1))
  g% D* j0 C; k* s: M
新手求解,还有在哪能看每一步执行的结果
  _8 _: u, u3 r5 w+ [
具体怎样操作

sinowill

看看