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

zooey

is
        mark:boolean;
, W5 m% T6 P' D! Q9 h  [( z6 L        dx,dy,ct:real;
1 \! s! \3 z2 w5 T8 Q    i,j,rows,lines:integer;
    machinename,bufname:string;
+ t- O2 U* ?# n6 J$ _    machine,buf:object;
0 X; a. s/ D9 vdo
' z; n- m$ j' w+ p1 N' A        current.eraselayer(1);
6 o/ Q) Q8 I" E. P       
( _2 A4 E+ i# S, n: ]! `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% T8 D* s1 Z7 ~2 Z6 ?. _/ L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
6 a1 o7 i8 O7 ^                when 32 then
' K0 Z$ A# E# m  [# ?6 j5 N5 K                        print"no";
' }1 j# c$ D, ?; b                else
                        print"cancel";
                end;
7 z' w( m5 h* i) g" E                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
% h* v* f# R# P; ~        machinename:=sprint("M",i);
        if existsobject(machinename) then
, C1 C, l2 _) V/ h$ H$ E3 J0 |                machine:=str_to_obj(machinename);
# W6 j5 u. W! @- b! }) U                machine.deleteobject;
, k$ A$ u1 @# x( _, ^! Y        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 Q2 Q- a1 A9 O/ j% ?7 h8 V                buf.deleteobject;
        end;
        next;
1 b, B; @  V8 N6 e% ^       
        dx:=0;
        dy:=0;
  i: j4 z$ q7 R  v0 G, L9 t, O        for i:=1 to number_of_machine loop
, s! k$ f  C5 [* X1 P) }3 U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 X; ]0 O4 h1 r1 Y5 x% a                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; U: g$ ~: i: E  m$ I+ B1 O  {                        print activityspace[1,rows],",",activityspace[2,rows];
# }; h0 w3 e- z, l7 \                        ct:=activityspace[2,rows];
4 }9 v  p! S& \6 z& z! D                        activityspace[2,rows]:=activityspace[1,rows];
, \0 d: h6 D- x- E: G) ?' d4 v* R                        activityspace[1,rows]:=ct;
                        mark:=true;
% _! ]( W! p' t9 D1 R, G                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
* `! P8 u! b" \1 U  t                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;
! r. A$ u+ C+ r/ s8 e! j( z            if activityspace[2,rows]>dy then
$ Z/ P/ B; g$ P                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
" i4 D) m6 c/ H( v- S- J. F: d        y_max:=y_max+dy;
2 E0 ~# ?4 l( l: I) j        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);
+ Y9 W6 ~! O6 c  y" u% ]# |: x        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);
       
3 |6 }2 z$ L3 `' w        rows:=0;
. J! C0 ^6 w6 f) v& u7 w        lines:=0;
' G  c1 @! g3 q1 k% h/ U9 U. I) A        for i:=1 to number_of_machine loop
  h" k9 l1 I+ s2 o  r: w, V0 M2 N                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ n1 o) h% u/ D( @" f                        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];
5 M+ R+ f+ l6 M6 x6 L                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
8 @2 u1 W, x: v! s( Z        next;
       
! \4 ?( u! V" u/ t( n9 R+ d+ o        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
6 P9 ?7 y  z- n) e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& T1 A) @: T2 ~2 r. }7 Y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
9 Z6 }5 S0 O, o! p2 c5 |, a" G2 ]# q                        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];
( L/ S' H' h1 W: |1 E- h: J1 {                        partstable[3,lines]:=sprint("parts");
, ?1 o1 `. _4 r2 |- i8 F                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- R" w$ K0 ~+ ?3 D  w6 I' E                end;
1 ^; [& t) f- A        next;
        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]);
9 `4 o' y3 S# E  {$ |! m; o$ O        machine.name:=machinename;标识符未知
& \' z3 w$ _& `4 O$ ]: C        machine.proctime:=5;
% N+ F; x4 l) H% N) T. E" B        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) F9 {/ x! q' g1 w( P% p       
, d  L, {9 w' \  d5 b  M1 B9 U3 Z        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]);
" t/ E# E! T0 |3 f& w# ]        buf.name:=bufname;
        buf.capacity:=5000;
: \+ g- t, y$ C! t5 t  b        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;
4 q# j5 V5 J+ m0 |5 |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;
* T' o3 ~, J8 T9 F- f7 n  U) Nend;
+ f. g+ C3 D! `' A3 |) {& A