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

zooey

is
8 y0 W( F0 E- n, T: k4 f9 W        mark:boolean;
        dx,dy,ct:real;
9 Q% T7 R- W" F8 ^* A0 `    i,j,rows,lines:integer;
: r8 g- l% V" c* R9 c" S    machinename,bufname:string;
( ?/ k4 \" p9 i: F+ d3 W    machine,buf:object;
9 v: B% K/ T- l( f9 odo
        current.eraselayer(1);
3 c5 Z: h) @9 T2 O       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' i" s$ q- M" _- b                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, n. c$ Y6 V: n- q& ?                        print"yes";
                when 32 then
6 `0 d, C7 K! A8 \2 G                        print"no";
                else
$ X- R2 b3 y1 y; j                        print"cancel";
! `$ L7 D4 B' N+ J                end;
, |. _  W- x1 q3 I* H                eventcontroller.stop;
3 R% e) g( f  s4 x0 n; K+ s" H        end;
/ u  f/ C9 b8 ]9 _% m4 X$ T       
+ T7 {8 Z- G' F& g9 ]" L& O5 J        for i:=1 to number_of_machine loop
: g  K6 \' _% |) P. i2 c- m6 x5 Y        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! F4 z+ Q& _( J5 q* l$ V5 r                machine.deleteobject;
        end;
! g; i" m4 Y; F! d, d        bufname:=sprint("BF",i);
: l1 t4 Q$ ]+ |! k# J        if existsobject(bufname) then
  l' Q* ?; p5 C5 q                buf:=str_to_obj(bufname);
. H8 E3 N; H: F+ h& V& p% S9 e                buf.deleteobject;
( g. `# q. e4 a( c; O        end;
) X2 E- E# u5 x( o( k6 T' W3 K- Y        next;
       
2 Z# l: B! |, s5 _; T: i3 C        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- O! ]) }+ I5 i. `" o# s+ s' G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 ]. D* i# i  ?# e, v  d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- y3 Z# L* Z4 ^  w, S( O) C$ G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: g: ]( p% n" [6 h- K3 S* V                        activityspace[2,rows]:=activityspace[1,rows];
8 a. S: I( {6 d                        activityspace[1,rows]:=ct;
                        mark:=true;
8 E; E1 \& a2 }! T! I                        else*/
6 o3 y+ d, N) ?, f: F( o) o: M                        y_max:=y_max+dy;
( z+ I' l2 S/ O( V1 l/ H. D$ S                        dx:=0;
                dy:=0;
                        --end;
( p1 Y$ q% N# p- H7 {1 i                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# A* ?+ o4 j- A5 z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
3 F  j  x% q( y$ A( _6 S                end;
  a& R: |: ]. H1 ?  b                dx:=dx+activityspace[1,rows];
                /*if mark=true then
0 i% c( p% H% c7 Y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
: D/ b: o! a  V; t9 M0 l        next;
5 |: t3 B' n) M% ~! z        y_max:=y_max+dy;
9 X# N5 Y! O/ h6 u3 ]2 `( d3 C        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);
% A9 I* i( K& J# u        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);
) ~& c# w2 B5 G7 I2 t$ m       
% L4 ~) F; W  T2 q" y: Q        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
2 P. |; J) A2 r' g+ f( S, k                for j:=1 to number_of_machine loop
                        if j=i then
" Z1 Z; }, C  ^  o3 G4 V3 J0 L& z                                d_from_to_chart[j,i]:=0;
7 _$ A9 v) c- O% r                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 A1 q) }" F1 A                                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;
        next;
       
4 c4 U% I/ y* A) u        lines:=0;
0 c: L: J6 x! U' f( J& P4 R  v        partstable.delete;
       
        for i:=1 to number_of_machine loop
# O1 s6 L2 P+ l8 V1 ]; u5 F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- Z. L! Y3 ^( ^* _" v                for j:=1 to number_of_machine loop
; Y% U( j; o5 Y0 o4 D                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# ]# I; E. n. |. G. ]& i4 x" J                        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;
                        partstable[6,lines]:=j;
$ ^! r/ m% `; C4 L' |                end;
        next;
        machinename:=sprint("M",rows);
3 n9 N/ B9 s. Q# q5 ~* O        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]);
& J! l$ T( N- }& f/ _, s4 T  G: p; y        machine.name:=machinename;标识符未知
( V' ~( w& n3 {$ `        machine.proctime:=5;
6 t4 [- a" e% s' d5 t        machine.label:=activityspace[0,rows];
, I* F/ C4 G  C7 k, \        machine.exitctrl:=ref(leave);
       
, X: N# e! Q. E  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]);
% [# x1 Q% g0 v% m        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
( _+ ]. ~  x. m4 k; B6 u, w        .materialflow.connector.connect(buf,machine);
       
' F9 @" h+ V4 E2 G$ `1 P        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);
% [( e% Y) [, \+ k& ]- c1 P+ bnext;
end;