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

zooey

is
7 S% _% P% P/ B7 @$ e) I        mark:boolean;
$ d+ C: ~+ b% ^: c9 M/ U        dx,dy,ct:real;
9 N4 H& P$ ~  S1 [0 _    i,j,rows,lines:integer;
& z7 U- N5 \( \+ _6 r) j' l    machinename,bufname:string;
) m1 N8 i+ @) B% Z  y2 u: U+ [0 G$ f    machine,buf:object;
do
9 J- f8 w8 x! Q6 Z# k- f! Q" U2 p9 ?        current.eraselayer(1);
8 n1 g1 ~1 x1 i# B       
$ F" [% c' V$ G% P        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! P6 d: v" f  x* p% q1 y                when 16 then
- C8 K) q( R# _  O8 F                        print"yes";
  E( L4 G& k2 S; ^8 `9 n9 w                when 32 then
6 D6 s0 M: |7 B4 N. G                        print"no";
3 \) E9 v: E/ s' ]- m) E0 T. w8 y/ _* i                else
                        print"cancel";
                end;
$ }5 b& p) B! V                eventcontroller.stop;
) w4 X, C' n( k1 y- `. M& b3 p2 h        end;
       
        for i:=1 to number_of_machine loop
5 y; }1 F5 F# R1 H        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 t& ~8 r8 _# F; m& U                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
/ _* h2 v, _4 y  E8 m        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 r- A' w& S1 {# c, l) E9 c  _                buf.deleteobject;
        end;
        next;
6 Y: T/ D8 U7 Z. a$ G  J7 Z       
2 c  ]  N5 [  |( ~8 a        dx:=0;
        dy:=0;
, s' A) }0 [4 e0 B( a! K        for i:=1 to number_of_machine loop
# k) _# `# o/ R- e5 A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 L  L/ r& Z) d/ ]# s                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 I+ L/ p  O0 R3 N4 J9 N4 r1 r                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 K2 C" b; _$ t& e+ ^. z( @; n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
( X9 @8 Q6 Z) ]' @0 p                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. n/ C. z! ^0 _) {$ _                        activityspace[1,rows]:=ct;
                        mark:=true;
6 ]$ S& s4 [' w+ P- ^  q                        else*/
; |: @" g6 A& t  S( ?                        y_max:=y_max+dy;
                        dx:=0;
& Y+ H, a# {+ N5 Y' |- O/ U8 V7 i                dy:=0;
4 m- R7 \" H& k                        --end;
                end;
* H, F& p5 \# G                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;
; o, \3 f) {" X$ S  }9 R$ q( m            if activityspace[2,rows]>dy then
% p3 @& a2 _$ k                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
; e4 Q6 d- O  ^3 h) q9 u7 k                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ E7 O6 k: |3 i: I) J. Q* V# }        next;
        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);
3 }, E: D/ X. ~& A) G- g' m# d        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);
3 c6 Y! d- P; B0 j1 _; l( c! r       
& O( q- C0 S- U' h7 U: f  ~# G        rows:=0;
) a) o- u4 K& m        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( G! ^$ r$ q" z; x! a                        if j=i then
: C" w) R7 q- O+ Z0 c) B: q                                d_from_to_chart[j,i]:=0;
& s" s* x; k. k) M2 H                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 j% s5 e7 |) k2 U  g! q" y) s                                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);
. M6 ~; C/ e3 y( [5 Z                        end;
* t# C- e/ \7 q& G$ {! r5 G3 w' Z                next;
" n) N) v: W* a3 s        next;
       
        lines:=0;
        partstable.delete;
       
9 c3 b4 {# H. A/ W+ W  W& Q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- l" G4 W9 u3 F4 \2 R4 ~+ |: e                machinesequence[2,i]:=rows;
1 K  P* s6 W9 Y4 Y- Z: i4 H                for j:=1 to number_of_machine loop
% f8 E( n7 L8 {0 X  Y4 d                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' Y4 e9 w" e# ?, X% _% I7 M4 V                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! R! ]6 ~& i, v. o1 o                        partstable[5,lines]:=rows;
3 o) e- J( O) V" H/ E- V/ p                        partstable[6,lines]:=j;
& j2 d) c, Z+ h: n' M% H                end;
        next;
! J/ H( v( p/ K: l        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]);
) H7 J: w* i8 `4 y+ X$ v        machine.name:=machinename;标识符未知
, e0 N) ?; o4 z# h0 R        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 e, I: y) }% P9 }8 r5 M        machine.exitctrl:=ref(leave);
       
) @; W. e2 _. |: Z! F& p) A: e( V        bufname:=sprint("BF",rows);
0 W3 i, Q) J' G. D7 R        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;
        buf.capacity:=5000;
8 m4 D: v, r4 l) E& Z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, W$ N8 w; O/ f0 W) s       
1 ^! f( V6 {( ~2 h+ s0 R' ?( }, x        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 F5 F2 l$ T$ X# r* Udy:=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);
% P8 U4 V, p+ n3 _; s; e% H) ]3 anext;
end;