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

zooey

is
! E" E, e) C, c( @3 e  p$ ^        mark:boolean;
) h* x0 @8 |0 h1 Y8 D' H! |5 q        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
" ~/ z8 ^# P5 `; ?/ }% \8 ~    machine,buf:object;
do
/ X" V: u. a+ Q9 ^% v  ]        current.eraselayer(1);
$ J/ y, G& v' J  n+ l& E! a; j       
8 J- _) W3 ^1 X1 c# Z* v        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 c, ]1 f/ L& F, l4 i! t                when 16 then
                        print"yes";
                when 32 then
" Y  S: ~2 b1 G7 @: @3 u$ }& u                        print"no";
0 L& E- y4 S( b                else
( d0 `/ q. s3 y7 b" o4 }2 ]7 x                        print"cancel";
4 s  b  B8 D7 C! d( O/ p7 `                end;
                eventcontroller.stop;
* c" I1 e" M" ^6 s        end;
* H. {8 _+ ^8 K+ x       
: P7 t2 ?$ |0 J        for i:=1 to number_of_machine loop
% u1 b# h& V: a7 W; E        machinename:=sprint("M",i);
4 r* k0 M1 j/ D" c/ ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
7 x! P/ n4 E- }/ a6 W                buf.deleteobject;
        end;
# P- Z) U" W1 ^9 s5 Y        next;
% O/ C( L9 z' |, O: P. y7 r* I2 X6 e       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( a+ @5 r( `# c' P$ U( k, K; g7 ?0 `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- i4 {  F% g; K" L; t                        activityspace[2,rows]:=activityspace[1,rows];
3 V4 c+ `# Y" P( s. T- A                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
, c: }( }3 T$ l' k                        y_max:=y_max+dy;
( k: K" T  N1 N                        dx:=0;
, E9 E& W, b" s& J; ^                dy:=0;
! k( O7 h, E: ~! G                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 [, H5 ~  T+ b6 |                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 T  {% h: K9 V2 B6 e1 N4 z            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ ^$ W  s, t# {6 \                end;
                dx:=dx+activityspace[1,rows];
" H3 |* u! {6 d/ B: g& `                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  p' A- W, \4 q# F5 X& k* f                        activityspace[1,rows]:=ct;
                        end;*/
        next;
, j. t5 J* X4 u! s  e6 T        y_max:=y_max+dy;
& |( h3 y2 T; |" s        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);
* ^0 N0 c9 x2 G0 [$ x. 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);
       
        rows:=0;
        lines:=0;
9 n3 \/ T; r- W( v% Q0 Z$ t; F        for i:=1 to number_of_machine loop
1 h7 x8 `% \% _  R* f; X                for j:=1 to number_of_machine loop
                        if j=i then
% _0 V& \: ]2 U; b                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; o, ]7 Z+ K. U                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# M* X# ^9 v) S& G                next;
( V* @$ r1 {; P! n5 Y, X7 n        next;
       
        lines:=0;
        partstable.delete;
# c( b( r4 d& b1 O# ^& U$ }1 K       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 d, Z5 q2 B* F                machinesequence[2,i]:=rows;
) o  G; B- |) z8 U' ~& H. }                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
- Y- ~% G9 }2 p: ]2 G0 s                        lines:=lines+1;
8 Y$ ~' P/ r6 n8 _  @6 s7 j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
) b  c8 v3 Z: v8 X8 g4 e' S1 Z                        partstable[3,lines]:=sprint("parts");
+ l+ J) ?9 S, |: h) _- [( {                        partstable[5,lines]:=rows;
0 x: S' j6 f; h4 C4 @& r                        partstable[6,lines]:=j;
" |" k; T8 t) I2 W, V                end;
+ Q& |, g, H, c) y. ?5 P; N) }: C        next;
        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]);
9 Z& b0 Z$ C) \9 `( D% V8 j        machine.name:=machinename;标识符未知
3 d: x: n5 M, e7 K        machine.proctime:=5;
4 j) F/ M3 U+ s4 e- ]        machine.label:=activityspace[0,rows];
! O" N  _& C+ ^# r/ J        machine.exitctrl:=ref(leave);
8 [* x- F$ v$ {! _       
        bufname:=sprint("BF",rows);
5 S5 k* j8 n; ?) Z" w+ I8 C8 t1 g) 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]);
' W1 ?" @" ^) W7 I4 Z        buf.name:=bufname;
        buf.capacity:=5000;
+ d5 d* T# k' ]2 S% X        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
+ ~9 ]% Y: \, ^5 ?& ]! k8 @       
% w( Y% k) c1 B  O- r* K* l" _! H        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ `( G1 P, Z. D) H  J5 X/ f( H0 ^% }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
$ C$ Z/ u1 n6 dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
; u" F3 Z- _; i8 |, ]7 Gnext;
end;