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

zooey

is
" k# h7 z$ p9 V6 q& _* k        mark:boolean;
2 q. m: l' x0 @" ^5 J( n% v0 X        dx,dy,ct:real;
( w9 g1 G  u, b" S7 V* \& W    i,j,rows,lines:integer;
  g  Z; F# y( V6 t( @    machinename,bufname:string;
$ f" g# ~$ Q1 P9 b    machine,buf:object;
do
" B8 {6 ]8 n) }" `' a        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 }7 a5 V& e" p                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" n7 ?3 h6 T0 z# i. y8 x- |- a& J                        print"yes";
+ `2 t8 d/ d0 y' j2 ~( i* l' S                when 32 then
                        print"no";
                else
) r, K  o* S1 h; T' \, |                        print"cancel";
& ?; ]% e& ^& ]2 c: R# V' }( e! D                end;
                eventcontroller.stop;
1 {9 w8 U. ^0 x+ R, l9 c: t        end;
       
5 s6 r2 O6 `5 u1 l. `9 @' \! D        for i:=1 to number_of_machine loop
# H6 M. |8 ?; ^& U. q' I9 S. T4 Q& @        machinename:=sprint("M",i);
4 U/ Y& C- n" @2 N: {" |  T        if existsobject(machinename) then
+ f- M3 s$ V8 }' X8 x                machine:=str_to_obj(machinename);
7 b  t( [/ j; K7 Q+ h. l0 k& y                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 ~3 z) m. l3 S( f5 ?8 b" F                buf:=str_to_obj(bufname);
- ]. D3 D# P' K$ I; z  L                buf.deleteobject;
6 i# n' J. I6 T  x" e2 H  d, q        end;
        next;
       
# b! Q$ u- W5 Q0 f  P        dx:=0;
        dy:=0;
! w4 K$ k7 G4 R1 [- q( M        for i:=1 to number_of_machine loop
, C6 Q+ K1 X* ~& Y4 Y: e* y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 e& n( W  [& y, D% G" M                --mark:=false;
1 ~" F- M9 ?0 n, U6 m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- l8 B  P9 q* `# N, d6 i" N" ?                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 @  D5 J$ c! X4 ]' A! q+ {- w+ {                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
  N: y8 N2 E& k5 F% }8 _0 I                        y_max:=y_max+dy;
                        dx:=0;
8 R, u3 X  _# \2 D+ H8 a" [                dy:=0;
                        --end;
& Q8 Z  A; G1 X) x2 w8 @                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 o. w  R) }, O* Q  N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& |9 y% `+ Q$ V; p2 W" z            if activityspace[2,rows]>dy then
  _" ]% e- Z  ?( F4 m% ]                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
( ?9 E9 a) ?2 B, [; w: r4 U                /*if mark=true then
$ s# a, h9 c$ F) }$ o2 V" p                ct:=activityspace[2,rows];
! A/ e5 i' _  c+ D& M( m                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: z2 \  ?( e% ^7 S% l                        end;*/
        next;
0 e9 G- w; ]8 w8 V; R5 W        y_max:=y_max+dy;
6 u7 h" u/ e1 T( M        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);
3 t9 c9 H1 q! Z+ K( F4 x       
2 l" H  B0 b7 z9 a' z        rows:=0;
9 S1 Z9 z! O) J& y" R1 W        lines:=0;
        for i:=1 to number_of_machine loop
# N4 X- o2 x8 d/ g$ e" w2 B                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% ]' J6 a2 G7 c/ B: L  j+ `8 o/ X                        else
! G' \4 k6 n) ~                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
( E. @; x3 w3 Q5 B                next;
        next;
8 E# @6 j) i1 Q& p" H0 t1 k       
        lines:=0;
8 `1 I. r( Y+ }7 N7 i; M7 A        partstable.delete;
3 X2 a0 }# s8 H  o, q0 N! b       
        for i:=1 to number_of_machine loop
0 M- O8 ]4 F: D2 ?" d2 m% ~6 t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  `, Y; }: R6 ], i0 Q' M; X                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 Q- v$ [* a% ]' r4 b9 d& t, k; ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
+ [9 l8 U: i' j! D3 D( I% e        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;标识符未知
2 ^9 N; u( y3 F, r2 K, [# a2 F2 i        machine.proctime:=5;
' I. D0 A+ D; b1 w7 B1 Q1 j+ l7 {        machine.label:=activityspace[0,rows];
! h: D7 @/ D7 D  a! x        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
3 `2 A7 r+ T6 M' g5 s, |        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);
' d& @" |  A% @1 P6 u5 Z5 H! _: p; q       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 @1 o! Y$ W* e# ?  j  P. m" fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 S7 [! j5 l& Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;