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

zooey

is
3 T0 ^2 l# _$ g+ q' x0 ?0 E        mark:boolean;
) g/ a0 H! g5 L1 f& G  s        dx,dy,ct:real;
: W. ~) O, q" _/ C+ D    i,j,rows,lines:integer;
, @& f# b5 _" o5 B    machinename,bufname:string;
    machine,buf:object;
$ [& |# K/ i6 J- B9 Ydo
" m3 C; g) `9 `# k+ e0 h: B6 v3 m        current.eraselayer(1);
       
2 G" Q9 ]  c9 B8 P4 v5 Y  ?( d        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* F% c* j) j: u. w2 s0 [* X& D                when 16 then
                        print"yes";
. \* v: M$ W5 b$ \) q                when 32 then
/ I: D+ D5 S* ~) P8 M                        print"no";
                else
" Y  L& @# v" y- _0 B9 M: u                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
0 A4 f7 J1 X2 k- c        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& e' ?# F! u! S3 c9 B                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 q  U' ~" W( v! k  ]& X  z7 k        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ ~, F: a2 S7 Z5 V5 ~                buf.deleteobject;
. z/ Z5 t( x: y5 V5 V        end;
) {# @- W% T. G        next;
( J6 l: q  p/ u* g+ n' f4 x  b$ d       
+ ?1 V/ |* ]) B  U$ o  q& L% m7 G        dx:=0;
9 {; }/ D: \3 j( K$ N4 u: H2 K5 }8 k        dy:=0;
4 D  K0 D: M) L4 |) J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 a6 I0 e7 H1 ]( I! x6 T                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! q; r1 L7 s, }3 @9 W                        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];
1 `+ M1 t/ A. v: X' u                        activityspace[1,rows]:=ct;
8 E+ o3 l  l, @- Z9 v( o2 ~/ w; h                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, p+ i. {& Q+ K! J3 }% I+ w                        dx:=0;
                dy:=0;
                        --end;
, a* Q, f0 D( e7 W! \/ ~8 u$ q                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;
; E/ G- T# s6 s0 `* p  Z            if activityspace[2,rows]>dy then
1 m9 q) K1 E8 G& E: v                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
2 K" P$ ]% z6 f3 R                /*if mark=true then
5 x( w* `2 h. ?4 v& i0 a8 \                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" U3 w# O) s6 S: b* V                        activityspace[1,rows]:=ct;
+ e: z( G5 V4 m7 P1 \, E                        end;*/
0 _# s; {9 L/ w$ U7 U* [: _# f        next;
* K/ ?$ W) C/ }/ {" H4 E        y_max:=y_max+dy;
3 {7 L/ e4 e% C1 r) z& _+ 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);
) Y: G( x( k7 Y7 i- n7 e& A        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);
. X( Q8 D5 H) ]7 [4 L       
/ [1 ]1 m2 G' x+ G( T8 t2 f        rows:=0;
) z; {' T& L7 c: X) T2 f$ G- E1 C        lines:=0;
# D* \9 d4 c% n$ E0 e        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
. [* Y* x! t  T- e0 |7 e/ Y  q3 x                                d_from_to_chart[j,i]:=0;
* }8 g5 S! x8 t( B. c  \5 `3 p; O                        else
& E9 _7 D1 [' m( Q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: w* H/ j# E6 Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
! N+ b" t% x% T1 F                                d_from_to_chart[j,i]:=abs(dx-dy);
1 ]0 b9 y9 k. |3 d- r, c1 z: N( }                        end;
                next;
        next;
2 l" d' m4 S* ?  b% }7 [       
        lines:=0;
6 p3 C: n, a% G- \* l/ n        partstable.delete;
       
+ v/ t* O+ r4 |        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; T0 L  Y% |) c/ v6 k4 }                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. \/ M# H+ B6 K# ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
# H6 q" z/ s& T& l6 U, m6 {1 k, _                        partstable[3,lines]:=sprint("parts");
0 Y# }4 g. L( y, R6 f* _0 e; g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
, d, J  }( G8 k! l! W% W        machinename:=sprint("M",rows);
1 X4 f7 ]+ |7 t: K4 q3 R        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;标识符未知
, L6 b& Q9 o, U, D        machine.proctime:=5;
# i1 k  O1 k( b1 g8 W4 l        machine.label:=activityspace[0,rows];
" V' [% c1 N3 j/ O( |  |        machine.exitctrl:=ref(leave);
/ ^( Z' S( S2 {5 r/ M& 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]);
        buf.name:=bufname;
2 e0 ]! E5 O7 C/ F" b$ e        buf.capacity:=5000;
8 D& s/ K2 \5 A& z* a, V* \6 m        buf.proctime:=0;
, z3 Y2 F! O* F( }" u# O/ L0 d        .materialflow.connector.connect(buf,machine);
6 V( y/ r; J2 j1 `, r  S+ a       
        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;
4 q/ s: [- t5 a9 y* i7 Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;