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

zooey

is
2 s. w0 J- Z, m7 [- I% m. E* F        mark:boolean;
: S6 t; f0 E2 o- _$ y( A7 }8 Q5 u        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
% z& B( s, Q; }" ^4 Ado
        current.eraselayer(1);
' A( P: h( h  W5 t8 _/ S       
3 T/ A: y) |7 ?4 a5 M+ j! i        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, b# t# T" I6 H" ^! E                when 16 then
                        print"yes";
5 L8 g2 }3 f* g) r% H; P                when 32 then
                        print"no";
9 r/ {* t& ]& d, l7 V1 T                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
- M% t6 G/ e. B/ y       
" m7 {5 k- S% Q. x2 B; `/ _! }' d        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 S. B& o/ K+ v& k                machine:=str_to_obj(machinename);
$ l: S" v& T( _1 ~" r                machine.deleteobject;
5 h- j1 E4 E. [& N        end;
' V, s7 {  k/ y( \6 E        bufname:=sprint("BF",i);
! v7 |$ h+ Q+ @: U* C        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 Q- b# f4 n# L1 E                buf.deleteobject;
; K* ~  x* b! C3 z& J        end;
% p- M7 {! K8 @6 `' T4 h! m        next;
       
' q1 t( s0 z8 s4 v5 C( j        dx:=0;
8 h, f+ g( J& Y# I2 _2 s( \        dy:=0;
, x/ ]( G* S, Y        for i:=1 to number_of_machine loop
7 I3 ~" y, V1 H7 F7 r+ u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 z5 l' C) W6 o, H) l  W                --mark:=false;
) f+ s8 s0 u' d9 q; V: @! T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
3 d$ w$ y" `) Y9 f                        /*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];
9 w: R/ ^8 N8 x  z9 ]                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: f6 x) a+ \  J8 f) s9 i/ J2 R7 M( Z% M4 z                dy:=0;
                        --end;
& r8 h6 K! B- v1 q5 @5 H7 V4 `3 u                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;
: B  u: W8 B- h  p5 _& h            if activityspace[2,rows]>dy then
1 _3 g) f0 F  q5 k& q                        dy:=activityspace[2,rows];
                end;
# J' F, L/ L0 x' F; d                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
. `: m+ K. |" ^- H                        activityspace[2,rows]:=activityspace[1,rows];
- d" Z! Q+ m1 W( d$ r+ x                        activityspace[1,rows]:=ct;
                        end;*/
& D' J4 E9 u' |" w9 e! c        next;
8 O$ a' Y- V3 i1 k, D, H        y_max:=y_max+dy;
7 o9 ~5 ?7 y, G9 i        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;
        lines:=0;
# L7 @9 W7 j6 ?  D3 i        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: c" A2 Q, v$ P, w5 X- p; _                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 x* r6 G( C1 p/ V$ C/ B" y                        else
5 ^0 v* w; H! z2 E- `4 u                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
0 h0 n7 I; Q# L1 _  Q: D        next;
5 y" ^2 b! i" c/ N       
        lines:=0;
        partstable.delete;
+ m# ^1 z' G5 e" g- K       
        for i:=1 to number_of_machine loop
& ]; K5 l, @$ m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
5 K7 x" e; U  A0 U8 {5 C                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 `/ I1 u* p$ I# R                        lines:=lines+1;
. C: h+ i; m  r                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
: a: t& K; A* A% |/ v) _3 q                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* E( V& M0 T% f1 I                        partstable[6,lines]:=j;
# \5 w7 @) x6 s9 X8 a! F8 a                end;
        next;
        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;
3 c3 `0 g& U+ c+ O0 s) E, L' u        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
; g/ H7 g& p) a0 U: m        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 X" @& r8 `1 e5 _        buf.name:=bufname;
+ v8 A; p$ E6 a2 D        buf.capacity:=5000;
        buf.proctime:=0;
/ J8 n5 D: B4 A* T8 A- e" S: i        .materialflow.connector.connect(buf,machine);
       
8 f4 L. J% c: n" f2 ^        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* K+ Z; l/ t# K/ r3 q+ ?- R7 ~dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 m8 v; ]# w5 P8 R1 O4 Pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! f, a  ~: j' Y! B( h6 b5 Lnext;
end;