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

zooey

is
. ?9 [- L& G9 j7 \# J        mark:boolean;
        dx,dy,ct:real;
% k8 e' t- H/ _3 a    i,j,rows,lines:integer;
8 d3 w7 q3 [4 k' e$ Q    machinename,bufname:string;
    machine,buf:object;
3 S: ?; ~5 i$ L/ a2 Mdo
        current.eraselayer(1);
       
9 a$ ], E2 l- W! s; M* M" e4 `7 S        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ J( d- N' s( F. n4 }                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
' {. [$ p& r9 N2 ]8 C2 w                end;
' q8 ]' A: M8 t                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
9 s3 u( ?+ @- |! H        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
% c6 \1 i8 Q9 k6 y; ^* ]. M        end;
4 D3 I' F* E% c1 |. _- @        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
8 c! D& C/ o8 ~+ {* W' |        end;
2 j- r+ J! v( w/ i/ C# f5 @        next;
+ k$ z1 ^2 L5 U% u  G       
# p/ h" g' f4 _* e7 e        dx:=0;
6 U: [+ P9 |* ]' [: W        dy:=0;
2 e9 }+ w, ^% f& w7 Z        for i:=1 to number_of_machine loop
+ a& ^! T6 n2 @6 _. \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# t. P9 \6 k4 Z* [$ a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 l  k" O* l9 h4 m3 |- k7 ?! F2 Z4 L( g1 f                then
; f* [& t, A' B3 @' p' C' U1 V                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& D! @; ^& g: u. }7 I6 V$ f) I                        ct:=activityspace[2,rows];
7 O6 r- I1 P% n9 v" a                        activityspace[2,rows]:=activityspace[1,rows];
) F( V( S8 X+ C; m0 t( U! w1 ?( n                        activityspace[1,rows]:=ct;
' V: U0 d9 m2 d) O3 e                        mark:=true;
                        else*/
) p- @1 F. W8 z7 p) c+ \                        y_max:=y_max+dy;
                        dx:=0;
; I, z# [: \0 t7 ~& h                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 E7 R/ R- a1 \( }9 n- P            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
' c8 C/ _! Q1 _' |1 }                end;
( h; c( D. ~- j5 p4 Y) v                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* W7 U7 @  ^$ S0 [6 d                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
' M/ m: l8 G  M9 [        next;
* [! D4 x  v8 M/ I" A7 w! Y' H' I% D        y_max:=y_max+dy;
( ?8 G! `3 Q+ f6 {5 u' r  s3 E" B        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);
* ~. p! h" F# y. i" p# `/ Q2 o        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);
       
        rows:=0;
6 A2 u8 q3 V' h1 n( z  P        lines:=0;
        for i:=1 to number_of_machine loop
7 |7 L0 I# @! t- ]0 \                for j:=1 to number_of_machine loop
                        if j=i then
  z3 P8 T+ j3 t4 d                                d_from_to_chart[j,i]:=0;
! ~1 w+ N! g3 N9 k/ E                        else
                                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];
2 h  D# r! z1 K7 A) _9 M                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 T8 [  E3 ~2 E& `, v( }                next;
        next;
% K0 T( m  j& f1 F       
        lines:=0;
        partstable.delete;
' `: C7 B* o: @* }9 T       
  |2 A6 G* \9 t0 r  G# d; u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ V( T6 m- Q  c' t. D, ^8 N" t( `1 n                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- n% I# s- c# s/ c' U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 A9 v) m0 ~0 Q: h* Y) G9 ~$ p7 q0 k                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- k5 }# H% t( ?' O/ V: y$ _% |                        partstable[6,lines]:=j;
                end;
2 v: u# X! d; `1 s. _: _        next;
        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;标识符未知
        machine.proctime:=5;
( `; D4 {# W6 U4 t- B9 e        machine.label:=activityspace[0,rows];
! s2 u1 r% N7 Z4 p4 C% a        machine.exitctrl:=ref(leave);
2 a+ J8 c, e) ^" B( W       
        bufname:=sprint("BF",rows);
6 v* g3 }9 Q  j2 Z        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;
- u2 P- D7 A. l% s/ w! G        buf.capacity:=5000;
- }# P: I5 t8 b( j        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 \+ e( M8 a- ]$ P+ g1 _9 F' s       
        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;
% j' a# w1 B" G6 k7 ~* T% Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;