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

zooey

is
- A- k5 r% Q" q$ y5 ?        mark:boolean;
2 ?/ S* a; p) P+ o( ]1 ]# j        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 _, o, J1 ~- I* ~7 y% S1 ?" Y    machinename,bufname:string;
+ }6 r0 {# p' p% J1 s    machine,buf:object;
do
        current.eraselayer(1);
6 @; w6 Z2 h6 E       
" m6 C4 o2 e) J  X  ?$ x) }+ i% c        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 N/ h7 L& C7 f1 V$ `                inspect messagebox("设施数目不对！请核查...,",50,13)
; R! G$ U. p: A# x                when 16 then
4 s1 U& d2 A4 M% l7 H                        print"yes";
! ^7 z' c9 m, _% E7 ~                when 32 then
* m  P) }' k, {                        print"no";
: Y0 }! z. W; h4 I8 m$ K- \5 l                else
                        print"cancel";
; l1 j$ Z3 D( b: d* U9 [, N                end;
                eventcontroller.stop;
! `2 m7 h5 @: C% S+ b7 S' L2 P( H        end;
       
3 i) _8 j# l* B$ O, M. m        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ ?8 R" Z1 J5 o        if existsobject(machinename) then
' `" z+ j2 |" s* W* W                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
9 M- D* R' H% A& L6 I" Z# x4 t* _        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 K) l( h4 v# O: }/ @4 d                buf:=str_to_obj(bufname);
( Q& ^. ], u7 {$ a/ L1 g- n                buf.deleteobject;
! Z1 h7 H" Y" z) m$ y# ~        end;
0 l) `$ |8 G- E* H5 `: A1 J: R$ }0 \        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
! O! m# C/ |$ X; G/ G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 H( @9 `$ j( i$ J' M' g+ f                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 B1 w$ a" Z: `                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: f8 H$ c" W& _. p* I                        print activityspace[1,rows],",",activityspace[2,rows];
7 D& }) m- d) N4 t' c7 D, G                        ct:=activityspace[2,rows];
9 n* k+ o* w1 P" J# s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
* e4 y. {2 x. F+ Q, I7 {6 O                        else*/
8 ~' W, I, e; |) x/ e9 Y" U                        y_max:=y_max+dy;
; Z5 B5 T9 ]" p1 L/ \                        dx:=0;
                dy:=0;
                        --end;
                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;
            if activityspace[2,rows]>dy then
" H3 ]% ^! K: V4 p  ^9 }% W                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
; v9 l& Z9 X6 s1 B9 `+ d                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
) ?( F% o/ u5 Y) H. Z9 q6 A: A        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);
( R( V. y6 ~& w" ?8 r, h       
% ?+ t# B3 i& I" l4 c% Q7 u        rows:=0;
        lines:=0;
5 H7 ~' h7 A+ _) i' w1 r  U        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
* G- n0 _" D; r# U2 Y. g                                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);
, b- F7 _; s8 I+ C" }                        end;
                next;
        next;
2 k) ^& X- d0 O  F8 e       
        lines:=0;
        partstable.delete;
       
9 S5 q3 e% Y. e/ |% a' D% m        for i:=1 to number_of_machine loop
# p5 v' x' L- _/ I$ Z( ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 q; T. s3 f" U  ^% _& V' k                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 k: N) n! [/ [* U7 r3 R8 V* X                        if w_from_to_chart[j,rows]>0 then
/ _& D0 M5 F5 K0 u                        lines:=lines+1;
; q/ I& l9 h4 x9 Q4 y) H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 N* b3 c/ L  S; L6 J/ ~2 t                        partstable[3,lines]:=sprint("parts");
# A& ~2 j* r4 T/ W" a                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 @  X! m6 R- @. q& W, x& K                end;
) P$ ~+ N) U1 z  \        next;
        machinename:=sprint("M",rows);
5 t2 p2 z2 m" K; F) C' Q  a: |# w; {        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]);
% ^9 u* V. R" }8 g" L' c        machine.name:=machinename;标识符未知
        machine.proctime:=5;
0 q( K4 e4 L+ W* r        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
- B' T; F' @# P* |% q# y' t       
        bufname:=sprint("BF",rows);
        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 d5 J5 y& S0 b8 |        buf.capacity:=5000;
        buf.proctime:=0;
2 ~( T1 I. b3 e) Q: A2 Q; F        .materialflow.connector.connect(buf,machine);
% D6 r8 J& S3 H  S2 N7 F2 k* B       
/ c/ z6 m1 u7 [  J        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);
1 B- w7 c4 s- ^) I% @8 Onext;
end;
& {9 G( V3 P2 L9 j8 ^