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

zooey

is
8 d$ j- \' }1 X, N$ D0 W3 A        mark:boolean;
( V+ a9 {  e  I* W# ^  C        dx,dy,ct:real;
4 }' |) s8 T( r: j% L* a# o    i,j,rows,lines:integer;
: B7 B4 y" R" D2 ^. ?    machinename,bufname:string;
    machine,buf:object;
. A7 k% c6 E) C5 P9 T: |do
  G& Y  ~: ]  F$ Q2 ~7 @9 ^        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
, c9 g, ~: w+ h4 |3 L                        print"yes";
                when 32 then
                        print"no";
                else
. |. r6 L- u# @3 q7 l                        print"cancel";
+ A* r6 |4 n! q7 l% a* k; c. ^0 U- T                end;
                eventcontroller.stop;
        end;
       
5 N+ N  Z, B& `3 Y$ s/ y( ~) U        for i:=1 to number_of_machine loop
& ~/ v4 i0 s9 b+ o; Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
( q7 L, y% M) W* {, ]! w                machine:=str_to_obj(machinename);
. p2 C/ v7 C' F" s! ~                machine.deleteobject;
( q. }; D4 h; L( [6 u        end;
% K: B9 N$ K7 ^( w/ @  y( z% y$ Q1 t4 t        bufname:=sprint("BF",i);
- b" ]# J$ G" K" e6 N: Y0 e        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ U2 h1 W- c  m                buf.deleteobject;
' }! D, D. g* y8 ?; O        end;
        next;
9 P5 [6 H- L1 h/ K/ i  z       
        dx:=0;
        dy:=0;
" @+ @2 @; ]. s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: t3 [8 }8 Q) y; v) @& j# T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" j8 \. b$ w$ ?7 G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ c6 U2 |& ]  W* D& y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 P, e9 d- ^2 A+ j                        activityspace[2,rows]:=activityspace[1,rows];
+ d4 B. F8 |: E                        activityspace[1,rows]:=ct;
7 ]) b  {4 @4 l                        mark:=true;
: P( X8 P( z+ `) `' C' Z8 g, u                        else*/
                        y_max:=y_max+dy;
2 F- B8 ?: M4 `  y8 H% [; U/ _                        dx:=0;
9 Y* e- y- n: k  s                dy:=0;
4 m' N$ E8 z, b                        --end;
                end;
6 z! O( Y) n% }4 p: F1 w$ h/ F2 [. l; w                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
                        dy:=activityspace[2,rows];
7 L/ Q; ]. E" h/ o6 L                end;
/ O( _! Z: B; M6 @+ F; r                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
0 D9 G! ^. x/ X  H' o2 R                        activityspace[2,rows]:=activityspace[1,rows];
' R- D3 u, @# e  K& f6 Y                        activityspace[1,rows]:=ct;
                        end;*/
8 t9 u9 J; ]) T" X4 c, z        next;
        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);
! `) q7 `. t( I) U+ N        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);
       
! |5 \, v2 j( H/ N4 u8 S# P        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
! t- y* t# ~$ y& m2 T                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];
& l# F* Z% K* I* z' 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;
                next;
        next;
5 B( E( A5 e5 R8 T) T& m       
        lines:=0;
6 s* W: N! l4 u. B$ Q0 W, Z& s        partstable.delete;
' v" m- J5 k8 F2 C1 d1 D       
) J1 Y+ o$ x5 v+ c3 v& S        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
                        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;
/ P# n. k# f* n" X# S                end;
3 H8 L8 Y- e+ M) t3 m. m        next;
! s9 v+ y/ @$ ?2 n0 X, t        machinename:=sprint("M",rows);
3 s; t- c4 z. F3 k0 Q. ~        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;标识符未知
9 N7 |0 u% a- k: l+ w2 }3 T/ r3 Z2 t7 S        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
+ Z# H* X. T3 l- B# ^3 r/ 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;
$ e* ~) ^8 l6 d" p        buf.capacity:=5000;
& R0 I+ j/ C, ~        buf.proctime:=0;
& c  h* J# Y; q" H        .materialflow.connector.connect(buf,machine);
8 s0 x) s) V; h* K- n) s" r8 k       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 h" o+ h" N3 n/ d6 sdy:=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;
+ [# }6 C0 j& kend;