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

zooey

is
, W. {% C  @* v" t2 U        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 S: I1 s5 y/ m' |    machinename,bufname:string;
    machine,buf:object;
4 _6 `- ?5 G6 a7 D4 N+ H/ edo
. V# h  z- w1 C3 O/ [2 U) c        current.eraselayer(1);
  R! |2 V9 s% C' |- H: i) X. j       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* `" B3 ]! Z( z+ v                inspect messagebox("设施数目不对！请核查...,",50,13)
: q9 a" V& b% \& P; l                when 16 then
4 c- K( b# U+ [) x                        print"yes";
! D  Q! i; H; s" M3 j                when 32 then
# T% b6 U! z) Q) t. X* B7 Q  k                        print"no";
                else
, \9 z$ B2 j# a  o: D                        print"cancel";
) S: L' x2 t2 D; V* `7 Z; T4 q                end;
& S, Y7 r4 E% [0 i5 ~6 Y1 ]. D                eventcontroller.stop;
6 {4 g0 F8 `, {. j) q* P5 `        end;
6 Q" X. w, z) d! s) q9 E       
        for i:=1 to number_of_machine loop
9 P/ m  C0 D* \0 y) w& n        machinename:=sprint("M",i);
) @$ v1 R! S4 ?. X' X        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
) w/ D, }8 O9 E7 t  D8 s  }- B        bufname:=sprint("BF",i);
7 Y. o2 J) d1 \, Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 y7 W. H; u  ]  Z3 M/ G        next;
. [8 s, s! ~2 [* Q8 d0 x       
2 b2 P+ v' J; m8 P        dx:=0;
$ ~# d3 e+ i, Q/ w        dy:=0;
        for i:=1 to number_of_machine loop
- Q; J: T8 G" ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# b0 I9 ~( a' V5 {5 {8 K% u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 F2 g% N. s" _; Z% l. o                then
( }4 w. W8 h9 a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% w/ Q* e0 j" y3 K9 W                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
. d, x$ s/ F& w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. z/ }* O' `: {8 X1 V2 N' z                        activityspace[1,rows]:=ct;
                        mark:=true;
5 i1 f( z% x% ~  [. T- _9 r4 \% _                        else*/
1 R* l5 F( Z8 K, k. i( `- e! X. s                        y_max:=y_max+dy;
& i/ n' y( g4 B& w                        dx:=0;
                dy:=0;
                        --end;
; X  N8 M4 x5 a0 M8 |7 C* z                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 r8 ]+ x9 t3 s# Z+ O: G2 N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& Y& I2 ]) a% `            if activityspace[2,rows]>dy then
7 Q' J) \" b; q  w% G( y$ B                        dy:=activityspace[2,rows];
3 U" ^. n- V' d& M8 Z                end;
* F0 S7 ]# L  X. `- I- g                dx:=dx+activityspace[1,rows];
# Z+ @, E) G1 @- L5 _% M# p                /*if mark=true then
1 E& r& J; e+ R5 t8 x$ l% q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 I. G. A; s2 P# b8 M& U        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);
0 }' Q' @2 P  U" ?0 R4 o$ 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);
       
( R/ @  v5 m$ ?, i        rows:=0;
        lines:=0;
5 j  @' A" }. b6 F9 x8 L3 y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" s$ b: q+ F  P( P/ [" v7 w                                d_from_to_chart[j,i]:=0;
                        else
! q3 t  X7 r8 o* ^; w                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* V. M  r3 s/ t& I5 C                                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);
4 t8 N8 w# Z1 n, L" P                        end;
) n$ I2 a5 j( P  e0 ?% a                next;
9 `1 n. r+ V4 ^0 u% ]5 J! N8 o        next;
       
, A! S  }& e1 b5 _. j        lines:=0;
        partstable.delete;
       
, K7 o) l1 j! p9 q& ~+ e8 j        for i:=1 to number_of_machine loop
& J: h# x# o, W0 Z5 y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- o9 z6 W- z4 Y+ v6 u) c                machinesequence[2,i]:=rows;
7 M  u' a  w4 S; y. X2 F                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; |7 E4 g4 r6 w- z8 v# Z. T                        lines:=lines+1;
5 j- `# u0 ^% w4 ]# J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, F/ @! q- R" r1 H, ~/ B                        partstable[2,lines]:=w_from_to_chart[j,rows];
& h, T& E8 ]% [                        partstable[3,lines]:=sprint("parts");
: ]$ t; L; A# r- h                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
+ e0 N' K) W8 K3 ]        next;
        machinename:=sprint("M",rows);
; T) z+ W: H; |        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! r6 ?$ H( l$ P- o4 Q! J9 u9 I        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: i; Z; [/ L. b# D; \        machine.exitctrl:=ref(leave);
" I" Y8 d( E" P7 W( Z       
( ]( b5 ]$ @/ N7 G1 T; d9 M        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]);
4 H  h6 a5 F- Q! E# ~" f        buf.name:=bufname;
        buf.capacity:=5000;
: k0 B6 t! n% j7 w0 U        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
+ z5 M. y, \# A  K3 T        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;
: O1 v2 W2 _! Q$ jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 }: Z6 B6 e: T! j# w/ |" Xnext;
end;
$ }  Q" f/ k7 c- M$ F; R& V