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

zooey

is
7 t$ ?! t& E  ^& o+ ^        mark:boolean;
% X6 G( c/ ~2 k# z" h/ Y6 ^; k6 C* m        dx,dy,ct:real;
  N, v7 r% L; w    i,j,rows,lines:integer;
( F' n6 h/ @" K3 B- v  v    machinename,bufname:string;
2 o0 ^) H- v* A$ }8 {+ `    machine,buf:object;
, O- y( m* t) t6 `: M3 m6 m5 W7 jdo
        current.eraselayer(1);
2 @4 n. J- H7 ], K' s3 u% l       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, C% \2 ]* B) I7 I1 q  Y6 w0 K5 v                inspect messagebox("设施数目不对！请核查...,",50,13)
1 l* H; p1 U8 R* [                when 16 then
                        print"yes";
                when 32 then
! l  R: I9 h0 s; Y: ]4 I                        print"no";
                else
* O+ p$ @  P4 N4 R. ^% h) P. R0 b                        print"cancel";
                end;
                eventcontroller.stop;
6 }& N4 k% n) h3 O        end;
9 u: N3 q; C$ D4 P/ F       
: h* ?' b3 }  m0 W, J9 ]        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* M; [  F) R9 n, t$ R& H        if existsobject(machinename) then
2 J, }* `  p( z& \                machine:=str_to_obj(machinename);
0 j" u6 C( K2 |% j% R& [1 Y8 a                machine.deleteobject;
$ d/ o- P2 Q* W$ B  y  U        end;
- R* b) d6 \8 {& ^& X5 a        bufname:=sprint("BF",i);
4 u0 V  F/ L- @8 o3 j        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
- G) R1 ^  q3 Y, N4 [" j7 s% H        next;
( R) w! T8 E( R8 \/ J- O4 Y       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
2 S" C# t6 g9 d8 l! _  `1 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 M' \/ H* D6 B" K# y' o$ [) R                --mark:=false;
                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];
: I1 ?4 h0 ?) y% i. l                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
# U4 ]2 W" E$ W                        else*/
                        y_max:=y_max+dy;
( n! F( t1 G7 t6 f% D% d9 N( U. z) x  N                        dx:=0;
                dy:=0;
                        --end;
7 B( Y  ?; Z, W( A2 s8 }                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;
# u/ A  {1 O5 Z% c4 P4 U5 j  G            if activityspace[2,rows]>dy then
" L/ K, a8 E" W- R8 \$ E                        dy:=activityspace[2,rows];
4 j! U9 f7 \$ B  l+ z# }                end;
9 ^3 c# S# i) I( H  ?, s                dx:=dx+activityspace[1,rows];
8 V  @# u0 _* v3 Y$ z                /*if mark=true then
* w+ i/ |0 l( T% t. D4 I% N8 R, X                ct:=activityspace[2,rows];
* G  |0 \0 Q( `: `4 X4 [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ T* r, P0 m0 p' f" t3 A9 Y) S/ i- Y                        end;*/
        next;
' x& c+ Q1 L. ^        y_max:=y_max+dy;
* O6 I( K: b+ x$ a* p3 J' J        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);
       
        rows:=0;
/ D& i& R/ v! K$ K& Y' x* |# n        lines:=0;
% ^  W  N' Y! [+ I4 Z        for i:=1 to number_of_machine loop
3 S6 B, ~3 u3 i* @9 l                for j:=1 to number_of_machine loop
: \3 @* F0 B8 Y                        if j=i then
2 U! q( Q4 p: e                                d_from_to_chart[j,i]:=0;
                        else
$ U0 M0 F& o" v6 l: s7 k                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& p, \7 W, U# p$ N. g: c                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 O) G, J3 Z8 i6 W- M; V+ C8 h                                d_from_to_chart[j,i]:=abs(dx-dy);
5 y  G  D3 Q- s6 k" k                        end;
                next;
        next;
* s$ ?$ R. o8 {* B# g4 G. Q: D       
4 A) I. p9 V& B# G' e' h$ G0 }, l        lines:=0;
) ]9 N( V$ b& Z8 b; c        partstable.delete;
( T) X/ G& n/ B5 H' v& v. \( N$ H( S( l       
  b* N/ }6 ?3 b) J8 ^3 O+ Q        for i:=1 to number_of_machine loop
6 y2 s8 a! r* Y+ d/ f9 [! }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 N& Q+ D% |( [7 l% a  n                machinesequence[2,i]:=rows;
  X0 p" I, B$ w0 E& s$ }, z2 V                for j:=1 to number_of_machine loop
! F, e* M5 |# u5 v# F: \8 s' Q) F                        if w_from_to_chart[j,rows]>0 then
5 A4 \* `! e3 o6 K                        lines:=lines+1;
+ f" R/ B+ i8 L, n  Y- T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; K  R; |. A+ P6 c                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( u: B3 \( {  ?9 }( s4 e$ a9 y                        partstable[6,lines]:=j;
                end;
3 y7 [0 I$ e* \" w' w        next;
        machinename:=sprint("M",rows);
" ]# J* o( ]  F5 k/ O        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) c9 B* h) K5 j. I' v        machine.exitctrl:=ref(leave);
) C* `  _2 j# ?% G7 i. P( a% s       
        bufname:=sprint("BF",rows);
# u2 Q) E' x' p5 g  `, ]  i" R        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);
       
+ R0 W4 z* l$ f. u! o        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 [6 x2 R+ e( N& }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);
next;
end;