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

zooey

is
1 g, A+ z5 ^0 G% @4 ^+ j0 t+ a        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
0 F6 i/ I( ^7 C. b% gdo
$ T1 X+ i' v8 Z7 y4 u9 ?3 h' O5 ?        current.eraselayer(1);
' h" S; m  v- w! I6 _       
5 W5 G8 r) z0 y; y3 s+ c4 ^+ X        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 Y& B* ~* J! `1 b0 Z7 }                inspect messagebox("设施数目不对！请核查...,",50,13)
3 H" k) ]1 o9 P3 N/ a                when 16 then
) y3 d5 S9 G+ ?8 }3 v2 }2 N6 z1 A                        print"yes";
8 J2 ]6 S7 W8 f' J& E! W8 {                when 32 then
                        print"no";
9 U7 r3 b2 V- p6 R% |6 I, K$ P& h2 c                else
4 g' w. r/ Q! P( ?                        print"cancel";
                end;
                eventcontroller.stop;
" o! u" A7 j0 U7 m        end;
       
  `  @7 v6 @4 f5 ]' M( ^, _# x        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
" |1 N* U0 L1 P2 z, v2 {1 [                machine.deleteobject;
/ ^: h0 J  w* ]; Y        end;
        bufname:=sprint("BF",i);
  C8 F" H+ l8 u3 _% J* o        if existsobject(bufname) then
$ F' k2 }# Z+ n' t5 i1 L2 y' c9 r                buf:=str_to_obj(bufname);
+ F  P- c. {/ t' ?( X' c4 R  G! e                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 L9 v- Z" F) R& {, D9 A4 `! ~! x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ P' I. k9 g/ F4 A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ D" Q; ]9 D8 X. q% E! U9 J- `                        print activityspace[1,rows],",",activityspace[2,rows];
8 u; t  D0 Y* }( Z4 B% m/ z  d2 v  U                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 v- u% U9 B1 S                        activityspace[1,rows]:=ct;
                        mark:=true;
, w( d2 b  T* I1 ^# g" a& d9 E, u- z                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
& e1 @/ z1 Y& A' o1 O                        --end;
# N3 ]; e% d! Q4 S. D! P; b: w: v                end;
( z# m9 v- K2 A& g. W: y: z  M                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
% o( o* c* S$ p( ~( U                dx:=dx+activityspace[1,rows];
& N8 a. w$ m9 I, ?( D% j; g                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 A% L  P; I5 n3 U4 U0 e4 l                        end;*/
        next;
( v7 q% Z) d. P9 ?* n        y_max:=y_max+dy;
) V6 U( f3 q# o* W! H2 i% z        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);
9 O8 v$ E' a8 d        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;
        lines:=0;
1 T7 ]2 m: m( }/ l% P+ e1 k1 c        for i:=1 to number_of_machine loop
/ j4 R& [# K. ~8 @6 a5 R                for j:=1 to number_of_machine loop
3 P) z3 ?3 W  u8 I" K5 Z* d8 U# [! z                        if j=i then
3 A% P9 X/ h& ]/ J& A# E( a7 O# s1 a                                d_from_to_chart[j,i]:=0;
! h* D; ?# s. ?$ K4 g7 S$ E3 R" V                        else
! \9 {7 s/ r# O  v                                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];
* ?) x: L, O. M" i# ]6 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
2 [; i5 K  X% q3 h3 H' C2 V# s                        end;
6 P. I# k5 C' [) d0 c$ y$ F$ z                next;
        next;
       
' ^$ T$ u+ ?$ e/ b- `        lines:=0;
3 A# W0 X; `0 L4 ~8 [        partstable.delete;
+ u7 k& M; @* o& b! J4 a; |+ K; Q       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  Z) v3 Y( k) Z7 x& _                machinesequence[2,i]:=rows;
0 G' G5 X% w  Y3 A                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- Y, e3 H- t5 R7 N7 @4 D0 W, J0 z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. ?" C$ e/ V) Z: k! v3 y9 L                        partstable[5,lines]:=rows;
! r! R+ P1 S0 e                        partstable[6,lines]:=j;
& M2 V; n) ?8 V" p- D! O                end;
        next;
        machinename:=sprint("M",rows);
4 m9 V" X2 P& E, N- I  U- `        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]);
& s, r. c7 m7 {: x( j  z+ W        machine.name:=machinename;标识符未知
- _2 H) Q$ h: v: x        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: _3 r( ^) O& C# c& @1 ]: L        machine.exitctrl:=ref(leave);
6 V) r6 Y, Z( Q/ U  U' B0 c       
        bufname:=sprint("BF",rows);
1 I1 v: c' ~# F/ M' i6 W% i5 X        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]);
3 B7 {. h4 L) i. L, Q! M) P7 @        buf.name:=bufname;
) M0 z' F2 w9 f& f- Q3 @        buf.capacity:=5000;
8 l1 s/ E2 Q- k' l. n( q; h        buf.proctime:=0;
$ K8 _& W4 Q0 i$ o        .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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
/ N7 @' l$ K. `4 t8 u0 `end;