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

zooey

is
) }5 L5 D1 K" v2 C7 ~' q) O9 d% k        mark:boolean;
        dx,dy,ct:real;
& S* c" ^$ `+ [5 B    i,j,rows,lines:integer;
    machinename,bufname:string;
" f, z4 r( U0 g5 J) r    machine,buf:object;
" ~7 @$ ~+ `) L/ z5 S2 L6 Edo
        current.eraselayer(1);
4 u6 D, _- e& P$ L* G% ?       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 z2 V" f# k0 H7 E7 M  Y/ k$ J                inspect messagebox("设施数目不对！请核查...,",50,13)
: b6 @8 k4 U8 |, f+ c* l) y( Q                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
8 c" U7 {+ a' n) U3 g# a                        print"cancel";
                end;
                eventcontroller.stop;
0 V4 ^! x: Y. O, I' w! e: {        end;
       
! `# q1 G3 B$ M+ k: ^. x        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
* U; p  L' @+ ?- D9 x4 m                machine:=str_to_obj(machinename);
7 c9 V* r9 r& E7 [/ l                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 H- F; V5 a2 f0 @                buf:=str_to_obj(bufname);
1 F: P1 S& Z7 O/ x. C                buf.deleteobject;
! c$ I1 u5 ^5 }; Y        end;
        next;
       
2 x  n" }  B& l) p        dx:=0;
        dy:=0;
3 m* k* _. @9 ?' u  @' I        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) A: R* L% L4 p  x0 a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 [2 ^* U( q6 s, u& [                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& `  t, `) q% c5 B7 `                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: N7 @4 p! V7 t! v1 ]( f                        activityspace[2,rows]:=activityspace[1,rows];
: [6 x, |3 \  j; I3 O5 L( f! V                        activityspace[1,rows]:=ct;
                        mark:=true;
& B& R; I1 a% s; d                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
; |# X; P3 x( Q- E1 B% H1 y: [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 R6 l3 E* \  f0 W1 j# A                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];
% |" i) l# }( R. Y! s: ^7 H5 P                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 V0 D' F  x# I# u& p                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( i8 Y9 v% d$ G5 ~                        end;*/
        next;
        y_max:=y_max+dy;
5 ^9 @# |6 X2 |, R8 X        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);
. J" K2 ]& \$ j0 [1 n       
& F% v3 |% Q, T7 F+ w! j; ~8 o        rows:=0;
        lines:=0;
/ [. _- ~0 S- B6 w/ |9 c        for i:=1 to number_of_machine loop
$ c2 ~5 z! L6 Z7 A$ \6 h7 i                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) f6 e$ m( w: O# c% s4 ]: j                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' n, A' r$ N+ {: f                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. k7 V9 ^) I& v% t) S                                d_from_to_chart[j,i]:=abs(dx-dy);
* v& r# u. ^2 O8 z- w3 D4 B                        end;
                next;
        next;
$ i( @# H8 U2 j7 ^- e       
        lines:=0;
; b  l- o8 k% n2 g6 g        partstable.delete;
6 p6 b0 ~8 @# _7 d: U  K       
) F) }. B3 v' [' l1 I; F$ c- w9 Z        for i:=1 to number_of_machine loop
! E4 g3 k- s2 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 x* s; t& s) O                for j:=1 to number_of_machine loop
' s( p* E2 ]; O9 R+ Y                        if w_from_to_chart[j,rows]>0 then
( L- A& ^; f2 u; h2 Q) j                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ b+ d- i( ^3 @4 {5 S' v  S                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ e; {0 m3 G: ]- @                        partstable[6,lines]:=j;
4 k5 x+ l$ U9 k+ ?$ |. e% l! {: T# C4 \' ]                end;
( f7 K/ E; m* P8 }& y4 b        next;
/ l- F+ I1 }- M# t4 |8 Q        machinename:=sprint("M",rows);
! Z# q, ]- e5 R* a5 ?6 n* ]        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;标识符未知
& T- y; s; `9 O% ^% N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: L/ v- v! P% i% t        machine.exitctrl:=ref(leave);
5 p4 M! l. a/ }3 y       
* Q9 ~  h6 c! l% K& {        bufname:=sprint("BF",rows);
; _, J$ s- y! t3 ]  Q        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;
) K1 b, ^0 K. t" |        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;
, w7 V2 F8 ]) d. @9 j4 Pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. |5 Z$ M, k9 T  d0 O! h+ X4 ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 O! T& ]1 `# d" A" x. Dnext;
end;