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

zooey

is
        mark:boolean;
7 ]6 z. ~3 S: A: M* |        dx,dy,ct:real;
    i,j,rows,lines:integer;
* e( ^1 I, A9 s3 p9 _1 R- L4 E    machinename,bufname:string;
; m/ \! ?. X+ r( P# Y/ J, F    machine,buf:object;
' `! F8 z# Z) a" q; j" Rdo
7 ~5 z* d, E) _7 T8 C7 \        current.eraselayer(1);
1 C" q/ E( b* Z1 T       
5 w; z2 x; K8 I5 [" X* b3 R  ]        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" c% k) v  E* v( G1 E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
5 a& J2 h5 x0 w& n& E5 c                else
) m/ Y/ U/ H% E% v                        print"cancel";
                end;
                eventcontroller.stop;
; x5 S4 [. E, p3 e9 a        end;
. V; m9 m. k/ L0 q9 d+ h- @4 U2 o       
, @+ v6 c  {9 e, a        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 h8 I. b( p: @8 Y$ ~& Q        if existsobject(machinename) then
8 j% Y0 n0 X$ C3 ?                machine:=str_to_obj(machinename);
0 s5 w3 D$ i4 V" y6 h/ O& ?2 E                machine.deleteobject;
& W6 ^8 V! P4 \        end;
# T6 x. p4 _" h% G* w6 f$ E        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- z0 l/ [; A) G9 Z3 w                buf:=str_to_obj(bufname);
/ p, m, V; u, m/ S9 u9 b                buf.deleteobject;
  G4 h* C% y3 j! d9 Y0 N        end;
        next;
( S  e8 Z% U+ n       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
9 ?4 @) {( N6 `% o5 X- u) y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" H# ]& t2 v8 w% }: E. E                --mark:=false;
: W' F5 c  w) M" U% C4 m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* T4 f: S0 M! h6 p0 c) P! ^, K                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! o1 N6 x# r, B" A                        and activityspace[1,rows]<(1.05*y_max) then
3 V& A2 ~, w* C" }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
6 B- @% `7 c/ d9 `                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) ?0 v% ]* N" _7 }                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
* }% G! [, Z" d' D- u8 y$ T                        dx:=0;
! @, n: l# r) b; }                dy:=0;
( O" M/ J/ w5 l$ O                        --end;
+ p  a- a- a0 Z' B# n0 f& r% @                end;
1 i( ^- R1 a/ V1 j4 Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' w- y. r3 o  Y& Y3 e, F9 {1 j                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. U! J7 q1 ]7 h/ }( J% W7 K            if activityspace[2,rows]>dy then
+ M% b$ s; U+ t5 q                        dy:=activityspace[2,rows];
                end;
# x2 B0 f: K9 V) z' g( c( [: K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 A! ?8 N9 m" F$ d' F' H3 V& ]                        end;*/
9 Z9 f2 Y: c3 d2 C        next;
6 ?( x( G5 y" H4 Y0 U5 N+ k# [        y_max:=y_max+dy;
( B0 Q! y* w- k/ V6 a1 x9 n! G5 ^        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);
. X0 m+ ]8 H/ M! B. {, T        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);
6 j1 U4 {4 K" U       
% C( X! p% r6 Q        rows:=0;
( c6 i% F5 x9 {2 a/ P* c. o  ]! r        lines:=0;
5 y; z9 D$ N! U( U% f8 k% R: m        for i:=1 to number_of_machine loop
  c4 l5 ^! R& {                for j:=1 to number_of_machine loop
, _3 w1 s" ]! W9 G% {                        if j=i then
7 ]$ V, q: F; }1 ]  O& R5 i. l& A                                d_from_to_chart[j,i]:=0;
( b7 p3 g. Z. P% u- P( J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( d) c0 }' u5 m" N! m' u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% Q( B* {( g2 O  e' e4 U/ f                                d_from_to_chart[j,i]:=abs(dx-dy);
3 R, z0 V" n7 u, T+ Z; f                        end;
$ Y4 h/ M3 z. A! O' W- x                next;
        next;
3 B  [6 ?/ A5 e7 ^1 @- q9 j5 D       
: Z- j) ^! p/ o) b' S5 \# j        lines:=0;
        partstable.delete;
4 ?) V  ?2 T" y. a5 g! I6 D. V       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' D: V" K: H/ X$ b                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
" K$ v% f5 j9 C: ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, @" ?) f( F5 t& k3 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ K' d2 }/ W; z; A                        partstable[3,lines]:=sprint("parts");
' e+ V! @* ]: W7 ^. ^8 H' g: L. B                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 G8 }! c' q  o1 C6 B5 M& U                end;
0 s& h. j( O% N- g; C        next;
3 j7 M4 J9 c/ f' g( d8 y) c9 ~& W. O        machinename:=sprint("M",rows);
( M5 }! p1 Q; S/ L. y% _3 H7 w4 u        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]);
% y. ^1 c; l) Z8 B/ c        machine.name:=machinename;标识符未知
# ^" ?2 h7 @+ m$ O2 f        machine.proctime:=5;
" k" M7 `' J" J. Q  e- F; \4 n        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& C0 k8 u. i, x5 F2 Z' j       
        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;
6 L# o$ o+ ~7 O6 L, R        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
% W' m0 Z: l$ {7 C: C) x  k. @" Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;