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

zooey

is
; S( {3 F- J3 x* w+ V        mark:boolean;
2 `$ a. F' t9 W; M        dx,dy,ct:real;
7 B) {3 m7 j+ D- k    i,j,rows,lines:integer;
9 n3 t5 N% o7 u: [3 ^    machinename,bufname:string;
    machine,buf:object;
( Z6 x! T5 z: ?$ w2 Q' k' y3 ]6 Ido
        current.eraselayer(1);
2 v% E; `7 [# @: H" [       
. i9 \1 ]* Q7 i: x/ [: B        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( z: P, @4 i+ |8 H6 [                when 16 then
                        print"yes";
                when 32 then
6 z" h7 L* f" G  ]+ Y                        print"no";
" W. q- H/ @1 I2 G+ [* s0 r6 G. B; P                else
* \6 e% R  [& u( F* `: b$ w% G                        print"cancel";
                end;
+ h% t* b/ z7 V/ [* N1 s! B, [5 M' c8 _                eventcontroller.stop;
* T* C# f5 i3 w" l6 _        end;
       
        for i:=1 to number_of_machine loop
% T% E  X$ U3 i# f7 p$ t7 J        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, l7 c2 T% s2 O1 J% f+ y$ z  m# }: u8 T( d        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& [5 r. B7 \5 `& P1 W2 @( \# g4 R                buf:=str_to_obj(bufname);
% F- l% y# O5 g                buf.deleteobject;
2 O0 u+ t8 e. L        end;
        next;
9 X7 N5 ?  m0 _' S" J' S       
& k! T/ n+ E7 @1 w9 ?4 q. Y. W8 C        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
9 t/ g0 ^9 i+ J9 a5 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 y* I6 j- Y+ \4 D9 t                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];
" ~  R& t# |8 X3 N  h" G5 ]                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ L4 R& k3 x! ]5 a! P' B" l                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
  u  e% K$ W" [                dy:=0;
- a1 J7 w! ~2 ^. W  J                        --end;
( f5 A6 N! q/ G1 I" F$ y& }0 r: K& ?                end;
" f5 i" `4 l# o4 g0 G. N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% ^6 U; ~- T& ?5 b" ?6 O8 F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 T  Y3 u3 o6 y; i3 t% p            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 q: S/ n1 w% g( D6 P+ `/ ^                end;
1 E% A+ _3 D6 P4 I$ h                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ K( w, r8 y4 M2 E4 L9 Q                ct:=activityspace[2,rows];
; N6 ^1 }6 }. V: y, W3 Z                        activityspace[2,rows]:=activityspace[1,rows];
9 `: _% w/ B' _$ F# K                        activityspace[1,rows]:=ct;
$ |0 F. A3 r  a/ \+ j- ?2 H                        end;*/
        next;
5 V" r7 Q" L& [/ }1 X5 F: @' Z1 B0 W        y_max:=y_max+dy;
! a' e$ v. \; H' w0 F0 c  I6 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);
* e8 }2 T& m  f1 b* s  _! x       
        rows:=0;
        lines:=0;
5 W( R; O* Q/ V, u4 \+ V        for i:=1 to number_of_machine loop
( K3 ], `0 m! q9 v; [/ v( o                for j:=1 to number_of_machine loop
# ~/ _. d# _% A1 @& \  F& w& y                        if j=i then
) m; @$ n: n; h& u. w# z& S                                d_from_to_chart[j,i]:=0;
                        else
! ]6 z: K7 }+ C7 B- |$ F8 u                                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];
4 d6 @' b& I  ^- B: ^& i                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
: h" r4 a; W* ]                next;
        next;
       
9 _* }/ T" D, P& z+ X+ e# o        lines:=0;
1 {: g; a+ E8 U/ [/ h1 A        partstable.delete;
       
        for i:=1 to number_of_machine loop
- p& |- O2 E8 c5 m( R* s* `7 @  V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' V. h$ X: B; z; i1 c2 h* [, f                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
6 _1 {' n& ~" L* V( l3 F' i' [) F                        lines:=lines+1;
9 P, S0 k2 _: p. H2 Y  P- H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  k. o% G" n9 W9 C3 |9 _# F0 l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 D7 J1 e" q6 [, B8 k7 h/ i- h: P                end;
        next;
        machinename:=sprint("M",rows);
( S/ r( O6 }1 O% V2 O# J/ @        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]);
, b$ S6 r5 ?! }' q' s0 ?- Z4 r        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 |0 O; p  Z% ?* K$ ]% c3 s* Q        machine.exitctrl:=ref(leave);
" Q! r  S& P! i) B. ]: W# V4 Y       
        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]);
( b  I! |+ a8 V( e        buf.name:=bufname;
; E) |  ]% ^, M. `5 }  H! Y' D7 W2 E- I        buf.capacity:=5000;
        buf.proctime:=0;
/ F& u: j3 L' S& }. P8 f; j# \        .materialflow.connector.connect(buf,machine);
+ n, ]$ A1 t( ~4 P4 {- }       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 c$ _7 B6 A* z" F4 |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);
5 s& S) `4 `% d- N1 pnext;
# v" i! d2 V! Y: e7 C6 Zend;
# k) K  p1 [1 e( v3 h% b; F, I2 x