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

zooey

is
( X+ U3 d3 C1 j+ W# k1 m- ]5 P- Y        mark:boolean;
8 U& ~- t* j6 U7 N) C: k' e! f        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 s2 C* K- X+ ]. A7 m    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
7 G8 \1 n3 j& c. j% T! W; o        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";
& X  e2 p+ h. t- k2 X+ R                when 32 then
                        print"no";
% s3 v; P' i8 I$ h$ t/ {                else
7 Z% j, ]" u3 E" G. q                        print"cancel";
                end;
9 e( w$ U$ m' Z7 u- b2 }* T                eventcontroller.stop;
        end;
       
3 Q! R2 H& }* D4 N2 e/ R        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: j' ?( c7 }  o( \' n/ S/ a7 g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) D: U# x' g) G& O( E8 o3 W                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ A+ `; h5 X2 O3 q& O        end;
        next;
! a7 F4 b; b2 ~4 W% w5 Y  q       
" Z. p: f% c. L        dx:=0;
8 V- h6 A$ I: R        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]类型不匹配
! b6 t. g7 a. x& F1 O3 N* N                then
2 X- b) ~+ w4 K9 T- U                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' j1 B" c/ V* `/ W                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 V' Z$ ^7 {3 j8 D- L* p% D3 j3 N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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;
# V2 C9 k$ }5 X* ?" L6 R  _$ }            if activityspace[2,rows]>dy then
; Y4 k: \, _1 A# V8 }                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 w1 d- I( u) u! i. I                ct:=activityspace[2,rows];
5 Q, ^3 y1 S2 [- F3 {  v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ t. A, S3 @. U+ r. i: A7 [! v. e                        end;*/
" z6 D3 O: I4 u: }        next;
        y_max:=y_max+dy;
; _. q- I' v- N5 \0 M        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);
. ~6 q% q' V* S        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);
, A8 N3 E+ \) F       
4 P' K, y# _! F        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
5 Q* Z( `; Z1 S; K% [                for j:=1 to number_of_machine loop
                        if j=i then
, b4 u: f- Z  b0 e$ S/ b) F4 K! D* Q                                d_from_to_chart[j,i]:=0;
7 n! l! V6 ]! v  i                        else
' {) @. t  j6 z7 Z" N& \                                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);
4 L6 ]+ k& H5 b# M& c                        end;
                next;
9 U% d. H, A) T( q9 ?, x        next;
8 J3 i: w: R! U9 `       
: S& H( V: Q; K; L0 M( \& U        lines:=0;
# O1 }. M& }+ G( q( D( R* v        partstable.delete;
3 U" _' w) J4 }0 M( A+ x       
" ^9 {( e& ]6 }/ P) Z        for i:=1 to number_of_machine loop
6 f8 r  I0 e6 F6 ^' l3 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 g7 _, Z; m3 i7 D                machinesequence[2,i]:=rows;
/ W, ]/ Z$ G  z% G; t0 Z0 J& q+ `                for j:=1 to number_of_machine loop
' F5 ?9 O2 b$ R7 ~                        if w_from_to_chart[j,rows]>0 then
                        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;
4 @; W" s3 B( {                        partstable[6,lines]:=j;
                end;
* k. X5 K' W2 U- p$ a        next;
' y, R, c3 i7 `# Q6 a% N        machinename:=sprint("M",rows);
4 n/ o/ p6 c% j. 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]);
. ]. E, C: o+ a2 s  {/ R4 W( p        machine.name:=machinename;标识符未知
2 n7 L! M, ?& z1 ~- [        machine.proctime:=5;
7 @; W/ I8 [( @' p        machine.label:=activityspace[0,rows];
# c. i! G/ p7 ]/ n+ ]- B" x5 x        machine.exitctrl:=ref(leave);
       
1 x2 [( b2 z1 \        bufname:=sprint("BF",rows);
% O. h: p$ P4 f- q1 k        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;
: x5 h$ P3 p  T5 c5 z# y8 m8 G$ q. W; h- N        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' V2 g* A$ A' |0 M- g       
        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);
next;
' K4 D) I2 m1 g. n1 x) iend;