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

zooey

is
/ x' k9 B, N. j9 r        mark:boolean;
        dx,dy,ct:real;
& Q! m0 t9 V3 o7 q# i6 ~7 r% p    i,j,rows,lines:integer;
: c1 D3 F, e* u* {+ V    machinename,bufname:string;
0 i, A& m6 v) |) A6 i+ Z, q6 @9 r    machine,buf:object;
do
# _% d" S% N" G5 ]        current.eraselayer(1);
       
. s# J. C( ]7 \+ c        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* ?. Z0 p. }# d7 |                inspect messagebox("设施数目不对！请核查...,",50,13)
, H- U# p& @. E5 ^6 @                when 16 then
                        print"yes";
& E* u7 }; J& R& s# x! I                when 32 then
4 P8 P" T! V7 y* u" H/ y: _! F                        print"no";
# c6 U; t3 d3 k) x7 H9 J7 F                else
8 F$ K! B+ G! n( p3 L                        print"cancel";
  e8 T; B& w# [+ j0 ]* U' p                end;
                eventcontroller.stop;
        end;
+ k+ K( t; {5 }" M: k       
) M/ F* c& T8 f( Y- E  `- {) ^        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
: d- W7 f4 p0 `. |2 H6 Z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ `" e& i4 b: }6 }, i. Q0 [                buf:=str_to_obj(bufname);
0 U; y# p- g; @& D! Y                buf.deleteobject;
        end;
        next;
       
' D, t' t' Z3 Y        dx:=0;
        dy:=0;
+ k& Y/ g$ d  A' @9 `7 m; {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ ^" S6 }& e. C5 Z5 ^/ P                --mark:=false;
' r, {6 E7 e+ r, P0 n/ c                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 W+ h" t* B8 g* ]+ c1 B8 f                then
7 f- f1 V. }8 I: B: |, b8 L7 u                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. Q% N" E3 W& v6 U6 E                        print activityspace[1,rows],",",activityspace[2,rows];
0 [: S6 o. ~+ G" g1 G                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 l0 Z( ^, C8 x0 {0 f$ @                        activityspace[1,rows]:=ct;
+ o! i7 l; G, f                        mark:=true;
$ f7 E$ o& E/ @* q/ g" s. E, T                        else*/
                        y_max:=y_max+dy;
4 S1 ]9 }" D5 q$ |                        dx:=0;
                dy:=0;
6 ^8 t" c, D% w9 _* N+ V/ t6 {                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& R' t- K4 u1 w" U, M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
% K4 u7 O) b" w7 ~                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( l% w% |6 {& f) Q! `$ E                ct:=activityspace[2,rows];
+ [3 Z6 D; y( R; G                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
3 L/ B7 U% K. |  Q9 r% J: V        next;
5 U7 H/ M) I% X! Q1 k        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);
* a! i" _# |! e- `+ G* B        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);
0 y& U5 f3 t6 @9 P       
        rows:=0;
4 A- {6 k+ [2 {        lines:=0;
( {8 ^; K: A  Z5 ?2 \        for i:=1 to number_of_machine loop
  W' O5 o/ |+ L3 P0 _$ o# ~3 |2 B* @                for j:=1 to number_of_machine loop
" y5 v# B/ x- e, u, h$ ^- a                        if j=i then
& i1 s) }  o5 v' t& f  _                                d_from_to_chart[j,i]:=0;
                        else
+ p1 T. W/ b5 P                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, z8 a& b4 r: A0 M                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" N) J- X2 N4 t                                d_from_to_chart[j,i]:=abs(dx-dy);
" b- F/ m! F1 v/ r5 x4 N                        end;
                next;
6 f: e9 e, p! }        next;
/ {& T. s9 o" Y2 T' C3 G  y. X       
        lines:=0;
        partstable.delete;
       
; t; T' r6 C, P+ F, y        for i:=1 to number_of_machine loop
8 Y4 o' Z; Q& U5 _2 q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- `% J( s  j) p) ^' ?                machinesequence[2,i]:=rows;
7 y5 {0 a3 a, Y4 L# {                for j:=1 to number_of_machine loop
. K4 ^) p  `" o7 ~& P) }0 ^# P7 o                        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];
% G' ?3 I5 ?3 O8 |                        partstable[3,lines]:=sprint("parts");
; r( s* ?5 z& j                        partstable[5,lines]:=rows;
9 p! X! u# }' f# z- r- }# ^  _                        partstable[6,lines]:=j;
0 F& Y8 ~; D1 D, Y& m                end;
5 X: Y% j  A0 {5 p; V0 C1 a# J        next;
        machinename:=sprint("M",rows);
% V* |8 I- B4 }2 o. x        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;标识符未知
. c- `/ x3 H( |! h7 ~        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
( T" ]% ?5 D8 h8 t$ B        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
# S$ R0 A# S) \$ a        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]);
5 o9 Z& F; N* Q, j        buf.name:=bufname;
        buf.capacity:=5000;
1 ~8 u0 p* f  d* E" _4 }+ z        buf.proctime:=0;
  u" Q# M- ]1 {) i% [& [  g5 j8 ?) M        .materialflow.connector.connect(buf,machine);
9 d- z! Y+ \# v. K  l7 [% {       
        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);
next;
end;
; v: o. {+ P4 @+ L8 ]