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

zooey

is
4 u7 T- Q' h3 O! M; }4 u        mark:boolean;
        dx,dy,ct:real;
: _) V/ ^; p" j+ j    i,j,rows,lines:integer;
    machinename,bufname:string;
0 [1 S  J; ?4 j1 t* h% I2 W" F    machine,buf:object;
- K8 j7 p6 c. vdo
        current.eraselayer(1);
; Z, W* L& k- M* u4 y+ \       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" B2 t  a$ \6 n5 k; x1 [                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
+ k8 f$ J. x% k" `' ~$ T                        print"no";
: t+ l: r6 F3 Q- Q4 u: {) I, z# H3 A                else
5 W8 z  F! ^; `  I4 [1 a$ S                        print"cancel";
                end;
                eventcontroller.stop;
        end;
1 O# |5 B: f5 a6 J) ~6 P0 f  @       
- \3 }' }' M' _9 W4 v- G0 N& d) c/ B        for i:=1 to number_of_machine loop
6 |; Y0 h7 R5 l4 i2 I) E        machinename:=sprint("M",i);
        if existsobject(machinename) then
( O2 T; h& U# v! h5 ~                machine:=str_to_obj(machinename);
; C! E& N. p: ^7 M1 U9 z- j1 i                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
: P/ M7 s! v( _; q: N6 K+ ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
" @9 q' u6 f8 V- X; f                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
% d5 J% a% |5 p! k. q% ~& T        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# ]- [# L0 R+ P0 N! _4 [+ Z4 J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 w3 s, h+ K' I! X9 {7 N                then
- z( c/ N' G) U3 ?; j  ]1 W. |                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 I9 {0 w, X( @" b) U3 r7 f                        activityspace[2,rows]:=activityspace[1,rows];
1 D+ b1 i( `& W( N8 ~4 }                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
* L) p3 e  a+ R                        dx:=0;
! h. m) E' P0 Z1 G% L0 n                dy:=0;
                        --end;
                end;
1 _) d4 x3 q- K% R8 [8 t                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;
8 u- j! s/ N. b  Q# E$ g/ u3 q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
5 x# F8 L4 }% ?" t8 [- F- f3 F                end;
# w; v. [  V; s1 b                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 O1 W% d% }$ `/ I  J                        end;*/
4 T3 ~( w* ]7 m/ u        next;
9 |; x4 ~5 B! j* t0 C# ]: @3 ?8 f        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);
' E! i" U* I1 k4 R3 O2 ?& k        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;
        lines:=0;
' K  G; k3 b) m3 b        for i:=1 to number_of_machine loop
# @0 ]* O( t: H" F                for j:=1 to number_of_machine loop
& g# T: y# J* l0 b$ Z                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ K6 m$ c- [( J2 Y& k2 W1 \                        else
6 _& b  f$ E* J' D) f0 z8 t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ w0 P" Q8 _; z. K" ^                                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);
  D! Z; I9 m' \" Y                        end;
                next;
        next;
, U. A# y' w% J' ^5 C8 O+ t       
  E+ O0 G* }8 P! Q% Y# a: y* \% x        lines:=0;
        partstable.delete;
       
( o3 Q# A1 d% Q8 @" q        for i:=1 to number_of_machine loop
& H. ?4 ~( @  y$ o: T                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
/ x$ ~: F& E7 w- J                        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");
0 A% t6 y1 U6 A8 T. P# m3 t                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
/ e% t; G; C; ^& Q; R: u        next;
        machinename:=sprint("M",rows);
0 c- K5 `8 g1 [2 i        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;标识符未知
3 G8 w! S# a9 p$ [* G        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 b& p+ q7 u( e6 R6 F       
3 e; @* z" W* J6 y. e2 r        bufname:=sprint("BF",rows);
5 f$ ~1 j" X$ i8 X3 ^  \( c  ^        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]);
: p) D# \8 F6 S$ ]% ~* g- j5 ~        buf.name:=bufname;
        buf.capacity:=5000;
6 a$ ~! h5 p2 z* t" ?        buf.proctime:=0;
$ }* O; U0 w1 A, }, [3 C        .materialflow.connector.connect(buf,machine);
$ D0 T) f, R+ J/ d# ]. h$ }. E+ {. O       
) i) R/ K- _3 @9 s/ k: X' w# N        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);
4 J! Z. j; y/ b9 z7 ^. \& Lnext;
end;