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

zooey

is
% F& g8 B" j& Y: l  r7 N        mark:boolean;
5 T  n+ A; E) Y) h5 J        dx,dy,ct:real;
! @* s; L: J4 f    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
; @: ~0 m5 o5 U8 {( n4 E       
% A& I, a/ I/ K2 ^5 y- d- L/ I$ Y) Y        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
, t& x, Z9 f4 |                        print"yes";
                when 32 then
, K7 Q9 b2 @5 s  ^+ W( o1 K                        print"no";
                else
1 z8 p" i9 c2 H( f                        print"cancel";
                end;
+ Q5 J4 f& H6 e8 X6 c3 E$ T0 L- g4 |                eventcontroller.stop;
        end;
* x" D, {; [2 I+ q" F       
        for i:=1 to number_of_machine loop
) }: D/ N' u5 v        machinename:=sprint("M",i);
4 G" c' k; h& E" C        if existsobject(machinename) then
/ z0 ]$ _9 n) A, N. H                machine:=str_to_obj(machinename);
1 n- ]& K1 D' b* g                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
8 D. y6 t2 X% Y! r. C+ J- X4 P& P/ k  s        end;
        next;
/ T# l, M2 {* ^5 v       
: t5 i+ x. l) c# ?& p/ d        dx:=0;
2 b2 \3 I! N# y        dy:=0;
. g$ i9 C5 c0 _/ l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; X1 r7 W5 G& V5 P" r( X                --mark:=false;
3 n; g) U* u' }                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# D+ H0 P) p$ X4 W+ o- O. Z                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' I6 {5 A& g& y: n! P                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
8 ^' h; p0 O2 ?# d5 P5 s4 w                        --end;
                end;
  Q% o, P- f5 c                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;
/ G6 g& u8 ?- y8 H            if activityspace[2,rows]>dy then
$ r2 v. k) {8 m+ }6 W$ h                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 J9 a4 `" [5 U( s                ct:=activityspace[2,rows];
" `9 y, H0 O& z+ n" J                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- w9 C- R; s$ [& v) F        next;
        y_max:=y_max+dy;
* j/ |) d$ ~% X2 y- T3 s        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
  X9 r7 ]* ^- k* O( q& K4 }, Q                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        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];
8 g% s3 @. y$ D. [0 Y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
& \" `" S: n5 N                next;
; X0 H* i* j) H, O        next;
4 _5 _/ u/ S! }) u       
        lines:=0;
7 p- E6 I1 a$ q- B        partstable.delete;
       
) b9 q& s7 r7 r7 i3 m, J" K4 c        for i:=1 to number_of_machine loop
. ]2 f5 J0 }) ]2 w' U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, N+ _% T9 F+ }2 h5 c                machinesequence[2,i]:=rows;
) x+ A( I% v& b/ w. F# M4 h                for j:=1 to number_of_machine loop
6 u" R( V! @! ], ~2 m0 u+ N                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
0 l5 J( d7 g# V- A8 b% z9 [1 F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- T' c. w$ C& o2 z+ R) K                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 s( w% }$ i( U9 i0 N# q                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: c6 m8 V2 P% E: A8 |& P& `                end;
        next;
        machinename:=sprint("M",rows);
, t  i! V# d" e+ Y) l, q        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]);
4 y3 b) G7 W/ L9 f9 m        machine.name:=machinename;标识符未知
4 j3 u+ ~% V( ^5 m, i  r        machine.proctime:=5;
6 s5 l) |! a$ t# r' Y& |4 R* ^: ]- Y- q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
2 c! [0 b; W1 A        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]);
7 o+ X( a) v4 j0 k        buf.name:=bufname;
# s' f1 H3 B0 }        buf.capacity:=5000;
2 o0 |0 N% H) T        buf.proctime:=0;
. j, Q9 {! h, W. X4 l" B        .materialflow.connector.connect(buf,machine);
       
( T, w, e+ ?! @( Z' K8 q6 u  ^        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# x  g5 k# H0 k3 i1 F! sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
7 s6 r$ U$ [3 K2 ~0 Zend;
4 U+ N/ d% I1 E+ x