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

zooey

is
% }; i7 }- F9 T+ E0 S; M% P        mark:boolean;
        dx,dy,ct:real;
$ L0 i; k  K! r  U0 y/ G: c7 L    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
8 G$ c' V' A& H6 ^- @        current.eraselayer(1);
; p' l6 G# k% g* |       
3 L; p/ \/ N- y. t" s+ `* u        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 j. z' E( l  S( h                inspect messagebox("设施数目不对！请核查...,",50,13)
6 G" Q% z% O# `) u. m7 G/ G3 T                when 16 then
: s$ Z* H8 O6 H                        print"yes";
$ ?1 |& Q7 _' s2 O8 j                when 32 then
                        print"no";
                else
                        print"cancel";
2 y6 u, B% M2 W/ K- c0 V                end;
                eventcontroller.stop;
        end;
# c% N: q- M! `. |5 r       
2 s6 \' C4 B% d% B( C. V1 [7 ^4 |        for i:=1 to number_of_machine loop
, B7 J% y3 D9 p- @3 R2 c) `        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 m0 C2 a( z) H# c% x6 R                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 k- \2 h. Z0 J3 t: `        end;
9 o8 a. k. N0 t- i9 Z        bufname:=sprint("BF",i);
2 x, F* i5 x) }7 I/ ^        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
6 ^: }/ B* l9 N, [. n        dy:=0;
        for i:=1 to number_of_machine loop
- a$ F" ~0 ]. Z" M8 R% ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# K( H6 k4 p8 K; k                then
" G1 L% f1 v- n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- X7 J) m+ M; r) L' r, @+ ?" K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
2 H9 ]+ V, n9 S. j; O: U' T% e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
1 V( e% f8 T4 o+ L+ ?. k- N                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- g8 B7 r' e- o. [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
, V6 _2 f3 r" Z5 U( u" e* P                        dy:=activityspace[2,rows];
                end;
! ]' B8 O* `5 q1 h                dx:=dx+activityspace[1,rows];
; v0 S0 T9 {; t: G% E! Q# B                /*if mark=true then
. ?3 W9 D1 a: w9 C0 G% L9 v1 F: f9 r                ct:=activityspace[2,rows];
" f" O: b) ~; a+ s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 H# O7 \2 k% T; A# s" @                        end;*/
        next;
# p/ Y3 J4 s, Z/ s        y_max:=y_max+dy;
$ E) K# n) h; U2 i" K" [8 [9 U        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);
, U; Z; M& \4 z" ^+ l- i        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);
0 e- y) C# J  K) J5 Q% Q       
8 f! Y' Z; V5 w* [+ V6 j        rows:=0;
) b, V5 m# N, r7 _/ B' ]; S        lines:=0;
        for i:=1 to number_of_machine loop
" t& ^/ {$ R3 }. H- o                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
( a: j  i& m, {  B" @! i                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 p$ ?! M. v: b5 k, t7 w5 B                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
/ z' \: w( |* R7 l9 @3 m                                d_from_to_chart[j,i]:=abs(dx-dy);
1 a# o2 n$ ?, w' O/ g                        end;
6 S& |+ U' u1 E6 x& O                next;
* P/ S/ n" l: r  _        next;
' w8 Y$ [9 j9 d, Z# \       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 p1 c, H: }, n5 \; j, r4 K                        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];
0 v+ K1 b) ?/ s1 X& R                        partstable[3,lines]:=sprint("parts");
3 T8 R" o: W7 `                        partstable[5,lines]:=rows;
; a) B( ^& L9 U                        partstable[6,lines]:=j;
                end;
# U: D  h$ B& J' \/ s+ @* a        next;
' M3 U7 ]3 |" T: j% j5 E% V        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]);
4 J' N9 h3 C1 D3 o+ G        machine.name:=machinename;标识符未知
) d% r% b! {& u: h0 ~6 i6 T        machine.proctime:=5;
6 ]& l' _$ ~) o8 h, N+ |; v        machine.label:=activityspace[0,rows];
7 s# O. ^7 K' P- p  O: U        machine.exitctrl:=ref(leave);
8 [3 T5 m. Z& ?( g9 j# q0 @       
        bufname:=sprint("BF",rows);
+ w, a# b% k* F3 C: _  D        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) E; o- D7 K7 W1 Rdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 h$ D: Q) [0 t: A: g, Y) ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
2 a: y9 R+ |8 {2 Y! p  B- Send;
* e- a; i/ P8 y