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

zooey

is
4 @) n) l  t/ E2 q1 x1 |( `        mark:boolean;
" B. e: i: U$ Z5 M        dx,dy,ct:real;
2 a" B* u# Y# s  \6 p! @! w    i,j,rows,lines:integer;
2 t4 m8 Z- w. s  {8 B* r0 ?0 z: \. t    machinename,bufname:string;
( z: ^$ T% L# K, \$ g0 n4 a9 k    machine,buf:object;
do
        current.eraselayer(1);
       
7 G* P" V5 |. A# }4 ~        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
  @4 D5 ^! a8 M# ~1 h9 S                        print"yes";
                when 32 then
, @$ `" W/ ^  A$ |2 e  k                        print"no";
0 i: U7 c) @% h- u0 ~4 F                else
                        print"cancel";
                end;
                eventcontroller.stop;
8 E. e" N: k2 j6 _( ^" n) J! n) B; |+ f        end;
       
- G! r+ \" G' u3 I) S        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 G- J) Z7 y3 ]( J8 {. {, C        if existsobject(machinename) then
( Y' [' G. T) Q$ s8 w+ c( t) B0 ^                machine:=str_to_obj(machinename);
                machine.deleteobject;
; o) {4 m3 w4 l- P. X        end;
        bufname:=sprint("BF",i);
  V' M- d4 f( B* x) E" x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
# [  }* j2 @5 r& \9 D        end;
' c  {6 s& Y# S  o' }        next;
) @. a& _& V: y  A" M+ L( ]       
        dx:=0;
0 {- c2 }, r6 H9 i7 w+ C        dy:=0;
  T! z7 t7 k% W; L) l( X        for i:=1 to number_of_machine loop
" D( g- S+ R3 E: P" g. N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# d+ n: S" g' a9 j: S  G) n                then
5 a/ T% O7 x, T' A& w, p! {: X& K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 I( @1 }- R! [$ S) f; V% Q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
, @* E0 a$ s8 D# ]8 A' O                        ct:=activityspace[2,rows];
0 {7 Y- H; E9 Z$ x, }$ D" g, x                        activityspace[2,rows]:=activityspace[1,rows];
3 @1 q- k- ]7 ?. C0 l                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
7 w; j& X5 z" o' }) D9 a. o, z                dy:=0;
8 t& d; V& X/ C8 k                        --end;
                end;
. L' V* {* ^, n- T2 ~6 T                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- R* z9 U% i$ w! y. ^  \) {2 O4 e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 h' U; P# q+ }" P" ], ?4 K            if activityspace[2,rows]>dy then
# p5 |! X7 ]4 V+ }3 l3 T                        dy:=activityspace[2,rows];
' |6 G+ `9 ~/ `- m! W% ]                end;
& L5 T" r& A9 G' c9 B& v) R- s                dx:=dx+activityspace[1,rows];
6 n# r- [; Z: N                /*if mark=true then
                ct:=activityspace[2,rows];
% X+ z% H0 S- i1 z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. D# E' N6 Z, `' Y9 ^; a                        end;*/
        next;
. ^5 G" B: z- t) t, o        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);
0 y2 ?# |8 _$ Y8 \& }5 s        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);
       
' G3 c8 P* Q0 A6 z% W        rows:=0;
0 e$ t+ R- _  K9 `* |; Z6 o        lines:=0;
' k( {, ~6 }* }/ @- e6 e        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
$ g1 R0 x3 E! x5 B                                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];
! P1 }1 s* N* @6 D- ^                                d_from_to_chart[j,i]:=abs(dx-dy);
8 ?7 ?9 h; Y. H1 h% n( u( [                        end;
                next;
        next;
2 E7 ~' p& k" ?) E       
3 c  ]+ \6 [/ e5 d        lines:=0;
* h3 ^# u- B, c4 n. K4 X        partstable.delete;
) P; p& {+ |' y7 q0 ]       
# o4 E6 P+ H0 e- ^1 s  X        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
' ]( s3 T3 N2 a                        if w_from_to_chart[j,rows]>0 then
: B, J" L# Z$ I4 k                        lines:=lines+1;
; i" y6 K6 {& ]" m7 R- \. v" m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ F& Y8 N4 W- _- Y, R; `                        partstable[3,lines]:=sprint("parts");
+ [0 ^# p# i8 w" [3 D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
1 ~8 u, Z1 b; K  G/ \. a                end;
" C8 E, \: N: u; M) ~        next;
# {5 d9 S4 K# ^) M5 Q) P        machinename:=sprint("M",rows);
* O+ t" ?- m" \# p) P        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]);
7 L6 ~$ A% }% V+ @/ U. D        machine.name:=machinename;标识符未知
4 l+ M1 x, o8 j& W, U% d        machine.proctime:=5;
( E/ h& H7 i3 J% V. e/ U        machine.label:=activityspace[0,rows];
3 x7 ?: q; j3 o! C4 S% O        machine.exitctrl:=ref(leave);
( {6 {6 R4 U6 M% _1 K       
        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]);
/ @, r) u1 o- Z) x        buf.name:=bufname;
        buf.capacity:=5000;
4 t5 c- D+ E7 g% G( J        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. W1 ~" J& G. H. |9 Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
' V" _! }+ Q, V7 u