simtalk程序调试不出来，帮忙看一下

zooey

is
" a$ k- e( z# Z8 I$ K        mark:boolean;
        dx,dy,ct:real;
# p. P1 d) N7 g) N" F. Z    i,j,rows,lines:integer;
% @2 x2 l  @1 }1 a0 ~    machinename,bufname:string;
% [* i: G3 z" Y6 g- o' T/ x- K    machine,buf:object;
6 M# \, p8 K  J% N; g% M' l1 zdo
" p* g6 N/ S/ a/ o* s& `% b        current.eraselayer(1);
4 R  z- Y! [$ w8 {! N! G1 }       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- y& e1 I; B! ~; A5 v  L                inspect messagebox("设施数目不对！请核查...,",50,13)
' n) x* L4 l- g/ p% G                when 16 then
) p7 A# t0 n: \, E3 f* J* K2 I% N$ s                        print"yes";
                when 32 then
) V" o1 L" \% u                        print"no";
1 c. @; v; \" W0 r, P  {                else
                        print"cancel";
                end;
" c1 D/ w3 o3 f( S! B                eventcontroller.stop;
        end;
/ G* O5 A( y+ {+ U3 R0 r+ M       
        for i:=1 to number_of_machine loop
7 X2 O% [: f+ w! P# j8 t  M8 B        machinename:=sprint("M",i);
0 b+ O# H: v4 Y# {% t) D8 T( @        if existsobject(machinename) then
3 u1 T1 F9 ]" M0 P                machine:=str_to_obj(machinename);
1 w- |: w( l- n3 ^                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 S; W6 c; X! n3 r                buf:=str_to_obj(bufname);
6 o: d1 K+ K) e                buf.deleteobject;
1 _8 \$ U( U/ v% ~: G        end;
        next;
1 W+ K1 F; k) B3 S3 ^1 G  o7 {: c* o       
9 N& A  U1 ^+ y% N" c        dx:=0;
        dy:=0;
5 H8 F0 m, L( t8 s, M1 l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) H3 j7 O) I/ N( l6 X                --mark:=false;
( U$ c9 _+ p6 Z9 a; p                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 \% v/ r5 V$ @                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- {2 J8 n4 D% a4 g/ J! @; M                        and activityspace[1,rows]<(1.05*y_max) then
, e3 L- e' l( P  R2 k# g! C+ y" ?. b                        print activityspace[1,rows],",",activityspace[2,rows];
4 |9 f9 _* {2 c2 M4 d% `$ x                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
6 x! R2 Q9 e' c) N" F  [                        else*/
" e# b; O3 `$ h. O. O* H& Q$ P                        y_max:=y_max+dy;
$ d5 K0 d" E0 s# Y; z3 f                        dx:=0;
$ N. s; S  i' C, w* @+ R                dy:=0;
, ]) @7 B1 U$ i6 ?: S: _/ f                        --end;
                end;
9 L/ b8 R+ y" k, Z# N0 Q& E                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
( j( \# J3 \0 k( Q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
: W$ V! B( o! ?) i4 Q# l                dx:=dx+activityspace[1,rows];
2 l7 y/ J6 q# s8 U5 v) I3 ^7 t# I                /*if mark=true then
% v9 y1 h# X1 s1 e  o# V                ct:=activityspace[2,rows];
% F6 y3 R- g8 N3 L+ U! j) |8 F                        activityspace[2,rows]:=activityspace[1,rows];
! }$ c) X: C1 A                        activityspace[1,rows]:=ct;
8 Y- V. `  q3 S                        end;*/
        next;
6 ?, B. d# D. E        y_max:=y_max+dy;
7 n0 K- g+ ~2 @1 x' F& f4 F& _        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
( Q5 [, w! s: L4 }1 U( t. a9 D5 E        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
8 o' G! `/ ~3 N8 }5 H$ o       
        rows:=0;
        lines:=0;
/ `9 ]9 L! F6 ?) {& {1 q- j        for i:=1 to number_of_machine loop
8 I( }, U$ p% r  s3 Z& `                for j:=1 to number_of_machine loop
                        if j=i then
1 [3 W- o- [; @+ i/ P: A4 D" p2 B2 G                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, @9 ]8 x! D# |9 a. z' R                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 P2 a" t) Y! B. W8 X! Z- \                                d_from_to_chart[j,i]:=abs(dx-dy);
  n( ]/ x6 T6 e  S, J                        end;
                next;
4 m' `% u7 ]7 F: d4 _- o  S- W        next;
- h: y& Q& i- O; m       
# H$ o* A( Q9 t. v        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
& \5 }) E  A: ?% ~  _# M! a; s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& G2 _/ H/ J; c5 R/ g3 A$ W                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 y  u7 `( T% ]) o                        if w_from_to_chart[j,rows]>0 then
( m% j8 Q; c9 `4 k1 s) V                        lines:=lines+1;
' S% ~* z0 W) _; U+ Y8 \3 H/ K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
8 m8 p: M" i' U  Z9 K                        partstable[5,lines]:=rows;
8 X( I/ B% `. ?; @( r7 A3 h3 v                        partstable[6,lines]:=j;
- k& n5 ]" @7 m. p+ Y                end;
1 ]6 I  \+ l5 H        next;
/ g$ e4 z: E2 j0 ?* p) N        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        machine.name:=machinename;标识符未知
; d2 `' A/ D" c& R) i# c. k        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
; i1 @4 N* n; k  f3 \        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
+ x' h6 V' c# J( @* I        buf.name:=bufname;
        buf.capacity:=5000;
$ g/ u: f. M: L: d- j        buf.proctime:=0;
' E$ t# a" w; Y3 [& i  @        .materialflow.connector.connect(buf,machine);
/ A% }: B% y7 n& _' x& @       
4 T. R+ Z1 u  [/ W3 M0 D        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 d1 Y4 O4 V  c7 j0 udy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
' J5 u; Q3 _# V  mend;
6 z2 L0 d0 F+ g) q3 t; k; D& N# t/ J