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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
2 r& ?7 \) k$ Q; `% f+ y6 ]    i,j,rows,lines:integer;
    machinename,bufname:string;
2 n6 I/ q1 g; R    machine,buf:object;
do
. S. V- s6 \1 T/ P        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)
9 f/ l2 X; X$ l0 S7 K                when 16 then
                        print"yes";
                when 32 then
/ r! C4 K3 ^# \. W7 X                        print"no";
                else
5 l/ i: ?) l5 U* E& h                        print"cancel";
                end;
                eventcontroller.stop;
        end;
* O; W& ^) t) X       
3 l& h( w& {; ?, N- J        for i:=1 to number_of_machine loop
, D) H5 O' ~% H* U# m" G0 i        machinename:=sprint("M",i);
% `: ?# P; _0 M& e% {) p2 G/ G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# c7 Y9 q3 N4 P, K                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 N1 f& T- U, ^& V# W        if existsobject(bufname) then
" q& K: ~- U1 S# Y1 x                buf:=str_to_obj(bufname);
8 w# {+ ~7 w1 _                buf.deleteobject;
; l! g; z. |$ C4 X" M        end;
        next;
       
        dx:=0;
        dy:=0;
$ b! C/ q! n( d( K        for i:=1 to number_of_machine loop
9 H3 R2 \5 p  X6 U  j2 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ h# p6 d4 k+ h                --mark:=false;
* \7 j7 O# o5 i/ _/ z6 b. a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- }) z+ Z+ k' S; b1 U                then
& `% W) P4 ~8 t6 J9 p1 N- c% e                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
/ f; h/ C/ l" q  ^                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. J: x7 f7 g/ Z                        activityspace[2,rows]:=activityspace[1,rows];
! [5 [3 Y8 @3 `# E9 T$ o$ S                        activityspace[1,rows]:=ct;
                        mark:=true;
6 a: H& b3 y  z; _' U                        else*/
, l! l: H* r. ~. v# F                        y_max:=y_max+dy;
' U; V0 v1 a0 b7 \# m; b# T                        dx:=0;
/ o1 M: O+ F5 z6 }' _' ]% l+ e                dy:=0;
                        --end;
3 \6 G6 c$ `8 A9 Q, V                end;
+ `7 s. B1 q3 g' G# s% ?; c! o6 h" N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( p% t, v% b& A6 ]9 [3 |& g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) t2 ~# H3 k# T6 C                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; _+ a9 A  Y4 J8 u2 N5 a                ct:=activityspace[2,rows];
  U0 }% z) b; h; u5 [$ d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, T0 C3 q# e- B+ H" a. o                        end;*/
& r& {1 A4 L5 Z/ v1 {        next;
        y_max:=y_max+dy;
$ V; [8 y& I4 L, ~* z) I        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);
        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);
       
        rows:=0;
3 p9 ]7 I: P  _: R( ~) K        lines:=0;
& s& d" n2 v2 z& ~        for i:=1 to number_of_machine loop
+ p' ?- W# x0 v1 P- ?                for j:=1 to number_of_machine loop
$ J( N& o% t9 h' _/ x                        if j=i then
4 I! O1 I" G! r8 ~# o& Z0 x% ^& g                                d_from_to_chart[j,i]:=0;
, z  m  P6 j: j% n. d5 o0 ]& t                        else
5 O* k$ t1 N! j                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) x) T: m: e6 q- H7 ?. U  ?$ i' l: f$ Q                                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;
                next;
$ J& U& K2 s+ B2 t2 O        next;
       
" Q) ?6 N$ l  ?        lines:=0;
        partstable.delete;
       
' H) N: k% g3 E9 V* h' p        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ q( j2 ^3 U2 B4 u* y                machinesequence[2,i]:=rows;
: k/ \! f) O" E  l$ X! p/ D                for j:=1 to number_of_machine loop
7 F' H/ w' J4 {  S' m4 A" d                        if w_from_to_chart[j,rows]>0 then
6 D% x; M4 `- O9 [                        lines:=lines+1;
! a9 g5 N- C/ N& }6 n" ~1 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 y3 Q) J! f! g: I: F1 c+ Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 j# Q/ m3 g: W                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
' [7 H9 l9 |4 _7 e, Z- i9 m) q        machinename:=sprint("M",rows);
) O- B& S. p: x$ [; f% U        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]);
" Z1 u8 |) L5 A; x7 N% {1 m8 M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, h$ Y2 i( P9 e4 r/ }$ B. l        machine.exitctrl:=ref(leave);
! H8 ]9 h0 ^) k; }( _! \' `0 S/ A       
        bufname:=sprint("BF",rows);
2 _$ \7 \& Q3 ]  H# w3 }        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]);
2 i( ]2 G& i0 R# Q2 N# [8 N) R$ q        buf.name:=bufname;
) w; u% ^, K* m& `% Y" T( ^) R        buf.capacity:=5000;
        buf.proctime:=0;
/ D. k9 X/ Y( D$ B        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ k  j) H4 N2 s" y7 _dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' @, ~+ G* \1 icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
8 L/ b! g. D4 `' N! o& l4 Pend;
9 I* m4 _. P/ I  Y# ^1 a