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

zooey

is
        mark:boolean;
9 x0 }; w) |$ {& h# P        dx,dy,ct:real;
/ U6 L( t3 f# Y, z3 L7 f    i,j,rows,lines:integer;
) x* \' h+ Y) k/ c- v0 Q, l+ H    machinename,bufname:string;
    machine,buf:object;
do
1 h( p- o- V, k# o2 H; r        current.eraselayer(1);
       
        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
                        print"yes";
/ |* a% r8 f6 ]                when 32 then
                        print"no";
% l5 Z! r) h# I! H% m, w: N                else
7 v4 L  n8 u$ M& m+ K- u  O2 ]- D                        print"cancel";
                end;
, Z( n9 W; K- G. M. P! L3 y                eventcontroller.stop;
        end;
$ X  P9 o: j, e$ l' ^! W+ _       
        for i:=1 to number_of_machine loop
% i7 H3 {( K; w- \        machinename:=sprint("M",i);
  X! o) i! l: ^, w1 q' w: u        if existsobject(machinename) then
; X, z+ [% f3 i/ t                machine:=str_to_obj(machinename);
. Q1 W6 ]. F; T2 a& n; U, O                machine.deleteobject;
* l! w0 g7 ~$ y% F* v% V0 l1 [2 d        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* l& K% d7 O; v8 o  H        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
5 Y  `+ g6 B/ B+ Y- X% B5 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ z, X: ]: S# O# ], x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( e* E8 ~7 D/ q/ r4 ~                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% N6 S/ @4 r* T: R. e                        and activityspace[1,rows]<(1.05*y_max) then
( x1 g" P" q0 t, u                        print activityspace[1,rows],",",activityspace[2,rows];
7 G& ]3 Z% M8 h( M                        ct:=activityspace[2,rows];
2 N* _  ~& r+ m" \! M) r                        activityspace[2,rows]:=activityspace[1,rows];
; d9 E- c+ n) H! [- @0 m) S8 |5 Q                        activityspace[1,rows]:=ct;
- U, s2 k- o) R# s6 {3 H, l                        mark:=true;
$ s6 y8 B) l; {7 K2 n$ W- ]* H" G9 I                        else*/
                        y_max:=y_max+dy;
9 W# Z  K, z, m. C0 m# g: m                        dx:=0;
                dy:=0;
                        --end;
* _' u/ z& t/ N+ v* v" g& s                end;
% I# }2 `# z2 Z                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; ?$ K% Q/ M( C! o% M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
: G, Y/ p  _# R: }3 O& e                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( H( G: R" E2 D, e                ct:=activityspace[2,rows];
3 K* q. ^2 g4 Q1 i: G                        activityspace[2,rows]:=activityspace[1,rows];
1 y5 L& `$ [$ F' Z1 e+ o5 }) Y- t6 h                        activityspace[1,rows]:=ct;
* I3 M4 E# E! i9 u                        end;*/
        next;
4 O" t/ z: E+ ?0 x( H        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);
        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);
& Y8 @. ]/ {7 \, \7 u       
: B  G: f0 B! h+ X8 z! B        rows:=0;
        lines:=0;
3 }7 o# d9 c" }: \: ~- G        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 z* N0 L( L- Q! Y8 x3 o                        if j=i then
: E! ?" D/ u" U4 Z6 t                                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);
2 _! I$ |6 j; d5 s4 |  S9 S                        end;
( f1 Q8 w4 |) T( H                next;
        next;
       
        lines:=0;
        partstable.delete;
. V* B4 n' h, c  f6 `4 p       
! q' V3 h) \9 C' J! N        for i:=1 to number_of_machine loop
4 u* ]1 O+ F8 A) Y0 L6 T  M6 D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% X9 ~* w; u0 |- _# _                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
$ K, E5 q2 ^2 T, @6 X; R0 M                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ x+ m1 L! o" e: ]( G9 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# j' [/ n2 V  v3 S( p! W. c% f4 t                        partstable[6,lines]:=j;
                end;
        next;
( j( L! A. Q+ P' s' [  w- C  `. R        machinename:=sprint("M",rows);
# C# S/ W: o8 i: d' o        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]);
9 c2 a' f) R) v* J# V, |) D        machine.name:=machinename;标识符未知
        machine.proctime:=5;
' y' b# k& ^* A! K- U2 J# b/ a        machine.label:=activityspace[0,rows];
3 X5 g/ u' C: H3 r7 G! p        machine.exitctrl:=ref(leave);
  E2 ^3 f5 Z7 k       
0 F0 z  A3 p6 s' ]/ j  _1 v: W, \        bufname:=sprint("BF",rows);
) o( ]! ~1 h  {& Q        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 E1 V, q! I# U9 a# \0 Z       
        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;
/ \+ S0 ~5 Z- C- c" M3 Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 r% }/ C' O2 R- k& `next;
end;