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

zooey

is
# m0 j2 R% x; E+ `9 F! g+ ^        mark:boolean;
- Q+ F+ n. E, f$ Z/ P- l& ~3 G% o- r        dx,dy,ct:real;
/ R: R3 f, h* s  b" l% b; r9 D    i,j,rows,lines:integer;
$ ?  X6 \7 k% g; i    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
2 _/ X  j( g7 R7 K; f2 u       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 k0 a% k6 [* P* j4 }! |4 R                inspect messagebox("设施数目不对！请核查...,",50,13)
! T7 |8 C: \  Y3 u! v& h2 ?                when 16 then
9 n1 ^& r- [. K& G3 M* B. F                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
& u) E: }) A# ]                end;
                eventcontroller.stop;
1 g: I6 q2 p7 }, Y! }( Z        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  X5 C' O% V6 Y+ A1 T+ _4 C& F        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 }) {+ G8 g$ ^' ?        end;
% t$ o, ]& M1 `* H6 t3 V$ L        bufname:=sprint("BF",i);
: o8 v% [' D6 Q0 A) S+ d: t. m, z% o4 G        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
, }" c7 m5 H2 p& \' s5 a3 F1 h        next;
       
) V3 |$ z) ]7 L5 R( _$ \: h        dx:=0;
        dy:=0;
, S. G3 q! x9 q5 N% N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- V. l- y" V' T$ x                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- Y2 s/ c& S7 F  H+ @                then
+ r# J6 ?, e' @0 u                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 i+ g, J# G7 F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
8 X3 e; U, \- X                        ct:=activityspace[2,rows];
* y* a; F6 `/ h8 {! d/ K- V' y6 w                        activityspace[2,rows]:=activityspace[1,rows];
% X$ |: f/ a6 o                        activityspace[1,rows]:=ct;
) p' o) U! h6 f9 ]( Y! W( K                        mark:=true;
                        else*/
( _# f' O* _- [" I1 t3 h                        y_max:=y_max+dy;
                        dx:=0;
8 V, \6 [0 t) o                dy:=0;
                        --end;
                end;
- m) }+ \3 T. }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 _) S8 n* H' _- H                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& U2 `6 G4 e5 g( ^, C( _: c, @# }            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
8 q1 @* ]$ \# q, ]4 S                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ T3 L# e* q& {* d5 E( e                        end;*/
1 i; |0 p. l% K2 W! O- P        next;
        y_max:=y_max+dy;
2 L. c) G$ r+ N7 X* d7 _        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 \3 d9 ~; G# \% z; e+ ^/ S8 n        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;
7 ?& k- k- P' L1 _3 y        lines:=0;
4 G" E6 U9 q0 P. Y        for i:=1 to number_of_machine loop
" X: i* ^' m% W2 r                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
0 L. N% Q6 T& Z1 H7 _- z  x0 W                        end;
                next;
        next;
       
: t5 t1 W' M+ O( o1 i% \0 L        lines:=0;
        partstable.delete;
       
9 Q8 k+ Z: I# @: F        for i:=1 to number_of_machine loop
/ _3 j7 j4 g, q  h7 H% _( X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, x1 O  y# B+ d5 g                        if w_from_to_chart[j,rows]>0 then
6 O4 ?. \6 y8 B4 z$ C3 N                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ s& X0 R: E* X! \+ Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
% R5 X5 S+ J3 [' k5 c                        partstable[3,lines]:=sprint("parts");
! y7 x2 S: z- c6 {' R' a                        partstable[5,lines]:=rows;
3 H; T' O; n, ?% b5 i" S( i! `2 x5 ~  i                        partstable[6,lines]:=j;
0 ?2 o1 O) m) r/ Q( W/ ^0 ]9 t                end;
        next;
* f" u. D9 {9 L1 w& Y        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
. ]/ x# i. V( a* P' R        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
6 t9 w2 g: @; g, z4 G/ t2 w        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;
; y2 H$ _6 J: b" y9 I# k  V/ e        buf.capacity:=5000;
9 l* P& ]  ~# D        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& B9 p) V7 e& z) t       
( a# Q& A# B* v* `, B& x        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;
; }" `! P7 f6 S* d6 bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
0 F' ^$ S; S9 o5 _