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

zooey

is
" o- o( V+ P( H' ]5 ]        mark:boolean;
        dx,dy,ct:real;
/ v: p) o6 ], ~2 [+ a  A) O5 ]    i,j,rows,lines:integer;
( p" c9 `" w$ p& t    machinename,bufname:string;
    machine,buf:object;
do
2 e- d" f, N8 L' K& k; p+ T        current.eraselayer(1);
. x" a. @8 O% f: z$ u       
+ n( l2 Q% C. F5 W0 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& X/ j( ?5 a( A5 E3 Z4 d2 s; |                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
/ F( X1 o. q9 [$ T+ S                when 32 then
* L/ l+ `6 a( ~                        print"no";
' a  U3 N' \* w5 t1 O" C3 ?                else
                        print"cancel";
% T! V$ p6 S  {9 `& e7 W                end;
                eventcontroller.stop;
8 @* `$ u* S) @0 P8 J) ^( ^6 h' E0 ^        end;
* W+ ?$ }3 T% u  `- P       
7 `0 M$ z7 i6 i! ]" Y        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 u8 }' M# i. ^                machine.deleteobject;
& r7 I3 I4 U* `        end;
1 O! S! Q- {5 G; v9 m        bufname:=sprint("BF",i);
6 W7 b& W1 d/ l' d        if existsobject(bufname) then
' P8 Z2 r3 R' ]% `8 O: z& n                buf:=str_to_obj(bufname);
9 a0 @& D, t* o  n                buf.deleteobject;
0 {, l; J$ y, ?- Q! `2 Q0 k        end;
! G  o9 x, B& o4 D. B1 V        next;
       
        dx:=0;
        dy:=0;
7 w) r6 C0 T1 f, t% {' F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 U1 O: g: h/ Z" S5 n                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 w3 ]4 w& l* C/ i& g1 D                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 Q+ _# O3 N3 s9 c5 \; x7 X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
- r" a; h( ]1 c, J$ b$ O' R2 j5 ?                        else*/
                        y_max:=y_max+dy;
9 ~3 i8 P  L, D3 }& v: Y5 p                        dx:=0;
- M) K& U+ d# r- y- s9 `                dy:=0;
8 _, f0 R/ F1 G# k# K" k                        --end;
6 {; b4 P9 n0 l4 C; O                end;
9 j% W& `. }' H% x/ Q                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;
            if activityspace[2,rows]>dy then
* I1 g/ t5 f# G( j! D8 x& n                        dy:=activityspace[2,rows];
                end;
8 q! z4 ~! N, R/ g0 v                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 m  D5 f  B5 T, M3 K                        activityspace[1,rows]:=ct;
                        end;*/
# J, [0 y( X- A8 p0 `% r# E  G        next;
        y_max:=y_max+dy;
" m; ]6 E$ x! W* S( {% O% e4 O        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);
7 D0 |5 p/ N* w) O# Q' u; t       
; U$ @9 U+ g% g( x5 \% O        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
  z& z! K& g4 S5 w7 r: J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 ?0 J+ i/ y) `                                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;
  {! N1 c/ L' ?5 y' D                next;
        next;
       
* ^7 l& z1 A/ d! U9 B; ~        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
, W: Y1 c2 [' V) T+ S$ i9 a5 @" H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% I1 M+ I. u) B2 u                machinesequence[2,i]:=rows;
8 s9 m! s6 Y/ \% m% {% @4 z7 W                for j:=1 to number_of_machine loop
* \8 o' K6 Z( |$ u                        if w_from_to_chart[j,rows]>0 then
( U# D1 M& }) f" u                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" h% Q6 h% \$ w6 h# |! b6 h                        partstable[2,lines]:=w_from_to_chart[j,rows];
& y/ Q4 c4 O1 n, i                        partstable[3,lines]:=sprint("parts");
6 j8 c* L4 ~% @* c" u8 T1 _                        partstable[5,lines]:=rows;
: _- S6 f8 {3 d                        partstable[6,lines]:=j;
0 P5 J7 M0 l$ S, ]. q! \* t* G% w                end;
        next;
' M0 D6 k: h4 f0 z! @0 Z        machinename:=sprint("M",rows);
! l: T1 `/ r" z, r8 C# u" J: V/ t; l        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]);
$ n+ E( P$ H( o# F: M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
; f* ]- G$ P5 t        machine.label:=activityspace[0,rows];
6 M3 t5 l6 |) q: ~' n        machine.exitctrl:=ref(leave);
       
% y4 U3 o0 K5 y2 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;
        buf.capacity:=5000;
( Y& R! `0 r, b' I        buf.proctime:=0;
' {  ]% K, R2 z! S3 a. E0 j        .materialflow.connector.connect(buf,machine);
9 ?2 |6 M2 {1 q3 Y0 q0 w% o) V$ M       
8 u% b2 p( L6 p3 B, W5 j' a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 S3 b. ~9 d- d  L3 v. Wdy:=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);
1 Z3 _- `# t/ |$ pnext;
( c7 e% O- z2 n3 J. H% Mend;
8 z  C& v6 U6 u: J; a- U