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

zooey

is
        mark:boolean;
" Q) _; y1 ]. @7 F0 M; }, b7 _& D        dx,dy,ct:real;
6 L1 q& \( o, ]    i,j,rows,lines:integer;
2 K1 M' \" Z: C7 [) d; U' z3 n, q    machinename,bufname:string;
  o; `  C( @+ h5 H    machine,buf:object;
do
        current.eraselayer(1);
       
( J2 S: k" d, g: C1 o" W, ~        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
                        print"no";
1 u/ [( m: V; S                else
8 C0 `1 Y, H5 H                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
: h5 q: G9 b: I) A9 D        for i:=1 to number_of_machine loop
5 n  y1 }6 z: U2 g, W        machinename:=sprint("M",i);
        if existsobject(machinename) then
: P/ `3 v# X) X$ w% Q( k  J0 H                machine:=str_to_obj(machinename);
                machine.deleteobject;
' x" l- [; f+ }2 t& n$ ~        end;
7 E# \9 \5 \" W        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 v& F1 t  ?! _! }& m: O                buf:=str_to_obj(bufname);
                buf.deleteobject;
% f# U5 F3 y  s3 W! g8 X4 R        end;
6 @8 s+ ?8 N8 S. X7 t5 v! ]3 \        next;
3 @( X8 V8 W, F! I       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ j  d1 C) X# n- t$ O' U                --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]
( ?1 z& G+ o0 J( c. G                        and activityspace[1,rows]<(1.05*y_max) then
; G) _! c& A. P+ w4 m4 g' n. I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) X- m1 W% C$ r) `                        activityspace[2,rows]:=activityspace[1,rows];
6 ^  f9 l4 V! {. B  W                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
& J: H7 s( |( M* F                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
0 U& }* S. p4 r$ n                        --end;
                end;
( F2 E& T; U* V0 P% [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 z) Q4 Y' N( ]+ s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 ^9 T4 L, ~4 j+ U- n) [            if activityspace[2,rows]>dy then
1 A+ ^) B; o- E                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 {9 d* p, B% {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ z  k2 B4 ]$ I9 m) c- b1 n# Z3 L                        end;*/
0 C0 n' d6 j) Z        next;
& K; Y5 s3 f+ H, Z: k1 |        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);
) q" d- y+ q  W/ j! E        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);
       
7 L" {3 k, ?3 |& Q' L" p        rows:=0;
        lines:=0;
5 z1 m) M4 o/ L        for i:=1 to number_of_machine loop
; y0 M: o9 P( m7 \2 B7 d                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' Q, P3 L* R4 Y) G' R7 _  V                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' X3 h- O# ]5 p; v0 i2 w9 T, v                                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);
2 n+ U% t% ]' t& H5 \6 P- W                        end;
                next;
        next;
; t2 d  [1 G" i5 Y$ B) U1 e       
$ o8 ^" ]( p% F- [& d. |        lines:=0;
& n* G& M8 }  B; L* o        partstable.delete;
/ ]2 z6 d3 T" x       
) t1 t6 q" D( I, O8 U        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
                        if w_from_to_chart[j,rows]>0 then
. \0 v0 R: V- y! I                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 E9 W. g3 P2 x' G7 p3 ~- q: v                        partstable[3,lines]:=sprint("parts");
8 X& J3 Z6 }* k7 T, v  x. n                        partstable[5,lines]:=rows;
4 J) u( n4 y5 W4 N' v                        partstable[6,lines]:=j;
+ D2 c# ]% h" U3 O( y* w/ \                end;
7 H% B8 z; }9 o' ]/ V1 V( S$ y        next;
" ^3 E& }3 J) D; W& N" W7 v        machinename:=sprint("M",rows);
: C  x' E( x' F- y        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]);
8 ?4 j9 s; t8 X6 d6 `* j; Q& w7 f        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 a$ T4 z! s! X       
) v1 @, I7 b- ^5 i3 k! x1 Z        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]);
: z# X3 r) M" X8 K2 ~% h        buf.name:=bufname;
3 X2 r0 G1 J+ b: ^5 Q) Z& D- G- @        buf.capacity:=5000;
2 H% U& y' H0 E: S+ ^        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;
$ L; A; s# a/ m  K7 Z! b% k) Q% Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 J+ H7 _7 f8 t2 T7 Y9 Uend;