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

zooey

is
( a# P3 H8 o% |% F7 I        mark:boolean;
4 r3 m' C" ^; V# [" g        dx,dy,ct:real;
    i,j,rows,lines:integer;
! W' ~* `6 _  J% O8 p' r    machinename,bufname:string;
% F3 A& M& h1 P9 e! P- L0 t    machine,buf:object;
' a% k% V# K" xdo
        current.eraselayer(1);
; n! P" u) ~3 Y5 O4 s       
+ k" `; H" r" f% g        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
                        print"yes";
                when 32 then
5 E$ s$ q' ~5 r& o" w+ I2 ~) }                        print"no";
                else
4 N- e9 L* Q4 I/ d9 v! v# a                        print"cancel";
+ h2 o" P: B3 S2 y0 b2 w                end;
                eventcontroller.stop;
; r/ R) \0 p! Y- ^; p* H6 \2 C& r        end;
1 N( a+ m& d( q# d. ?; G       
. S! A$ p5 ~# ?, A        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# S5 N% ^- W) d) F. R6 B) ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 c9 k' ~6 M$ R- p$ e# Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 c/ b* y. n! [/ o                buf.deleteobject;
        end;
        next;
- z' o; q0 {6 n% E       
3 ?5 I6 Z7 d9 ?. i        dx:=0;
, t; K5 j" k" N/ V- C0 x5 g        dy:=0;
        for i:=1 to number_of_machine loop
5 b! s* e& p. T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, |( U" a  B% h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ U7 Z% \# A# _1 f                then
: E) [1 q7 X: z0 i5 h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 q% l8 `# E- Q. C  D+ p: U( f                        print activityspace[1,rows],",",activityspace[2,rows];
3 R% \; @% K7 ^  o# m- J                        ct:=activityspace[2,rows];
" O/ a& x7 a, d' t) l1 C* D$ q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
7 z1 v" q/ P0 D* A' x, T( V3 d" x                        else*/
7 E7 X. n* I! `0 b6 F3 i                        y_max:=y_max+dy;
6 d) K9 ^+ P0 O* E3 D* N2 G                        dx:=0;
1 _& I1 y) n) A( o. o: H% t                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 ^9 l+ y& f3 h                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" G& g% i" I. L. ?) i9 M6 Q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* F7 P1 n  E" Q" P& O1 F! {                end;
                dx:=dx+activityspace[1,rows];
1 W) F# O" f* i  T0 e                /*if mark=true then
                ct:=activityspace[2,rows];
* h0 _3 p! @% S                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. d2 Q) {8 i8 t+ p                        end;*/
4 |& R8 s3 M0 \  l0 g( [        next;
& }* ?+ s5 k  B% B        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);
/ b7 T8 o/ x' X6 q. J       
        rows:=0;
. R5 _; z( F' x% i( F, {6 ]) V        lines:=0;
7 E$ m7 n4 H7 \0 q* D" i        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' a) f7 f4 i" F7 G% U' O                        if j=i then
$ _: p- z2 k) ^) l                                d_from_to_chart[j,i]:=0;
! g$ t! `3 y; E4 G& x3 J6 [0 {) L- x                        else
/ U" ?6 p2 C4 J" e$ n  _                                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);
6 b4 ^  ]) M/ H2 y" ?. [                        end;
0 F2 Z$ r( R% F! N                next;
        next;
6 _5 N3 L3 W7 F  q0 `- `/ t       
. @0 B$ A! Y! t+ S        lines:=0;
$ j  D) b5 w: |9 G* p; L8 ~: m        partstable.delete;
$ C+ Y7 ]8 [$ d8 g6 B       
        for i:=1 to number_of_machine loop
" f5 ~" X7 s, C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
! g3 }; r& t9 y0 f, A3 e# f, m7 Y                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 O& d1 k+ Z6 t                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 U: u$ ~0 ?& ^, x+ V, k                        partstable[2,lines]:=w_from_to_chart[j,rows];
' |4 G' q0 F8 I; Y) C' |+ y+ ^                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 }/ W; R" V- R9 b- B                        partstable[6,lines]:=j;
5 ^) Y2 M0 v; s% C3 q" `2 l                end;
        next;
3 h% a7 ^$ F3 W7 i; Y- r" B& |        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]);
4 S& U: @" x) M) E# I, D1 s        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ P3 F2 g" t4 f/ G9 ~) _  X: y        machine.label:=activityspace[0,rows];
) z5 W- O7 t# {( J        machine.exitctrl:=ref(leave);
0 x( a( [% `! h5 _       
        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]);
        buf.name:=bufname;
) V3 c2 @0 W4 C, ]        buf.capacity:=5000;
        buf.proctime:=0;
+ y7 F0 p$ r! I! g; V% N0 R- l        .materialflow.connector.connect(buf,machine);
. y: E% Y, b: A, b* x       
, d4 x+ {% |% J$ U9 C        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 p( Z' T! D" m- D9 a* `, idy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, F* c( n- V) Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
/ F% r# |4 y$ Y& @9 Hend;