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

zooey

is
        mark:boolean;
: g* W# ~! E5 a! @  I: y0 k        dx,dy,ct:real;
    i,j,rows,lines:integer;
2 Z' ]& t& l: q% o    machinename,bufname:string;
8 T, V7 @' a' `0 S  K  q% d    machine,buf:object;
: B/ k  ~# e3 P1 Z( E: _# G8 fdo
% Q( e$ P1 S" U7 ~; |! B$ Z( T2 h        current.eraselayer(1);
3 e$ N+ V" a" U       
        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
& a7 U7 F' N  t& F6 e( ?  L                        print"yes";
- _& K4 q8 r6 B                when 32 then
9 N1 O0 z( S9 D- X4 q                        print"no";
9 ?# H# X; d% q3 B                else
                        print"cancel";
                end;
: K6 s% U8 O4 }" H                eventcontroller.stop;
        end;
. l# ^3 F8 S% w; g       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 S# B" B; i6 `        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 e* P; X% _. k7 y8 O9 U' N& h8 U8 ~                machine.deleteobject;
        end;
  E( c2 [2 [2 ]' m        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 E+ {5 ^3 i6 G5 I4 c  l! j! V                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 `1 S. g% q) t        end;
        next;
, N$ c% C) i% `) ~1 _* T       
        dx:=0;
4 q  p- o9 ]0 m2 R( z9 g4 |        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; [" X* ]" s$ [0 K% A                then
) j4 Z1 J; R: C1 p3 w                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
+ x$ L3 C6 K/ D/ y% ^+ t% M                        activityspace[1,rows]:=ct;
/ k5 |$ t5 |4 j" B; }& h. T" z4 ~5 l                        mark:=true;
                        else*/
3 D  ?0 L7 t5 U9 x4 N                        y_max:=y_max+dy;
4 m# D- ^" {2 p8 A& Q1 j# K: S+ n                        dx:=0;
, J) G2 \+ D0 f' p+ I: l' ~7 f                dy:=0;
                        --end;
                end;
2 v; B& z! ?. y' F                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;
! c/ c) B& v& y9 o" v. Q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
7 h5 m/ J* m4 w; \" y, l" `# u% M/ k                end;
0 @, ^% E' O. {- E                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
& C! l1 J6 d" L0 p                        activityspace[2,rows]:=activityspace[1,rows];
4 b5 y7 B) \) X. W8 e                        activityspace[1,rows]:=ct;
  v  a1 {3 \8 M& Z) s! Z6 S2 ]                        end;*/
        next;
        y_max:=y_max+dy;
9 l% Z+ \* R) I) X. G! J        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);
        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;
- S/ x4 m' P! k7 H5 P        lines:=0;
0 s1 |7 |) u1 n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 E. l$ ~+ [3 [& s                        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];
' X) W  V3 d- |  P                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
$ S5 Y# z' k0 ^- G        next;
       
/ p* Q5 b  e3 r1 b3 {* p4 T        lines:=0;
1 ?2 R' ^/ h4 [. m9 b" D0 J        partstable.delete;
       
        for i:=1 to number_of_machine loop
: k$ R) q" C0 N$ y8 o3 B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
$ Q2 u( J* d% a# U6 n, A                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 {8 h1 o! `: W5 B$ \                        partstable[6,lines]:=j;
                end;
        next;
  q. X# ^+ y5 N- x5 r. i        machinename:=sprint("M",rows);
+ L( }3 r0 J' P+ _        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]);
/ }9 }; N: O" |$ @0 q        machine.name:=machinename;标识符未知
# K, U* e! F  N( M! M$ n* t/ I        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
! `2 W6 y/ D8 ]* \        machine.exitctrl:=ref(leave);
       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
0 l8 |& B3 o* U" m        .materialflow.connector.connect(buf,machine);
( o# r& O6 F4 ~: t       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* {' c$ d, j2 ~1 S: ]: Rdy:=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 S8 U/ m6 X& v& lnext;
end;
2 b& r9 x/ J! y4 }. j2 L