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

zooey

is
+ X* j! ?% ]1 A2 _        mark:boolean;
* b2 ~$ i' w" R) V+ m. |, y7 m        dx,dy,ct:real;
6 T7 j1 k5 Q! p1 }6 D    i,j,rows,lines:integer;
3 t# R7 P' e, [- x% B. W    machinename,bufname:string;
    machine,buf:object;
) B  Y4 t1 B- }" Ado
2 c% |9 i$ ~! L7 m. j. M* u; ^        current.eraselayer(1);
* F+ [2 {& R$ k7 a1 K4 j( A# o# T- c. P       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) Z8 j, u4 s! P% [                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" Y1 V8 n# j! {% o$ O                        print"yes";
, ~+ t/ `( A! j+ ~5 a5 z                when 32 then
1 a" z, z* L  ]3 x1 [) M, X' Y                        print"no";
                else
* p: b* d0 l: F- k; h                        print"cancel";
                end;
                eventcontroller.stop;
# ^& V6 N, r  D, G' o5 z0 g' T        end;
       
3 C3 m' l% J! P        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# w: w3 w' s! k, i; S2 [        if existsobject(machinename) then
: r" s/ G* {& o                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& `9 ?" @+ d% T$ q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
  D! \# X4 n  E, G9 C5 Y        end;
2 {# {  u4 X$ C; X: h        next;
5 _  E' a  o+ d$ U       
        dx:=0;
+ m: N9 Z, j% G& Z        dy:=0;
        for i:=1 to number_of_machine loop
: u: ~" e" y9 }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 R  L9 C' V7 P4 c8 q- @                        print activityspace[1,rows],",",activityspace[2,rows];
5 r6 Q0 n. M* [, w* Z( J                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
8 {1 B: w! ]1 r4 z% t. r                        else*/
                        y_max:=y_max+dy;
6 G4 P  y: j& G% j% w: t                        dx:=0;
                dy:=0;
                        --end;
" Y' j4 T5 ?1 R. Y/ T                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! D2 B, \8 M4 A7 }6 y9 Z                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];
' ~! x  m3 ]4 o. M2 `- a( Z                end;
$ ]- g7 @* y! r                dx:=dx+activityspace[1,rows];
, ?4 A2 ~% l) C/ v9 t4 m/ [* u                /*if mark=true then
% L7 q9 G, h& w. ^$ N. P- h  y                ct:=activityspace[2,rows];
! l7 e% C- F' n- q+ O  X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
+ @' T" h3 \) _: Y4 x        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);
5 p  g9 |4 e0 g0 e2 {! h% I       
        rows:=0;
        lines:=0;
$ s7 r9 `; R& \$ R        for i:=1 to number_of_machine loop
7 O* H- b( M1 ^/ T                for j:=1 to number_of_machine loop
: T/ ~$ A1 h! @" M                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
) V7 K- j) W% U/ l8 c6 ^. g" T0 j                                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);
                        end;
                next;
3 K, c6 w) H: h' E0 }1 @        next;
+ m2 Y2 T; F# k# Z4 e5 b       
3 c& n+ n; B* j$ V! o        lines:=0;
, ]* d1 [: W; }3 I7 J0 r1 H        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- g" D, S5 o2 G" I0 G. @' @7 @  ?8 H                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# w* Q. f: N" c1 U3 @' z6 s( d: ~1 S; W                        if w_from_to_chart[j,rows]>0 then
& W6 ?' m  e& r0 E7 z$ T                        lines:=lines+1;
9 q) G. R. m  e8 l/ e7 [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ z4 x1 A- B8 j3 v: U  M" G$ V                        partstable[3,lines]:=sprint("parts");
3 Z9 Q* e) x: d' W5 g                        partstable[5,lines]:=rows;
4 t( @% ^( D1 N4 P- ]" f                        partstable[6,lines]:=j;
                end;
        next;
1 k  g! N. h+ x- U        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]);
        machine.name:=machinename;标识符未知
. U8 O% u6 f" v; u8 \4 R- V0 T+ v        machine.proctime:=5;
9 {* K! z2 v4 O9 p. D# K8 a5 B        machine.label:=activityspace[0,rows];
# a) K; n6 T  ]. i+ a# J        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
7 W, M! ^% Z7 X$ D/ m        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]);
4 _3 I6 B% {) \* n3 _% s        buf.name:=bufname;
$ S" m" s* I! y/ L        buf.capacity:=5000;
        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;
# k3 [2 }; p# _' a- W5 j# `# udy:=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;
+ |: q0 ?# Y- z$ Qend;