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

zooey

is
        mark:boolean;
' @5 m, F, g! D( T2 J+ G        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
1 K; |) v0 Y) X2 [  T- c* k        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";
% X4 ?* `3 S8 p2 ^                when 32 then
                        print"no";
: v% l; ?3 U, G                else
                        print"cancel";
                end;
. ~& @6 C/ Q' ^8 S1 V; F4 l0 M                eventcontroller.stop;
        end;
       
: ?% q  V+ H8 I" d2 ~% w4 ^        for i:=1 to number_of_machine loop
& F# }. o3 X" ^+ l1 l        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- ~, c8 N1 Z! h; ^$ r6 {$ x        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 X8 A: D: w* f; @* Q8 ~                buf.deleteobject;
  Y4 u8 [. R5 T! C6 L6 Q( O        end;
% |5 z/ d/ o+ V" Y8 H; Z* R        next;
       
) q7 X6 L7 K, s        dx:=0;
5 z) J  }# i2 }  l$ ~( b8 `        dy:=0;
        for i:=1 to number_of_machine loop
6 o  _0 E- w, T" Q7 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% ^% S# A" K9 y$ [( k' I( k4 t3 e4 [                --mark:=false;
+ m4 H1 U* M$ e                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
" F6 X2 A) u9 n4 c% s# t- y& S9 h$ p& C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ ~/ u' n/ ^8 f  ]/ r                        and activityspace[1,rows]<(1.05*y_max) then
6 G: j7 S5 x! Z' X4 ]                        print activityspace[1,rows],",",activityspace[2,rows];
+ d# |8 ^3 Y8 q( E/ t/ o                        ct:=activityspace[2,rows];
, K! I8 f% u/ S& k& k1 [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 t# X( y6 Y1 y# g; x                        mark:=true;
4 R0 u3 y. f4 s" L                        else*/
  W: q; ~, M8 n6 m" p! A: G                        y_max:=y_max+dy;
                        dx:=0;
& K# a# f/ F. J, s$ R, {, D                dy:=0;
1 p) J* q! c) A1 X1 i                        --end;
                end;
: r* g! E; r8 I3 G5 R" @                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' _1 [8 _4 O* G" m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 G# u1 H  }9 d* C            if activityspace[2,rows]>dy then
: ?1 u1 D' h+ U0 F  K, h$ ~5 p                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
  k" Z+ F$ R9 s& @2 y  D% U. @1 v                /*if mark=true then
4 w* l5 P! `6 V+ f                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) s; f! g1 w$ \6 K; k$ [3 O                        activityspace[1,rows]:=ct;
                        end;*/
0 S, Y$ X$ X% P        next;
$ _  ~% d+ c/ w. C  i/ w        y_max:=y_max+dy;
2 R  w  a) J# c, f/ E        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);
) Q2 g8 ~) e' {+ J  D9 B       
- Y3 H1 U3 v7 k        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' r4 {' e4 I/ s0 b                        if j=i then
                                d_from_to_chart[j,i]:=0;
" K+ c4 G0 A0 ]                        else
& L2 D# ?3 E5 K* r% L! z& _                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: @/ C: o6 [  g/ p                                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;
                next;
  O% |' N# _$ G. ^- Q: R2 L        next;
/ F$ M% p$ L' q/ a% v2 X       
        lines:=0;
        partstable.delete;
/ J- W* z0 |) h+ o$ x7 K' E       
; k* M# f# `8 k& O0 o! O        for i:=1 to number_of_machine loop
- `% z" W( Y3 M8 \8 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) A  g+ W5 c- u. y                machinesequence[2,i]:=rows;
4 G8 ~7 W0 {4 x! M" h" F* D. C                for j:=1 to number_of_machine loop
                        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];
                        partstable[3,lines]:=sprint("parts");
# R! q3 \, `  Y# w$ w; g% u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: N9 f# z3 s  r9 b                end;
        next;
) h) J2 e5 [. d9 n, Q" p6 [        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]);
, q, @) j4 i- O! N" y9 M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
& D% ]1 u+ m/ C9 ?+ I! S% ^        machine.label:=activityspace[0,rows];
7 o6 F. v4 m$ N' c        machine.exitctrl:=ref(leave);
       
        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]);
& _3 L+ F3 O+ l6 V5 }% {% N6 y1 M3 c        buf.name:=bufname;
3 Y* M% n' c& f2 v) @! ]  e        buf.capacity:=5000;
: p! E. ^7 |) G0 o, D        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% [& H6 L7 v" j# j6 ody:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ f+ |7 @' m  ?, vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! G4 j' ^7 s6 m& Knext;
+ m8 ]+ G8 s* O2 h7 zend;