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

zooey

is
        mark:boolean;
, C' Z& h: X  i        dx,dy,ct:real;
    i,j,rows,lines:integer;
( j. x* W$ y# b, M$ N    machinename,bufname:string;
    machine,buf:object;
3 `6 b9 T3 b) b6 f; ^6 ]$ C+ w, a# gdo
% Y6 e0 |5 u* @$ ~5 n        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
% H$ ~6 v* s( N7 t) c. b                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
* Y6 g6 ]2 ]$ F# t" k+ L        end;
: U: ^& l% X. {* ]5 S       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 K' [/ e$ ~$ C! i" M        if existsobject(machinename) then
! D! F- l. a+ Y) \7 F* t                machine:=str_to_obj(machinename);
  [' t5 z( j6 u4 j. [                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 s; A1 h& D+ O( [- S* B/ }/ q# \        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 u) F' ~' j6 l, h0 k; o                buf.deleteobject;
        end;
        next;
/ n7 ^( E! ^5 \8 v       
. M3 s6 v+ _3 u0 `        dx:=0;
$ C& j6 }4 A" X: Q4 j        dy:=0;
1 ^- f& i4 k) N% E. G- i        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 |7 n5 Z5 g# _2 ]                --mark:=false;
. N9 _7 E/ x: D7 j$ U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 ]$ k9 j( h8 V* \! g                then
! r, V' J  j  u1 W/ u( h% H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' w0 R( U  S: i3 p2 |0 F                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) s( m0 e2 m/ i, p# e9 u, K                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# f/ m. D' w1 {. R                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
$ N# q5 L$ r0 |0 l: z  V                        --end;
% F' H: \1 j5 o5 t; @* H                end;
                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;
, i# j8 u, l6 }# T) ~9 G: p+ i9 v$ L+ }            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
; c7 ^4 i% F. @# f* `2 W' z                dx:=dx+activityspace[1,rows];
6 z2 O; @- [$ O( |  p' j; r                /*if mark=true then
8 k5 o7 ^' N: m+ t                ct:=activityspace[2,rows];
: A$ n7 u! d0 m1 s2 j6 R                        activityspace[2,rows]:=activityspace[1,rows];
, c! V/ O; n7 M                        activityspace[1,rows]:=ct;
8 r2 Q6 ], f4 B6 q' u+ ]7 h- N                        end;*/
        next;
+ k  j. g+ s0 |9 R. B* H1 z        y_max:=y_max+dy;
        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);
2 p  j" F8 [4 g4 k        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);
       
  D- i# ?7 T' h/ S+ Q        rows:=0;
6 j3 n/ q. r" n8 t7 f; t, F        lines:=0;
7 {$ b  }9 \6 T% w& v: I" K        for i:=1 to number_of_machine loop
$ ~; `( M5 g( `( N3 \                for j:=1 to number_of_machine loop
                        if j=i then
! [% Y5 J! W* v! J2 S9 J                                d_from_to_chart[j,i]:=0;
- G: {' k' c, q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
/ Y5 F* z: [) l" X1 K0 @, w# C/ g# d                next;
4 o+ B5 d& @' ~) n$ h        next;
9 a" ^1 ]( k4 u       
        lines:=0;
" b# \% Z4 e0 D* u1 O$ H6 y        partstable.delete;
2 M; E2 F0 e3 e' ~       
        for i:=1 to number_of_machine loop
$ f) ~6 _  a% O8 i( M% g" J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 V* n, r  `8 D                for j:=1 to number_of_machine loop
1 k* d9 N6 u8 t7 J                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 f6 e+ H# ]& o* b' E                end;
. `2 _* d% r( m6 b* _( I& A, {        next;
8 f! M7 ~, F8 R8 n3 d! g        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;标识符未知
0 ?/ v8 j0 L/ p5 L        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
5 S( R& V; ?" K' B- v0 V       
, Z* D9 O) i4 w3 H        bufname:=sprint("BF",rows);
" L4 W; y- x5 e9 c. W        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]);
        buf.name:=bufname;
2 a& B- C. Q5 u% u/ B( l, p        buf.capacity:=5000;
        buf.proctime:=0;
8 E. I/ C4 K4 U( C        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=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);
9 Q5 U  y0 f1 E( V0 g+ s, X) bnext;
end;
* S3 b! O2 }, `* b1 `7 L