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

zooey

is
# W5 x% h* u- M! Q$ j6 B; d        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
  l/ @. j4 K  p% Q    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* q( x& s" N0 m/ A* W                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
' W* X  k/ R# Z" G" H& C                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
) }8 Q3 c# `# y1 z$ b        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
- \0 `8 y0 l; b" u! Z' _9 W                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 K# v+ L# G' W3 Q& V+ d  Z$ j        bufname:=sprint("BF",i);
6 G) z5 p" Z  v3 ?2 M        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 k/ S" c, G+ D; f0 y8 {6 q                buf.deleteobject;
# t9 e+ v: j5 o2 @9 d        end;
/ y3 \1 H# V) m        next;
0 m7 Q% ?7 b5 D       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
2 W' F# l/ v2 j* k/ Y& G                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 X/ p; j6 b/ U, v9 k                then
2 W  @7 ~% V3 |* O6 o- S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 y/ _, |% E8 m! t6 M- m, j                        print activityspace[1,rows],",",activityspace[2,rows];
9 s7 m7 u: m& }$ g: k7 J* O                        ct:=activityspace[2,rows];
( {* _# V3 T) o2 k2 e) v                        activityspace[2,rows]:=activityspace[1,rows];
7 ~( _4 u" L2 [6 O  l, v                        activityspace[1,rows]:=ct;
9 @1 R2 ?, n! H                        mark:=true;
* `5 m: I) }" j  D7 ?  r+ G                        else*/
; s4 g! c4 e' f$ s6 q                        y_max:=y_max+dy;
- _4 H6 h: i. ]) T                        dx:=0;
                dy:=0;
                        --end;
, p. ^6 X& w) R8 N7 V* G                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ X0 [7 D. X3 d8 t" H( q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# }2 J( Q+ N. u- s; j7 z            if activityspace[2,rows]>dy then
2 |+ l% X% ?3 [, X                        dy:=activityspace[2,rows];
" d& j  ^' `8 J                end;
                dx:=dx+activityspace[1,rows];
2 e# S, ~' v% X+ `8 {                /*if mark=true then
                ct:=activityspace[2,rows];
# y$ B( Y, N' z3 U( T8 d) e$ q8 U& G/ x                        activityspace[2,rows]:=activityspace[1,rows];
0 z% \6 {! ?6 q, O+ k% k% c. W$ ?                        activityspace[1,rows]:=ct;
                        end;*/
6 l9 m. i4 z5 K' Q        next;
3 H7 Z+ ~  g' S( r! a7 T        y_max:=y_max+dy;
( w8 Q2 |/ B& k7 d4 |        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);
6 d+ ?8 q1 C/ k  m, f1 q       
        rows:=0;
  q! M5 u# s9 R* @! l0 |( e% x        lines:=0;
2 P; r* k9 P1 _- }/ M; b9 X- \        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; p4 a/ a, v0 p0 k* |/ U( m. a                        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];
0 o1 g" U! i" g                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 M& }3 G$ M0 c+ C2 }                                d_from_to_chart[j,i]:=abs(dx-dy);
3 }1 T9 G9 F! s8 u" v                        end;
" i  {+ J# k3 m9 ?! e+ A4 D                next;
        next;
- y' h& n" \9 G8 q       
        lines:=0;
4 c1 Y4 x8 ^2 d5 J0 n        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, B; C# F+ F8 T0 {5 K  H2 u                for j:=1 to number_of_machine loop
1 N8 h* B! V. T/ \9 x9 b4 `                        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];
1 H) u7 p+ ~( O' Z                        partstable[3,lines]:=sprint("parts");
  Q8 a" e9 F$ r8 h0 a: d0 b6 N                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
/ n$ E1 @; @) w9 w5 ?, c! \! Q        machinename:=sprint("M",rows);
# v9 }5 m/ X; G1 x6 a7 T        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]);
- F* U% e- e4 O( \6 x8 b        machine.name:=machinename;标识符未知
7 W2 \2 D+ A( d' x' r  q/ A0 |# }        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
+ q! Y# z8 \( E6 s; d9 P       
        bufname:=sprint("BF",rows);
4 ?' w: g- K! M! F9 U8 E        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;
0 a7 i( q# j/ m! G        buf.capacity:=5000;
3 K) _( p; t* g* j: {. h1 |, J9 @        buf.proctime:=0;
# q# l8 M5 Z- z# {$ u8 R9 _        .materialflow.connector.connect(buf,machine);
* m) D8 d, h7 n       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
( e5 O) f- E* ]& Z- }