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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
+ `6 k& s, o8 _. M7 |0 r    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 ~* I! f1 n4 k3 D4 C: q# |; e5 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
2 n! L  o! c* l$ {# L, Q' V                        print"cancel";
% s/ ]. {. {- Q+ W1 D# O6 [) P                end;
                eventcontroller.stop;
" }$ G# k) S# E0 A        end;
       
        for i:=1 to number_of_machine loop
$ |8 ^7 K/ c  h5 }' @8 `        machinename:=sprint("M",i);
5 |' ?6 h. h5 Z. K* P        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 L8 [/ h6 a. f, k+ [                machine.deleteobject;
+ h7 `  M- Z7 ?1 u& _; _& m4 D5 e        end;
        bufname:=sprint("BF",i);
1 a# X6 O8 Y8 O) K8 u        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ d8 b; y' k: O6 S                buf.deleteobject;
0 g$ y8 p& s' h) e7 w        end;
        next;
) _, }0 F- ?% m, u- s; s5 X% u$ u       
$ y8 A- n( k) B0 s2 V$ g8 v9 y        dx:=0;
3 a/ f: R% K7 r- n! P1 L% `- a        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]类型不匹配
                then
& C: z% ~& s, {; q9 f1 Y                        /*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];
' O9 u" J4 p3 L( V3 J                        ct:=activityspace[2,rows];
$ v6 F- g1 i" f" k2 \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 ^- Y5 S- s1 M% w4 x) Z                        else*/
4 ?, y1 U; b+ l7 ?                        y_max:=y_max+dy;
                        dx:=0;
, {0 }! _! I5 g. Z9 O                dy:=0;
                        --end;
                end;
4 h" [: l0 Z6 H; A5 U: `                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ A; x- C6 N9 H4 G% @+ m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
9 Q/ e9 I2 x7 ?* k. Z9 t& G                        dy:=activityspace[2,rows];
( v- y! \  Q% w' e                end;
1 Z5 i5 F" [# y! Y- s: Z3 H6 ~* M                dx:=dx+activityspace[1,rows];
( C  |$ J0 F% U" t2 _                /*if mark=true then
* Q) p% }! l8 Z                ct:=activityspace[2,rows];
! L9 p. V; }; z' y: i: s7 u9 B                        activityspace[2,rows]:=activityspace[1,rows];
6 ^* F" w" ?8 N                        activityspace[1,rows]:=ct;
7 Z/ F: T5 O6 h$ e% C& [  C" F$ `                        end;*/
) s5 s6 f9 j2 a* a; A. l) d' L        next;
4 @; G& u4 `$ o5 h* U& E        y_max:=y_max+dy;
& `/ g# X0 G! T' A$ E! K        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);
* E, k1 k, D3 ]+ F/ w        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);
$ g2 p# Q. A* J/ X       
        rows:=0;
% T2 v0 ^/ [" R! u        lines:=0;
4 |! H6 \# h& x) A        for i:=1 to number_of_machine loop
3 Q4 M/ M! b9 x1 R: i: J4 c4 ]                for j:=1 to number_of_machine loop
$ W# ?  T- u. K                        if j=i then
                                d_from_to_chart[j,i]:=0;
% I% D4 E9 z  r. W                        else
' [0 C) w% b1 Q. A3 N4 L                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 o4 _9 l1 C+ @$ I3 x% ?                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 y5 F9 u2 y6 `5 c) B9 [6 R                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, S7 I1 c+ i, c$ o$ n                next;
4 T* A* U/ k: N2 ?' \4 E% Q# w( r        next;
       
        lines:=0;
        partstable.delete;
       
& l9 K3 G. N! K& k5 N! U# \/ P7 j        for i:=1 to number_of_machine loop
# A4 J8 I3 o" ^/ F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 I8 W4 W& V' s, h0 o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 n3 \# B6 j5 D, _4 H                        lines:=lines+1;
* {! J: c  a4 S) }. {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" `6 W6 o9 `7 d* p$ c                        partstable[3,lines]:=sprint("parts");
. W. i) K( k6 [+ e/ l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
- e6 q7 A& s+ E' b, Q* e        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;
        machine.label:=activityspace[0,rows];
        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;
# K! E6 j+ N( q( D% f( Q        buf.capacity:=5000;
0 }( ^# r. `( V$ j6 o9 [        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
6 `- u' }: W8 A7 V        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) c& c. ]& M: I! j7 mdy:=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);
, R) C9 O! F9 T5 onext;
end;
2 E# j4 f+ u: j% n