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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
. o. s. Y9 s% z1 Z( V        current.eraselayer(1);
* k: g2 b6 _% u       
8 t; w7 ^0 F* M5 A7 N/ \        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( G6 x* L, [* l2 `# _" W                when 16 then
                        print"yes";
                when 32 then
, T- e& K3 \7 n" x: _                        print"no";
                else
4 S. M( h+ d8 m2 V$ S                        print"cancel";
1 P+ {% ~5 T. M3 Q- Y7 I                end;
                eventcontroller.stop;
5 N5 J) K7 E2 {( N; x: R        end;
- ^! n9 }2 e8 H0 H  P       
2 o/ k% h% L' x        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
( k* u' z/ X' ?, c7 S% _                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" L' w  M; F! l+ u5 `; m7 Q6 r                buf:=str_to_obj(bufname);
                buf.deleteobject;
; ]& S' T! Y9 X" e8 G        end;
* q4 T/ W9 B) W0 r$ K6 F7 q2 w6 g        next;
9 P  @$ s' ~/ ^, n( P) ?       
2 @; v9 h  `7 q! x1 B, t( ]        dx:=0;
5 j3 M' k5 J' [3 i4 A4 p0 t        dy:=0;
: ~5 C* \# ]! V( e        for i:=1 to number_of_machine loop
2 f' E% B  B' [; h+ x9 P+ P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 j8 G4 ]% }! Z                then
( l" y- F( ?* \6 M8 F, S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ Z& X! J" g" M0 ~4 |                        and activityspace[1,rows]<(1.05*y_max) then
9 ~+ |4 ~/ P. Q: F0 D' r# g+ K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
' B; @) E, ~7 T$ z# ~, t  @                        else*/
                        y_max:=y_max+dy;
: r/ U. a+ X! U8 c9 a7 Y! x# i                        dx:=0;
                dy:=0;
* }" K# I) @3 _: V3 G& Q+ h                        --end;
1 I4 y4 }$ n$ k- ^7 D6 {                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ V& N, W+ H3 W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; J2 K6 t* X& u; M* T            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
; f' o% M( \, b9 h8 L9 U* n1 J                dx:=dx+activityspace[1,rows];
. P* V2 ~3 F/ h; }                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) c; [! a5 L4 z- s% K- h                        activityspace[1,rows]:=ct;
                        end;*/
8 _. i2 m# V5 l        next;
        y_max:=y_max+dy;
        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);
# H2 y# _7 ?8 U* M7 ^0 Z1 M! T+ V% r       
        rows:=0;
7 T8 E4 S& \( w# A: j        lines:=0;
9 C2 F( f0 f  w- Y        for i:=1 to number_of_machine loop
$ ~! z+ R6 k" j4 d( U7 J& |                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
: c7 {+ Q) E$ ~" J. g* H8 t                        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 b- z) J: i; p2 S" p                                d_from_to_chart[j,i]:=abs(dx-dy);
# f% f3 s& w) t  M; ~' ~# @                        end;
                next;
/ q: l% E& v" }* D2 }' Z9 U        next;
, ?4 w) Q! a3 ~, X+ N9 l; t7 b( m       
: r& n( [$ X$ M1 Z        lines:=0;
        partstable.delete;
       
, B* x" t0 {, \! o3 i+ `        for i:=1 to number_of_machine loop
7 }8 y' J4 |& u+ n" i) z& A# L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 B& U$ O  _) i5 ?$ h3 h3 ^$ B5 \. L                machinesequence[2,i]:=rows;
  d) }; O4 ?# B1 j2 L5 V" ~% R                for j:=1 to number_of_machine loop
" S7 l7 z9 B8 X1 O* ?! `2 i. _                        if w_from_to_chart[j,rows]>0 then
+ h# O+ t+ F" e* m. [/ t                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 a6 `, V& y! z6 P                        partstable[5,lines]:=rows;
  y  y  {% k7 a9 C                        partstable[6,lines]:=j;
                end;
' Q* X% l9 y: _) M' i' C0 S5 y/ ~* s$ g        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]);
+ k2 a5 x7 j  |5 J3 V& q        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: o5 Q  S4 A- [- B        machine.exitctrl:=ref(leave);
& E( U5 a! w; R; A! I0 }. E. Z       
        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]);
, z5 x. t% q8 {5 ~5 b        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
- M# P5 E: e4 [; e        .materialflow.connector.connect(buf,machine);
       
7 C8 @4 F+ r5 W) P9 z( a: @        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 w+ s- Q/ w, _4 i5 K9 pdy:=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;