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

zooey

is
, K. I- x' \1 b5 R        mark:boolean;
9 M- B1 r- F4 S        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
( x/ w" E$ N3 c+ l; e# ~$ P7 g) Edo
* l: R. k% P" U" V5 b& r/ V        current.eraselayer(1);
9 j9 V' f7 @, W* _; O# ^       
; w$ n8 n+ ]7 z! J: o- F+ j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 v$ b7 E4 {5 ]4 U# o4 b                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" r$ X4 c8 d! Z1 m! N# U( P                        print"yes";
                when 32 then
) b; G: h: i# i) S5 I                        print"no";
                else
( |9 ~4 o% S2 k7 M+ Y& S8 E/ E                        print"cancel";
                end;
0 N2 _6 H" u* ^% O8 K                eventcontroller.stop;
        end;
- @: e# r, v' o+ P8 E' v       
- g1 \- J: z3 b* A+ w: w5 n        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 [9 x) p) M9 v; O/ a5 g. q        if existsobject(machinename) then
5 h% r$ w) U  O, H0 f                machine:=str_to_obj(machinename);
; B7 u7 A& s8 @$ q! [6 `8 U                machine.deleteobject;
% E. N" w1 A3 S" }) U" g        end;
# U' y- a( ]$ H5 O- Z) c        bufname:=sprint("BF",i);
" i* @9 K8 F$ x9 o        if existsobject(bufname) then
, R: [, F1 M, c0 g                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
' ?( s3 G: i5 ~, A: x0 g# z       
        dx:=0;
        dy:=0;
& {( r0 J, h9 o8 g9 ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& `9 P2 x' z8 ]% N- V                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* N. G, ]# V2 B! K                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 F; {1 |5 \5 Q  y* S5 H/ V9 Y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" C5 r7 ~1 A; M0 U3 n                        activityspace[1,rows]:=ct;
                        mark:=true;
; E+ t) H: N6 p3 T0 p2 R                        else*/
! P5 R$ Q& ]" D# e! [9 L' n1 C                        y_max:=y_max+dy;
                        dx:=0;
' [+ i" |! z5 x7 a* S  u& H! I! H                dy:=0;
' h8 e" G& o( v6 k' M1 Y: n( H4 ~                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
/ @! z: R+ t1 z6 i. V. t, Y7 p                end;
                dx:=dx+activityspace[1,rows];
: W) Q( ]- C% }0 z5 E8 V$ d                /*if mark=true then
( a4 |; P8 T: X0 `8 P                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; D3 t1 W" G: e6 O                        activityspace[1,rows]:=ct;
9 ]" e7 L: S! @5 \" t                        end;*/
) g9 D5 I& F& [2 x        next;
* f! o1 {; X# g7 P' i& S        y_max:=y_max+dy;
; t. F, o, M% B6 Z5 U- f        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);
/ x  `3 m) x* ?  [        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);
8 Z8 t' J: k: X- q6 E, Y  G       
        rows:=0;
% j0 N) J* A' C5 U$ S1 w5 [        lines:=0;
        for i:=1 to number_of_machine loop
/ x1 ~% ]$ p" U8 |                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 Z$ d6 L# N7 X' c& Y! [                        else
                                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];
3 n& I6 \+ t  T" V5 B                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
6 C7 c% }2 C( M, L. f) j- Y% P) ]        next;
       
( g/ `1 f. n' o$ j+ T+ W3 V        lines:=0;
4 Y: w5 d7 U  K3 ]- N8 g        partstable.delete;
) d/ W' j# ^! Z8 S       
        for i:=1 to number_of_machine loop
, W+ k. Y+ _9 v+ y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" m( }* ^6 W7 z; S1 u# ~                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- d2 G. n( R# S0 D                        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];
                        partstable[3,lines]:=sprint("parts");
7 l0 K7 h+ U* |# |5 R- r! e& H% Z                        partstable[5,lines]:=rows;
1 i# x; |+ E1 Z$ Y" h                        partstable[6,lines]:=j;
                end;
" K6 u! I+ @9 c0 m5 ~9 e- t        next;
3 w& c. ~0 s& R- C' D& W        machinename:=sprint("M",rows);
: ~1 ]2 {1 ^9 a& L- C6 K0 f        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;标识符未知
        machine.proctime:=5;
/ g/ q/ l8 N( B1 }) g6 Y! r# w        machine.label:=activityspace[0,rows];
! V2 ^4 N% t) u0 O+ H, O1 P) m        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
: k# V5 Q, x: }! F6 z7 L        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]);
) w' \4 A5 ^0 O        buf.name:=bufname;
        buf.capacity:=5000;
: G9 x+ M8 @* l! ]! E+ T& e) R        buf.proctime:=0;
2 K8 X+ O4 s6 m3 ]& `" g; t5 ?7 {        .materialflow.connector.connect(buf,machine);
& t" `' G. _4 Y) k; @       
" _/ j8 m2 g' j        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;
1 `, z$ f9 I+ _( H& m) K- |; Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ R+ w* w" _* M' w& n4 Y+ tnext;
. J8 T0 ~* l# N. q- |" l0 Hend;