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

zooey

is
1 U. N( Z/ V' b1 Z* N- y5 h/ t& S        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
( V8 k" t0 A' _do
        current.eraselayer(1);
! K7 T* f8 E3 }! u       
- ^. c7 j  D7 H* G) e/ r9 O3 \% d        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
/ |, A" Q. o" h& |$ {4 c                        print"yes";
                when 32 then
* t& ~2 [0 B9 ?. S) \7 A" R                        print"no";
" }4 L  L$ o+ p5 P/ M& w8 v1 r                else
                        print"cancel";
                end;
                eventcontroller.stop;
' z! z1 W( F: f7 Y6 N        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 S" P' g4 _1 Z9 _* z: v0 r9 P# ^        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  ^+ b# {6 S  R$ c                machine.deleteobject;
        end;
% P! v% f( v1 ^+ [        bufname:=sprint("BF",i);
! Q8 f. x+ w7 p9 C2 q8 Q        if existsobject(bufname) then
& F- f- x7 v+ D9 b4 C. v/ a                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 v' g3 @6 M% y' A  C        end;
: @( k. d5 G# O5 A1 }3 ^$ V2 ]        next;
2 I7 K6 [: c# H% W6 A       
3 j( w2 r, Q. ^8 R& [; f1 ?0 _        dx:=0;
        dy:=0;
1 H; [; l# r2 C        for i:=1 to number_of_machine loop
2 J9 h/ f: |, d7 s8 _! a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- D4 h  Q9 ~' d% |/ v2 l                --mark:=false;
& v# B6 [) f! _8 Y) s$ ]% `, Y2 R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 w2 Q! j  {: t+ i' X                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* m. D9 _# f" f: g& Z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
1 G2 B& J5 `  s# F/ E                        ct:=activityspace[2,rows];
: v- k& {$ ~1 o4 s# K                        activityspace[2,rows]:=activityspace[1,rows];
2 e, ~' h0 ]- ~                        activityspace[1,rows]:=ct;
                        mark:=true;
, c5 G* }9 _, \( w* z& x( E                        else*/
3 K7 x' o$ E  ?                        y_max:=y_max+dy;
                        dx:=0;
" e- ?' q3 E2 P; W8 r                dy:=0;
                        --end;
/ U, t' L# s. v$ B7 R, Q" }0 x                end;
+ x6 |3 X9 C% {% s* \8 g, V                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;
! E8 K) S8 x6 O  _            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
$ p% h1 h# e3 A1 B0 Y/ y- w                /*if mark=true then
- u% ?) \* T" ~3 j* r                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! Z% P+ I7 w# ~( s8 h7 k% k                        activityspace[1,rows]:=ct;
                        end;*/
        next;
" d9 d- A+ g3 V* Y8 F+ u        y_max:=y_max+dy;
$ F0 Q* J, o6 H6 ?7 m1 d        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);
       
$ L- H7 n% [1 M        rows:=0;
- a/ l* w  C1 l% J! M, L        lines:=0;
8 K+ E; s0 p  j2 P        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
: `8 _) [$ n$ J( U' \                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 d- _7 z; s6 h- d% a+ O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
3 n0 m7 Y, F( q! B        next;
! ^$ g3 }" f; U2 S0 P- {       
# w1 x4 P) y8 P" b  `        lines:=0;
        partstable.delete;
! k7 B! K: S+ E% {       
, a+ f% r  A; s- j. o0 d, [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 a, V6 w" Z% d                machinesequence[2,i]:=rows;
9 {* x% Y. R! u. W- _. E7 W                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) m% x5 Y) G$ a8 m# n: E# e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) I) {- A5 C7 ~6 m3 v2 ]( `                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 u& r( Z2 Y! z; J                        partstable[5,lines]:=rows;
7 y- Z/ U5 p3 _( A  i$ }& u# U                        partstable[6,lines]:=j;
                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;标识符未知
4 V( K: ]  t$ a7 \! T9 z        machine.proctime:=5;
5 ]4 X# u3 x! K0 X+ U2 }" Y* K" ?        machine.label:=activityspace[0,rows];
; v& U4 G8 L2 b$ H        machine.exitctrl:=ref(leave);
: P7 J% j- z; X7 ^  i% W       
0 E2 o2 B) `6 ]- p        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]);
! G% C# K) p% }$ \        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
% O* M% r0 y8 T( d+ |' h7 y        .materialflow.connector.connect(buf,machine);
: N3 z" n% }5 b       
        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);
next;
end;