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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
9 Y2 h7 E- E9 c' r1 x( @    i,j,rows,lines:integer;
    machinename,bufname:string;
. l! Q7 [6 `( ?% x    machine,buf:object;
1 i8 E' ^) @# ^; x+ \6 W3 r' \! Pdo
% ^/ Q+ i/ e5 F' _5 h7 y        current.eraselayer(1);
1 ^" {3 C( N# a0 }) ?' w       
% Q8 o$ v( u5 L+ x3 T! J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 d' M6 N" x. w* l. E8 A% b                inspect messagebox("设施数目不对！请核查...,",50,13)
! x! h" Q9 \% e- H                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
+ p, x) H4 g/ x        end;
9 I. Z5 N6 E& F8 v       
" j% M* G3 v6 d4 y/ }% q- }        for i:=1 to number_of_machine loop
. [5 V9 A; L9 Q3 M  c        machinename:=sprint("M",i);
1 w6 z- t5 W& s- g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
- L( z8 t; b, C                machine.deleteobject;
        end;
3 n& X9 G5 h8 q# S0 m  C        bufname:=sprint("BF",i);
2 c% G6 s4 P1 X. z2 S9 y) _        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 q: W! c3 x; d: F/ a: L                buf.deleteobject;
; g9 S' ^8 {; h1 J( h        end;
4 y/ S* \8 u$ d  U: t" U        next;
8 k* _0 b: o+ p& R" {( r/ o       
        dx:=0;
        dy:=0;
  q2 h. ]5 F$ v1 m4 T        for i:=1 to number_of_machine loop
: W2 z* m3 V8 l- G9 S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 T1 t1 R+ N# _; ^) t5 @7 ]5 j7 v& j: O                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* G+ _9 P) x) Y! F: w1 P                        and activityspace[1,rows]<(1.05*y_max) then
+ F/ b3 v3 g3 F                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 r! ~% ^: c1 V- j                        activityspace[1,rows]:=ct;
9 R6 F+ K! R4 L                        mark:=true;
                        else*/
# K8 P2 g' g% r$ O7 E( _" d                        y_max:=y_max+dy;
* C: @) O& A3 Y6 N  y* _* ^# g                        dx:=0;
                dy:=0;
" o/ l+ m: I9 Z                        --end;
4 j2 x% ?: N  ^, Z1 V# T                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;
- q! H& d8 H4 \2 L* I9 w            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
( W8 d* B. g$ x+ }8 v% R! s+ U                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 F  V, P, [2 M$ R6 e/ B6 S                        activityspace[1,rows]:=ct;
                        end;*/
) {9 }6 N* e- P, I% Q: b  G        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);
9 a* d" p9 Z1 u  u: a# J) E# M        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;
" f, S0 x6 B/ b2 C" }' v3 q* L        lines:=0;
/ d, z" |8 S' d& U' q        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
7 z7 y, x5 ~( f) |$ j                                d_from_to_chart[j,i]:=0;
/ J& E; y) X; |  j7 `) F; z  b                        else
6 t) c+ L* {' {' Y: a0 k9 Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) t& e9 R( @7 w! `                                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);
. o! t- |! k# _: M! r3 d                        end;
' ?* v$ T" Z6 U, ]: ]3 e3 Z9 u                next;
        next;
       
; V- @$ H1 S. ?7 D5 s$ N        lines:=0;
        partstable.delete;
" v2 h$ A& i% ?+ I8 j       
9 J: j, p  `0 Z) b        for i:=1 to number_of_machine loop
3 R( o) L" Q2 b( R6 m) h7 X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# i. ?2 G$ R- @' b+ U                for j:=1 to number_of_machine loop
  T5 n" O# F; N' `) t% k                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 v+ {9 o0 ^7 p7 Y4 X$ [: B                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% m$ f. s6 z2 E, ?% W* j# h0 |. G' e0 H                        partstable[5,lines]:=rows;
; e9 D6 W1 y* D* b! |% |5 H                        partstable[6,lines]:=j;
                end;
        next;
' j2 X2 E' U" s; r) O( S8 C        machinename:=sprint("M",rows);
$ L% {" c+ e* n% 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);
+ o& O% X( @/ d: a) b8 W       
        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]);
        buf.name:=bufname;
2 h8 S! g4 Y6 c& B! n7 D        buf.capacity:=5000;
        buf.proctime:=0;
/ ^4 y# z9 R7 c; o+ P        .materialflow.connector.connect(buf,machine);
       
1 W) P, H+ B8 e* f0 \; L3 \. [        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);
; L8 U. ?$ E0 Tnext;
8 j% `( |* a& u$ send;
' g* E# N3 m2 Q( [/ a4 t" @% t