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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' b$ z# G7 i% _" G, J    i,j,rows,lines:integer;
7 o1 i- Z. q9 G    machinename,bufname:string;
3 @& ]  I( G; ]3 n3 O7 ^! f9 e: r    machine,buf:object;
do
' k# c* v# s0 i) t9 c3 y        current.eraselayer(1);
       
        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";
                when 32 then
                        print"no";
' r5 E' ]( w  B3 D                else
# h% p6 t. y: V& L  H                        print"cancel";
                end;
                eventcontroller.stop;
        end;
' y" P9 V: ~% N3 z8 b- ?       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( z; ^! s/ k# x9 o; b  _1 `        if existsobject(machinename) then
# C5 ?* n& a4 q7 Z& r) e4 B- K5 T+ \$ M                machine:=str_to_obj(machinename);
                machine.deleteobject;
# w2 g8 ^& c1 p8 X# y1 i        end;
        bufname:=sprint("BF",i);
& D% Y9 C$ ]7 Q9 o! \3 G; \        if existsobject(bufname) then
, U# Y9 ~+ E' h' f                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 O- r& ^' d) K2 }* h        next;
       
0 O9 }7 l6 A) f        dx:=0;
. |' @) u, N7 t, w! Y9 ~        dy:=0;
) ^$ M3 i) d+ [& b8 U: A9 Q. k        for i:=1 to number_of_machine loop
( E; b" i8 j$ E$ R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% O0 w' ]  W1 \+ ~                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 d8 ]0 h$ I/ n: v: B$ C                then
. u1 o: C( s' ]- j9 z- i5 f0 q+ @* Q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% b: a% Z) w! x                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
1 I( ^1 @% _7 N7 q! z% {# L                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 J1 @( S) n- S- p  ~0 P; \* u6 K                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];
6 T: D0 T* d' K2 s; S' B7 B4 O' D3 R                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ ?0 L. w+ j: x                        activityspace[1,rows]:=ct;
7 q$ K0 Z8 g! P                        end;*/
        next;
* T, u  `' @1 D& P) D$ [; y% `9 \        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);
' f) P% I+ e( `+ V        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);
6 P2 V9 C# J1 b% A- h& a       
( a9 ?. Q  I- G7 x+ F6 v        rows:=0;
        lines:=0;
: C" r9 e3 m5 ], m* y; {        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, ?5 h0 }2 G$ ?- b& u                        if j=i then
9 Z* k% W" w* v2 i: O( R" s                                d_from_to_chart[j,i]:=0;
; Q+ w0 J9 C, a4 k7 S$ D                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( x, |1 [2 j# ]& j, [                                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;
7 B) W1 M3 u+ N5 M                next;
; ]* t) ^% t! E4 U/ ^        next;
% }1 k5 W4 \' E       
) \- F. H0 Z# i! P        lines:=0;
        partstable.delete;
       
: E; C0 Z; T$ [  I( v8 H8 g4 W        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
2 d2 w: B4 g- @4 N                        if w_from_to_chart[j,rows]>0 then
; P. a) Q8 ]  ~$ S5 z                        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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 A8 d' _1 L4 E" [' s                end;
        next;
2 x4 ^; a. u; N        machinename:=sprint("M",rows);
6 {/ q- R% o0 H        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
7 K! V" [. d. N$ K) x       
        bufname:=sprint("BF",rows);
/ K  B# R! S  }# G2 p, c& j5 b) J        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
' B% b: b- \- A, ~* }        .materialflow.connector.connect(buf,machine);
" C2 p3 i5 D. ^& @/ J' N       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% X5 z0 l3 N+ s& w: b( f1 R* S  p$ Xdy:=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);
4 ~0 S- W6 I1 e3 Q5 A# vnext;
end;