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

zooey

is
! j3 ~; Y# v+ r5 d        mark:boolean;
        dx,dy,ct:real;
4 C! j. O+ P& K: q& Z6 M+ s  b    i,j,rows,lines:integer;
+ B5 t- B, ~. _; ~- B9 e    machinename,bufname:string;
    machine,buf:object;
do
+ B- m+ v, q2 S7 Q        current.eraselayer(1);
       
/ e9 I, q# t# l        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; k$ L* d! `  v' i6 `                inspect messagebox("设施数目不对！请核查...,",50,13)
$ j" ^: K! p9 M) T4 z& ^                when 16 then
                        print"yes";
                when 32 then
' T5 |% d7 b4 S3 P/ W                        print"no";
) b% o! O- [+ q. ^7 Z8 P                else
                        print"cancel";
/ D! K9 }" R/ Y+ P6 F" j. S                end;
4 a$ F; s9 U4 y/ w% N4 l: h                eventcontroller.stop;
  A: G, q7 k; C0 Z        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) |  e" e9 t( ~% S) t* o        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
# n7 C/ T! h# Q$ G& P# D        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
. h  _9 j  O* s3 A1 m        next;
8 O# [8 F: i3 W+ l       
8 \" ?4 I3 Z3 y, R) h        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- ^8 S: C1 F% l0 D                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* |& o  a/ p8 @( f: G: Z  X/ g# }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# z( L3 Q% _( C( r                        and activityspace[1,rows]<(1.05*y_max) then
$ E, a! v+ [3 n                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 L7 y# H0 l/ L9 q1 W                        activityspace[2,rows]:=activityspace[1,rows];
+ r" P% X  X5 E: v2 B* u                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
9 j" e/ S, Y+ w, z5 l, p8 Z; m* c0 E                        y_max:=y_max+dy;
: m3 g& o4 Q+ o; Q2 T                        dx:=0;
                dy:=0;
# f# d, H% d! y& m; q/ Z2 l$ q                        --end;
# K( Z" n$ r" d% _                end;
$ u3 ]/ _! e7 X# P8 [                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;
6 _( i; M3 c1 B+ _- p) L( Z            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
! s" `6 K% U% r3 i. S                end;
9 |! E$ \5 v6 |2 k7 S* s3 Y                dx:=dx+activityspace[1,rows];
1 m* [& [: ?) Y: @. U) Q                /*if mark=true then
$ a7 n$ [$ J7 Z: }. t                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 g, u/ H/ f, b                        activityspace[1,rows]:=ct;
                        end;*/
- H; T/ z1 R7 l0 C) }4 N: U        next;
        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 c8 _/ N' M6 R: Y2 p1 r5 J        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);
- L' ?& b! K2 C4 G6 [4 a       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
. O1 ~; W8 s' M: r$ w                for j:=1 to number_of_machine loop
                        if j=i then
9 ]) X/ j5 s; ^2 P, E                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; ^+ ?/ B( q8 }" c) X) f+ B$ B7 h3 k8 o                                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);
                        end;
                next;
        next;
* O( d# K# n2 r       
        lines:=0;
        partstable.delete;
       
# Z2 N; P; m' w2 A% c. _        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 C/ A" S# P" ?; ?$ `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 ]0 C) g* o! M  v& `2 K, ^                        lines:=lines+1;
2 s4 t3 g. x- ^. n/ ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
: D9 a9 }9 L; i2 @7 ?' c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
2 M9 Y7 N5 H  h7 z8 Z* B% n7 }+ k        machinename:=sprint("M",rows);
& }  l3 O5 Y$ p/ q" D        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;标识符未知
1 H2 B. ]( L4 x$ P+ H1 h" o        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
7 C) T/ c7 J7 l: e& @        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]);
4 s! k9 Z& C- T! Q! A        buf.name:=bufname;
        buf.capacity:=5000;
0 ~) c1 E2 J1 {5 S, H/ J0 M        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 N$ T* o. ]3 L$ s5 r' [5 O. k       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; e% A" H' k6 Cdy:=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;
end;
+ Y: m# Q; f2 e# ~/ b