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

zooey

is
$ h  c4 D$ X& n8 E        mark:boolean;
6 a* m+ z: }+ u        dx,dy,ct:real;
9 ^: |5 ~( L5 ]5 n& B8 x) x    i,j,rows,lines:integer;
    machinename,bufname:string;
* ~6 o; F- _  [8 m/ g    machine,buf:object;
do
        current.eraselayer(1);
. e9 F. _3 `& t! x) |( q$ T       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ }6 [7 l$ C  {+ M8 i9 S                when 16 then
% H  k& l1 c$ c/ k                        print"yes";
* z% D5 c( c9 g+ u4 ]# T                when 32 then
                        print"no";
! i! o' N7 F) n2 E0 V0 S% B. H                else
$ @5 u3 f9 P7 o  E                        print"cancel";
                end;
8 e+ m; n2 M' `0 s3 U$ O                eventcontroller.stop;
) X' S9 m" v  g, i- [; {* J        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' A% ?" ?' P2 G4 M& C1 Y                machine:=str_to_obj(machinename);
0 x5 T+ w9 W" H( G                machine.deleteobject;
& L+ f* ~- N* ]& M6 ?: E+ c        end;
2 s& c+ S2 \& _4 c5 z* C        bufname:=sprint("BF",i);
6 ^# G" {4 ^' A* a# [9 z1 F        if existsobject(bufname) then
: L/ w( a( |/ @) b3 R  [. S                buf:=str_to_obj(bufname);
+ B8 A; G, E0 z9 x                buf.deleteobject;
5 V: Y4 ~; F; n* X$ a0 h8 t, f2 H        end;
8 X% f7 |" O3 B7 s        next;
       
. b7 u7 D$ O' S% I        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
, r& p2 C$ k4 y. A+ k6 d- ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. E) c" H% m; o% `  w4 E                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  x2 l) V8 M% K- i3 @. `' x  X                then
6 U6 K) O$ ]7 n8 S' s( \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# W# G& U9 g  F2 \* b# T                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% D* H% Y, E9 q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" j5 t( Q- a8 r0 b9 ^2 C& p                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 X! H+ g# e1 d/ J1 F1 }: O0 j                        dx:=0;
* ?+ V$ R" }2 r2 `& G$ [% ~# S                dy:=0;
' V, _+ C9 l8 W                        --end;
( l8 W( r2 h) E- s& q3 M+ U8 S( t                end;
2 L0 e  v5 `+ S6 J; U, U                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' R- o: W  q9 o) @( M5 |                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;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
! P9 T1 I" F( ?3 |& {; E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- L' T% w  L8 V                        end;*/
        next;
" w0 i) W; J8 e% ~& G1 L5 [        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);
$ w% x- I* T$ V% N, A       
        rows:=0;
* L' Q9 e2 A  \  @        lines:=0;
3 H) w  Z& ~$ C( A5 D        for i:=1 to number_of_machine loop
% P) z" y) i9 |( A                for j:=1 to number_of_machine loop
3 r* c$ \( M0 ]. d/ u                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 l  I: W! E& G% ^7 F                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& A; T5 W  u4 C# w# x) G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 I, B5 x5 f' I' x3 m$ Z; m# ~                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
7 ^. s# Y; i0 c' y/ A        lines:=0;
        partstable.delete;
; ?1 W  J/ w6 g9 O6 W  p  H       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. C( o& [5 P+ ]- F% O0 p, X+ u                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 J1 m) {( h8 {2 k6 Z. x. r1 w                        lines:=lines+1;
( i  {4 Q9 _5 n) K6 v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, H- l6 ]# M; V0 T: P                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 P9 o0 ~6 k4 `                        partstable[6,lines]:=j;
                end;
2 N  d/ l; [& H, O        next;
% c. s! r( w, x# j        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]);
5 d3 d/ J3 c: |8 M6 ~8 i+ \! K        machine.name:=machinename;标识符未知
) V6 C& r5 U  x. U6 v/ \& A! t        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
1 I9 n+ O! G# Q9 }        machine.exitctrl:=ref(leave);
       
+ @, ^5 y4 l5 X: w: F        bufname:=sprint("BF",rows);
4 K$ q0 J4 J- r  r        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]);
% d5 x+ l) \% W        buf.name:=bufname;
        buf.capacity:=5000;
; s5 Q( ~* |0 k+ H" r( \2 N. j        buf.proctime:=0;
3 d7 r6 R  E- R! M9 H        .materialflow.connector.connect(buf,machine);
" Z0 _0 ~0 L% k* d  {& }; I       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; K6 e) H. p2 q7 N! B0 G) J  {" ady:=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;
# o& ^& V2 s5 e3 B2 I1 Oend;