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

zooey

is
4 v; h/ m  F& q+ e, U' T( C        mark:boolean;
! g4 f* |8 T% |! I; f& Z        dx,dy,ct:real;
# I1 e( p5 r' j1 t2 W: H    i,j,rows,lines:integer;
7 |& P5 @0 B3 C  I    machinename,bufname:string;
, b& Q$ P3 X+ Z. H* J% q    machine,buf:object;
do
        current.eraselayer(1);
% ~! o0 z) O0 @0 g       
        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
                        print"yes";
: ?6 p0 j& A7 g- H$ w( D5 _9 M                when 32 then
; v& s2 A  H  m6 q' n4 M1 _                        print"no";
                else
$ {% ~; c: H5 A# M, s: ^7 J                        print"cancel";
                end;
                eventcontroller.stop;
6 @# G0 U/ y& ]7 k, f0 [9 G+ F        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
: R- u' Z7 }8 L& r7 q) `        end;
$ U3 e  K$ L8 @8 p1 i        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 ?7 S, F' E' W3 a# V        next;
       
) @3 v5 N. b1 K! l( z5 H- r        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' j6 W! A* ]/ R( k, t                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. j* K3 b$ g" T, H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  R9 v3 m# @2 z: C* ?                        and activityspace[1,rows]<(1.05*y_max) then
( ~- ]# R$ W; u- t2 R0 _, i( C                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
# E4 l8 y, F, J8 ?3 U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
/ h) N) G8 X+ ?/ N$ j' d$ g8 l                        y_max:=y_max+dy;
# c  `. ~6 a4 ?- z  c  I                        dx:=0;
' F, c, X  F: U; R                dy:=0;
# Z3 ]0 ^( p9 L9 \! J                        --end;
                end;
4 z( W4 u5 i3 n                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;
4 ^7 U  q0 T' o            if activityspace[2,rows]>dy then
# p' ?% a+ Q5 `                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
5 X5 ]. n8 J1 X: `4 N. q                /*if mark=true then
% k6 x2 A+ K9 x5 f" h# o                ct:=activityspace[2,rows];
1 q* A4 h3 q6 I                        activityspace[2,rows]:=activityspace[1,rows];
' P  W0 S4 m+ v% _                        activityspace[1,rows]:=ct;
# \: [! x! q5 V% t, P, c. c6 i9 t3 P                        end;*/
        next;
        y_max:=y_max+dy;
9 ]- b+ M2 D2 O! Q% ?, {        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);
- o! H' ]0 P# M! e, ?# x        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);
       
5 ?0 e2 k$ K) A5 y* H0 V        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
8 a' e" w, x( \) a2 c) S! X2 W                                d_from_to_chart[j,i]:=0;
! p, p- W/ X8 q0 ^) R- [' n+ g) k& y                        else
0 V# Z% n. c: s% a8 g0 F                                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);
/ m9 `7 K/ d; \+ W3 S# j                        end;
                next;
4 Y" E0 Z' M% }        next;
, h% h. D  _9 Z+ K2 S/ ~( ]       
3 e( b1 J# V- T) _3 p5 {- t4 ?5 k        lines:=0;
8 B- ^* ^9 s: ?' q# F        partstable.delete;
       
# Y: E7 d& t: B0 S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) V% E' _  f1 r+ u) r                        lines:=lines+1;
  |& |. {* a' b6 p& F                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( N+ y$ b7 N" K, A  H$ T                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" @7 O  l9 i- @4 F# j                        partstable[6,lines]:=j;
7 f9 d$ n4 u6 L, ?/ ~                end;
        next;
! w  V3 V) K) }6 M) Y( S5 M$ t! _3 |        machinename:=sprint("M",rows);
  J0 b6 h/ @6 g        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;标识符未知
$ D1 ~: g( l9 X8 q9 R9 J3 v8 c# O0 Y- \        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
, ?* u' y- ]. o4 L9 X5 ?) f0 a       
5 X( o0 K0 N7 e% n: T9 g6 r" }& e        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]);
: _2 n% N1 ~" G2 E        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
+ |- N4 V. j0 V        .materialflow.connector.connect(buf,machine);
       
* j1 o- A  l  I) b8 P- V( y. d, o        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;
, _4 V8 V" y( A0 |current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;