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

zooey

is
  V  J; R, ]' f4 f( l- z        mark:boolean;
        dx,dy,ct:real;
$ {0 ]$ s& }* k$ i$ T& T    i,j,rows,lines:integer;
1 n4 `. N* B- m    machinename,bufname:string;
    machine,buf:object;
; J8 E) g. `5 I2 K  sdo
9 v+ [- r& c/ H: [        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
9 S8 H8 s0 v0 t/ T* V0 F; T. Q9 \                when 32 then
                        print"no";
2 V, _7 R; Q$ P% X" I  E                else
8 w, x& W7 ~* \$ ^' s7 v                        print"cancel";
                end;
2 F$ W, F6 J( ?. T7 }                eventcontroller.stop;
5 ^3 V" d! V+ ^" {. P+ M" a        end;
       
        for i:=1 to number_of_machine loop
0 M  b1 ]: u; ~7 ^* Z5 W        machinename:=sprint("M",i);
& i) U' q0 [0 Q7 G5 g6 c. d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 [4 j) l; D' {" r                machine.deleteobject;
        end;
7 _1 I1 K& i/ E3 A        bufname:=sprint("BF",i);
' U0 e. u' S! E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; E9 |' s( u$ l( u                buf.deleteobject;
        end;
. a  `" ]( N7 a0 c8 n; I8 I        next;
       
        dx:=0;
        dy:=0;
/ w- d+ G2 l. p7 B$ ~) s- {1 u/ p        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 p4 l0 z8 T. v) ?$ M9 f                --mark:=false;
# Q$ m3 B2 l( b2 R1 U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 s; _, R* y2 n" t0 n" d- L, e                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  o( h* g& s$ R' k- z. U0 H                        activityspace[1,rows]:=ct;
1 @" W) a- W. C# p0 l                        mark:=true;
8 e) X) [7 A6 x. f9 |# o                        else*/
                        y_max:=y_max+dy;
+ y1 V/ D$ K/ W& ^                        dx:=0;
9 X: R% _8 [2 c: ~8 @. G                dy:=0;
; w8 `0 }* g9 S5 T( a5 g2 V                        --end;
6 o( Z# T( Z" s/ ]/ R0 a5 c4 M: y8 q                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* ?9 M6 u, L4 ^2 M7 S% n                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! H( |2 T$ ~) y  c            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
! w( ?( F% g5 e! R( I  s5 Q# L                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, D! |3 ~( P9 L. G                        activityspace[1,rows]:=ct;
                        end;*/
3 U7 u2 t- h' w# v        next;
/ y  V- Y- |7 \' i* W" S        y_max:=y_max+dy;
) z) x6 j! j1 [, g3 \' R3 x        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);
; j- c) b2 d- J        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);
2 }) V1 t- a+ m) L4 J2 m8 W       
( H4 o; K& Y1 h: B        rows:=0;
        lines:=0;
4 {+ x& B7 @2 t4 c* T! D6 b. v5 Y        for i:=1 to number_of_machine loop
$ [) X" F/ f1 E+ P                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
* i: R' b5 q9 O$ n! _, y                        else
9 {4 P- n4 u6 K- X' d) L                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( }4 v' s, C( H8 ^/ l7 H4 G- r                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) v" W% t) ~' a  k$ ~; Q9 r. m$ c                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
1 B9 o3 W' N7 o4 ?3 I; X       
9 M- V1 V7 R4 r1 O        lines:=0;
& Y$ v6 m* Q$ p        partstable.delete;
: d; Z1 j% @& D. v5 Q5 C1 \3 Y5 B       
3 B* n$ k5 c0 @: }        for i:=1 to number_of_machine loop
1 N9 n, F8 F$ S2 k# z9 Z, _  |1 S7 C3 ?* r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
  X/ w  {) X: ]# r                for j:=1 to number_of_machine loop
8 ^4 ?. q/ }! B                        if w_from_to_chart[j,rows]>0 then
. B1 ~+ ]+ O/ H! w4 Y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( D& K$ Y0 U# ]- c4 q% D                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 H& \3 o9 n4 y+ H1 L. t                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]);
, o. g: ^& N1 N1 e' E7 I        machine.name:=machinename;标识符未知
- u* S6 Z- ^8 o) p0 s        machine.proctime:=5;
7 E; J& X1 m  `6 Q        machine.label:=activityspace[0,rows];
/ z$ z! a( b' ]! L9 f  i" h7 q        machine.exitctrl:=ref(leave);
  U+ [4 Z" ~* _3 I) M       
8 z4 y! a' I9 u( p6 B' e- M  v        bufname:=sprint("BF",rows);
0 w6 q/ P9 a4 o5 p; E- `; f& i- l2 d& X        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]);
: Q) d2 k' `8 ]        buf.name:=bufname;
0 a4 S8 M% F3 D. ]% N        buf.capacity:=5000;
        buf.proctime:=0;
7 T0 C* U$ [, |. G        .materialflow.connector.connect(buf,machine);
       
8 _# ^) W! U+ D7 e$ p9 d$ ?        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 c. `& z9 f, `) O) ~. j% ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
8 G/ ^: Z8 X  z  k) x2 N" xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
: [# F. }4 H" U  [* s: m  x