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

zooey

is
' h! r; I$ E9 o! m        mark:boolean;
        dx,dy,ct:real;
7 U. q- Q3 l0 w5 K* ?    i,j,rows,lines:integer;
3 X+ Q) A  T, x/ [% p" W7 f7 v! V3 B    machinename,bufname:string;
1 @  g' z1 D) d% ^    machine,buf:object;
/ G, J9 Z8 ?" G* K( n& z+ S- N; Rdo
        current.eraselayer(1);
2 N  Y9 l6 }8 y, f* |       
! Z" M* R9 I0 \2 X0 f( p        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 o8 C2 R# E% i) z3 O9 W+ h: l7 `8 v                when 16 then
# H8 U# b1 \- ~$ q                        print"yes";
; L* \1 b5 q+ L0 {                when 32 then
9 S- p% @8 t, h, Y3 l                        print"no";
                else
                        print"cancel";
                end;
$ J' x8 {, K5 |; x4 ~1 Z                eventcontroller.stop;
' m1 Q: [5 [% t/ X7 D( U9 c4 g        end;
       
/ X7 P& |2 M, t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 l6 i/ I; W% Y8 o; y5 y* I                machine:=str_to_obj(machinename);
' ~- k# i- y$ u; [" o2 d( i1 k                machine.deleteobject;
( v  U$ A* l! j* c7 R  n        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
$ m6 n8 t# `# Q2 S- n        next;
       
) t3 n& I+ [( Q) q9 z' S3 k        dx:=0;
        dy:=0;
6 k- H' x8 R( ~        for i:=1 to number_of_machine loop
/ @/ O0 K7 L6 d: F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- P: [+ {, W0 z% }3 g" w* m                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 I# r7 ?& b/ b1 f+ M1 w2 l                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ h0 O5 w/ T& V5 z+ k  X                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
3 p4 {7 J9 ]2 R5 S4 L( b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# x8 U$ S: q% G8 ~0 X; [* T$ \# l' |7 n                        activityspace[1,rows]:=ct;
                        mark:=true;
+ a/ o. I2 h% k$ F8 e9 g                        else*/
                        y_max:=y_max+dy;
  ^9 T$ u3 f7 X' J2 f5 ]                        dx:=0;
. q4 ]( Q' A: Y2 g' e8 s$ w                dy:=0;
2 M$ O# S2 t8 V! |/ _                        --end;
0 X4 j8 T' m4 d; J5 O+ D5 O; }6 H$ u                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
( g2 O8 I$ f& [! L( N; `4 o4 G0 z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 S9 h4 @) @( n! W                ct:=activityspace[2,rows];
! R& R- A6 n, F* |! ^                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
: V/ j3 O+ K6 a  M4 a; X4 D        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);
6 l- Y& z0 T3 D, x6 q" d+ @5 B" s/ q        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);
7 D8 K0 y) v4 f8 X' ?5 B       
0 o! g% h- R1 D; C6 H6 p1 w& a( D        rows:=0;
# R4 v# H3 n8 B        lines:=0;
" W- w( i: l' v5 I9 |4 Q$ O        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) |+ `* f3 f+ j+ f6 H: _1 ?3 p                        else
0 I5 F/ a% i4 Q6 Y                                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];
( L. F4 m) \5 d) S- x8 a$ r3 C% |                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
$ b! |4 O9 j+ z* C: U, b       
5 W# l( v1 t/ I8 R$ k% C0 S  K        lines:=0;
        partstable.delete;
& v& L# a, f7 [1 H8 \       
, W' m3 p  q  I1 m5 A/ R        for i:=1 to number_of_machine loop
" @4 e+ b# i+ x1 N2 p4 O- y+ n& j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# D6 H" \. t% z# ~! |                machinesequence[2,i]:=rows;
- [1 b$ m3 c0 u. K2 A                for j:=1 to number_of_machine loop
; w0 e6 x: h3 m$ |; z4 D3 ?                        if w_from_to_chart[j,rows]>0 then
; \8 A5 z+ L5 s, n                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) Y6 {. y7 ?2 c                        partstable[2,lines]:=w_from_to_chart[j,rows];
* H% m8 T% F: y, s5 m, s                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, v+ e( `- U5 b) i6 R2 C                end;
6 r1 g5 A* S$ I" F        next;
/ A5 o0 r' n3 i5 N- r        machinename:=sprint("M",rows);
        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];
& g) g! c& j9 q( B* a- G        machine.exitctrl:=ref(leave);
+ E0 u* J: i/ ~1 e" K3 K7 O       
        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]);
1 E* u- F2 ]* ~. i0 f& z  W+ a% o        buf.name:=bufname;
+ F( q! K) G7 }! z2 T0 c: u6 ?        buf.capacity:=5000;
1 z" k1 S  V' {8 @' D        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
* g2 G7 q- `5 n& B0 ~1 v( E        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);
( M' Y! A6 l5 E* L- o, Enext;
  ?: b# n3 F5 y6 C. Zend;
( [0 b- ^( \+ @+ p; p! y