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

zooey

is
: I3 G1 G& \. ?( p, c% Y  R6 }7 {        mark:boolean;
8 [+ e- H( A! z5 {$ f0 D+ R        dx,dy,ct:real;
) k5 v2 h  T: ]    i,j,rows,lines:integer;
6 z) }5 E. @# W4 O7 c    machinename,bufname:string;
/ A2 P/ k- d# v" x1 G7 l- a    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ Z2 v, B" e7 M4 E1 q                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
% X2 r4 a% O5 O& e                        print"yes";
                when 32 then
+ B6 E1 M: K' T' B                        print"no";
" L/ M6 X; o. ~  `" V                else
3 K8 |- }- F; T+ O1 M5 T                        print"cancel";
                end;
4 ]/ E( n1 ^8 \                eventcontroller.stop;
* F6 z6 q6 _; T) L6 a* d        end;
  z' R; i: M+ D* V  |       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
3 ~  O/ y+ V$ s8 ^* x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
7 Q( N0 n  J- l" @- v5 e                buf.deleteobject;
        end;
        next;
       
% K, P* z) O' o. W! U9 b+ f        dx:=0;
% ]: O8 t  M* t" ?) o  [. J3 o' w        dy:=0;
  @1 n" M( ?$ G: b/ o6 H9 E+ w5 r        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ N7 v1 F! w: w$ i; r* g                --mark:=false;
7 I6 b; M3 J) Y3 z$ k1 f6 e/ x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 `: [5 g! Q8 x                then
" Z- s4 Z6 t, l; T* P+ K6 L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 m3 e3 r/ H( G1 z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ w! D! d2 I; e                        ct:=activityspace[2,rows];
# J. b& d4 `% y# G- U0 K                        activityspace[2,rows]:=activityspace[1,rows];
) r& T( u  t. P& h% G# z                        activityspace[1,rows]:=ct;
# A' B- m8 W8 m3 m! ^! i7 |9 D# Z                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
6 p2 n; J/ l; Z$ u9 A, M                        dx:=0;
                dy:=0;
2 R) t/ D' I3 v                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 j  _* b: b& T/ ^; {2 j2 Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. `8 q) u8 `5 l! h% a            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ C0 L0 G. o5 @) U. ]& P) y                        end;*/
, g9 b2 i* ~4 O        next;
4 Z2 ?1 |. }; f% x        y_max:=y_max+dy;
& c" M( Y8 ]! v        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);
+ N, }% L; j8 d7 b( y- M4 z        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;
% C' q. j7 X: _        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 u% }" S. q+ y9 I  d9 j                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
  d* p/ Q7 ~/ X/ M- D                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 ?, S; z: K* k0 J" |1 w                                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;
0 H/ R9 o5 ~/ ?0 r( S) F                next;
  T& D# u; w; l- p- S; z2 C        next;
       
; O2 Z+ x- |/ ^, M4 O7 x$ P' ~9 M        lines:=0;
4 x) T" w3 d, ^        partstable.delete;
       
        for i:=1 to number_of_machine loop
9 C6 q% }; B9 p- E$ ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ \+ m! }- v5 B4 f                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. F& G' R# @, w' q                        if w_from_to_chart[j,rows]>0 then
, D2 }- e0 Q4 ]% o/ a" \2 b0 G# S' }* M                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 Q3 \! L) ~! D' |                        partstable[2,lines]:=w_from_to_chart[j,rows];
: I6 H" K' C8 x$ d2 ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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]);
        machine.name:=machinename;标识符未知
) D5 c, i  e# p5 t7 S8 P; f5 s* O% _) A  X        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 N6 s/ }3 X: L" k! l8 S* |5 _        machine.exitctrl:=ref(leave);
$ A2 Z% U& ^0 T( h* C9 c4 J  n. h       
0 a6 l. w- k& |$ G        bufname:=sprint("BF",rows);
        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]);
- Q9 R+ y% h8 A# u" u- G& C        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
2 n' \8 b6 u7 T1 y' U) _( Y        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);
4 h6 n! D+ K' @7 ?3 d, }next;
end;