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

zooey

is
, F0 k. P# q; j- ~, p1 [        mark:boolean;
' [3 J0 r' F" N( v4 t6 x        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 j/ [, F. W3 v    machinename,bufname:string;
. a& Y2 k& {, t* c$ \7 Z    machine,buf:object;
$ Y+ F. S/ @/ {; N3 K4 E7 fdo
        current.eraselayer(1);
1 f' w6 _# x" J3 a1 L       
" \% E+ O- M5 C        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ A, B+ n& k5 [1 Y  n( B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
: s; H- k6 ~+ b+ O" I                else
                        print"cancel";
; [% e5 Q8 U8 L0 B# p                end;
                eventcontroller.stop;
. g6 p- r" p; J& j        end;
8 G4 a9 ~4 a8 k* M" h; ?) H       
        for i:=1 to number_of_machine loop
( x" B' p: Z) n6 j        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 {1 S% R; J' t# j, {2 ~                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
' A% T4 G, C; N        bufname:=sprint("BF",i);
4 j: A  L+ A3 _. t: n. ^        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ h  f* y3 P% g8 p3 E        end;
# Y  X1 L4 }7 m$ d        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: b# D; ^1 ~  S- h6 q0 r( h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
  Z) P- n" e2 O, _. e+ n5 i0 ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; g9 S6 _+ q# M+ R/ C/ K6 F                        and activityspace[1,rows]<(1.05*y_max) then
* w& m4 k( J, s1 V, j7 d7 _6 m% D                        print activityspace[1,rows],",",activityspace[2,rows];
. N& c% c2 V! ]2 T2 q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 h% j" L, G) d; s( p                        dx:=0;
  p3 e. s: T1 F. y& A9 J* P                dy:=0;
                        --end;
' A5 J* |4 m( O2 D* K1 l                end;
$ C3 d8 ]/ f+ A5 T  S  x. T1 _                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 A# f7 A) N! r9 w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; y* B! L/ b6 Q$ F            if activityspace[2,rows]>dy then
7 ^! k1 Z4 |* j$ v' ~' R                        dy:=activityspace[2,rows];
3 Y4 c9 Z/ V7 A                end;
3 E/ U5 e5 V$ C  a                dx:=dx+activityspace[1,rows];
  A$ U1 R' Y9 U6 y4 ]1 m' H                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
, q  Q* c+ Y7 t. n- `% |6 z        next;
' f7 @4 u- L3 }( _        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);
1 a- {% `, U! S, V; ]6 L$ H        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);
! B3 H! l/ g& w: X) f1 H. a/ j4 C( q       
        rows:=0;
4 y6 v' W  n; m: k  V$ M3 W6 |        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 Q8 w& x* i4 \/ z0 \$ m' z) U+ s                        if j=i then
                                d_from_to_chart[j,i]:=0;
! z- o  i2 f% I) }9 N/ ^                        else
/ e. e; [1 V" M9 J( A  `) V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 l9 A6 h; v0 |1 y! N                                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;
  e6 K2 w# d. L* D- A, |                next;
, r$ }" c6 ?% S4 f        next;
. q2 e7 W$ R/ T5 t       
        lines:=0;
4 Y4 P' k& q3 s" @( t  P        partstable.delete;
       
) L& W  g7 |& g; A) ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 q9 P0 r7 P) k& _! d9 D                for j:=1 to number_of_machine loop
& }/ N9 J4 D& ~5 O7 l; H                        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];
4 K/ N* r& Y: }                        partstable[3,lines]:=sprint("parts");
6 ^+ K5 a6 A+ I4 o. b' A                        partstable[5,lines]:=rows;
4 U+ S% [8 z7 I& c7 C" O1 h                        partstable[6,lines]:=j;
4 B( w+ G0 e/ d* v4 x: c8 t; g/ r                end;
+ Q! H8 x. Q" G# h9 b7 y        next;
; K5 t4 {/ S( N6 b4 `$ X2 d) u% U        machinename:=sprint("M",rows);
( b5 E$ R. z$ Z3 l7 R7 B        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;标识符未知
" G* ?2 n* q$ L& W, J        machine.proctime:=5;
; `; |: {4 _, `6 K  o        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 ?8 x: ]9 a1 ?) E; E; X2 X7 d       
' L: W( F' u. u+ e8 `" p        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;
8 P% V: I5 U4 r* v8 O4 a- m4 c; v        buf.capacity:=5000;
        buf.proctime:=0;
1 ?3 O) N& B, `1 o        .materialflow.connector.connect(buf,machine);
       
/ U  `* P8 Y  p2 k        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) F- u( s: f& Sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 ^: t1 ~* D# N  dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
2 a" U0 D; R' E" X& L