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

zooey

is
; Z+ v- H& ]3 F        mark:boolean;
        dx,dy,ct:real;
( p( m+ \. n; N/ O! g, V    i,j,rows,lines:integer;
" C2 ]; `) O7 u1 d7 k) k4 r    machinename,bufname:string;
    machine,buf:object;
do
0 U% L% Y" O3 j+ f; S, ]$ x        current.eraselayer(1);
2 F3 H  |7 h8 ^# o: E3 |       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, j( h* t& n% S5 h                when 16 then
                        print"yes";
9 l. c8 T. X& g+ a- E" |! I' e                when 32 then
                        print"no";
9 E& _+ B8 a& t                else
) W+ Q% s8 y) ^                        print"cancel";
                end;
                eventcontroller.stop;
! s. W# S* ?2 G! B9 L- {        end;
) X% A: z8 w# _0 O2 F7 j0 h7 g       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
- @1 }& S" A$ T7 i  {$ l; ^        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
/ p6 A' R3 [7 o( [                machine.deleteobject;
/ h( r9 }- U! \# \+ Y5 f8 o0 j        end;
# r# K; A' i2 a        bufname:=sprint("BF",i);
2 M! R4 B& t- U4 i7 w2 b  O! I        if existsobject(bufname) then
# I4 c1 K* G8 j                buf:=str_to_obj(bufname);
! N. k) p3 z' F/ U. R0 @" b                buf.deleteobject;
        end;
        next;
0 S" }4 c7 l8 b       
0 R1 y5 E( \3 B7 t3 p8 H        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: u9 G0 ?2 @5 |1 J+ {6 h                then
/ l, [$ Z8 B& V0 `  @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 S, X: ]/ U6 U5 I9 K. R3 _0 c                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 B" l$ y* U5 ^. `                        ct:=activityspace[2,rows];
7 E$ x! X9 v( W* B/ ]1 k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 ~5 }- u3 z  [7 ?                        mark:=true;
                        else*/
/ M( S% j* S2 A                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
3 y) h' P0 f% U2 r: L                end;
- I' N  Y. i' ?4 S6 U                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ G6 J% C( ^( f! t, `                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) Y4 ]& B/ H- V+ h+ s' @( s            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# R6 d4 @# ]- v( S                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& r0 w7 \3 _7 e, z% c* f                ct:=activityspace[2,rows];
; P+ Q# X5 T# \7 u% |% h5 N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 p* r4 x5 }( W/ ]. h                        end;*/
3 j) G8 c: m  Z" ^! S5 F        next;
+ h+ l' n9 t7 ?0 E  @4 f3 F0 E( t        y_max:=y_max+dy;
7 e, s" U; Z. z  f7 H! a        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);
       
        rows:=0;
/ B- J; i" c$ Y* q3 ]        lines:=0;
        for i:=1 to number_of_machine loop
: q) a( S+ b# Y                for j:=1 to number_of_machine loop
4 ]( |2 T1 t5 V5 [/ i                        if j=i then
                                d_from_to_chart[j,i]:=0;
% K+ M* ^* ]0 G# o2 ~, H                        else
, R9 I1 V  M/ v& F( j9 m$ M                                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);
: f) G# g, [3 G! R2 n                        end;
                next;
        next;
& Z1 Q0 O9 Z) R! N       
- E9 z& k' h# h/ i  W        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; |; c2 n% _: i( L) P$ r                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
+ @; y" m" r8 u: ?                        if w_from_to_chart[j,rows]>0 then
. X2 ]/ n" F' W* ~                        lines:=lines+1;
$ P# i+ H& Y$ k, M                        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;
                end;
        next;
; L* g5 D" e  G        machinename:=sprint("M",rows);
1 t" m4 I% J/ \% h3 T        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;标识符未知
5 p4 Q/ F% n. e( X        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 ^# O& k; _/ @# r7 O( ?, Z       
& Y6 f* t0 H( a        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]);
7 Z1 p3 t7 T7 V4 q' [5 _6 [        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
/ V& G& R3 l1 ]& y        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; N+ z- H$ d% K7 N( ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 V0 h5 m+ K6 E  @8 K% lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;