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

zooey

is
, V8 |% a# i+ ~0 U5 t  y        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
1 P6 D: E+ y" e- }: i       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, Z* x5 P5 L4 z                when 16 then
                        print"yes";
- X; j# ~% h8 ^$ Q1 R                when 32 then
                        print"no";
. {- ?- P  Z# ^9 |. J1 N/ ?                else
) L9 ?5 |% o" [/ J3 w( o# g: i                        print"cancel";
4 \. ^# Y( ?0 Y                end;
4 D  A# g3 P* r8 X                eventcontroller.stop;
        end;
& c9 R4 {" A! A/ c       
+ ~: y1 Y' {: J( t/ X7 _# Z        for i:=1 to number_of_machine loop
+ Y: g: }- f" }0 N) G; z2 b( |        machinename:=sprint("M",i);
9 j. s& y1 J8 x. j0 W0 d* L1 Q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# L4 _- C; z. j) Q                machine.deleteobject;
: c* {8 K; f  S  Q        end;
. n* b3 k2 U: b5 H( Z        bufname:=sprint("BF",i);
# A$ `# v5 I, z) B        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 c. K7 e+ ?$ x3 Q        end;
        next;
       
        dx:=0;
% e% q) {1 L9 B% ?        dy:=0;
        for i:=1 to number_of_machine loop
1 I0 X) u& V" Z* _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 \% z5 t$ v' p                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
                        ct:=activityspace[2,rows];
! g' v. o. S' U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
- [& I* R3 \. J; c) I+ M6 m                dy:=0;
                        --end;
5 W$ h% L" V% Z+ {8 M. G                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
5 o- m  g$ g/ d3 ^9 y+ r# O  x1 Z- i                dx:=dx+activityspace[1,rows];
5 l. n# O' J# o                /*if mark=true then
& q3 |  C9 U. x% {/ k" S                ct:=activityspace[2,rows];
* C9 X0 W) z% u- O: S7 g$ C                        activityspace[2,rows]:=activityspace[1,rows];
* S- N  M' l0 M. [7 H                        activityspace[1,rows]:=ct;
                        end;*/
        next;
# a$ w4 _' d# z+ c3 J3 Z- k        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);
" t! D  X* F- I4 K, M; W6 K# ^        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);
       
; R3 L& b: Y; c: R3 k  x        rows:=0;
$ y  W  W6 K) i( Q2 k        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% j8 `% D" ~+ e: W5 \: y                                d_from_to_chart[j,i]:=0;
; \9 _9 ~, C' T1 K                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 C. ?) J5 _8 G$ w( V# T; E+ V- v                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# a5 G. D/ H6 g# ^                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
4 C/ g: ?/ K% b6 z4 ?6 S                next;
        next;
5 Z& g) K$ N. t, w7 H! M       
& Z: c) X! m, L2 e3 L% ^7 ?3 d8 j2 j        lines:=0;
- O2 m5 G2 T8 F0 S! C9 P        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ Z& ]& z  {( L2 C9 z' Z                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"));
4 @# }. v7 J/ K, ~$ H! L                        partstable[2,lines]:=w_from_to_chart[j,rows];
  P' t' W( P! ]4 _/ N# D/ G* {/ n6 g/ k- ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 K( Y: u% u" G/ [( r                end;
+ [* G4 J6 |) p8 {) [7 Y- w        next;
, T* M! W  C, B  Y        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;
4 E) S7 l1 J$ i3 C. G& i        machine.label:=activityspace[0,rows];
. ~" b' L$ Y% g5 m8 v' t        machine.exitctrl:=ref(leave);
       
* e* a" K& @' I        bufname:=sprint("BF",rows);
' L) e9 N1 B( H1 M% {; f; {        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;
        buf.capacity:=5000;
. X0 t: R. ^$ z3 N3 G. x        buf.proctime:=0;
% o) ^! u0 n% P! q3 `! j: H8 Z        .materialflow.connector.connect(buf,machine);
6 g4 D- J+ X/ q+ `3 Q# y$ u. J       
        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);
2 s" \/ W7 d% R' N7 U% Bnext;
end;
# Y- t6 f# r% q( ?- P