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

zooey

is
4 E, N( a) _) J* r9 v5 ?, W, G$ c        mark:boolean;
0 Q: g) `4 d/ A( T& z  d        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        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";
                when 32 then
( W- E1 p/ h" c! x) `                        print"no";
2 Q) [  w: t* q$ `                else
" w% Z8 h, E$ U- D( t$ k( U& H                        print"cancel";
9 w1 i7 [4 f" E8 c0 i7 W5 B                end;
% {$ ?. g; P% R9 {# Z                eventcontroller.stop;
4 l/ @) \( b4 X! Y  |% q4 x7 J. q        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) K; A. e' k: T7 Q$ n; z8 r                machine.deleteobject;
, B: c3 E2 i6 g# W        end;
        bufname:=sprint("BF",i);
' t5 z* k9 T' q. ~8 Z4 R        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
) h% M$ W% x, }$ M        end;
. O8 o' z$ J* r7 F        next;
7 L" u6 y7 H2 w* B8 h       
        dx:=0;
4 G+ {6 v6 a! c6 }        dy:=0;
+ i" N( |5 h, V% E5 r  e        for i:=1 to number_of_machine loop
8 ?! k+ p: x; k8 ~$ C: }! G0 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  Y! O* h5 Z& ^1 o- L                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 J4 J' j( A! D7 B- A                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 q/ }* g* T( i# {" {% }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
# H. e! X" \0 ?8 @& S                        activityspace[2,rows]:=activityspace[1,rows];
* F2 z' _+ h$ e- U1 N, x: T                        activityspace[1,rows]:=ct;
! A# W! a3 w; l2 s) ?4 ^& z                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
) T. A$ A: F! ]: m, v- l                dy:=0;
; B4 b8 L# C5 R& t9 T/ g                        --end;
                end;
! w! P3 \. k0 t" K# ]5 e4 q8 t! e                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 X* M! a; ?* M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
. K% P7 @! l: B: n  m- ^6 m                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
( |& `  V# w, t/ d: A6 W1 W        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);
        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);
2 p# w& d& _, e- q8 a, E- R       
& a3 q# X# A7 W5 p* q        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
* M: f- ^- a% {                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
; i: `$ ^4 R7 k" f& }4 C                                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);
9 D% O$ Y9 ]- d4 Y4 A% Y                        end;
6 K! {+ e! l" @2 g( u( X                next;
        next;
9 S6 @# W% R7 q- E       
- g- V& }+ \6 t; {& @        lines:=0;
: i$ X. z" _, \$ ~        partstable.delete;
' X% Z8 h6 v+ ], P       
) |# X3 t: N3 t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& {$ Q! F+ b+ t1 L                machinesequence[2,i]:=rows;
, x2 B* X$ W$ N, t7 m( w+ N+ }                for j:=1 to number_of_machine loop
                        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];
2 n2 U8 m6 Y& {! G                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, b3 ?) m- i; }. Q7 N1 I                end;
        next;
  P6 T  R$ O! A0 O        machinename:=sprint("M",rows);
/ L5 n3 b( o% Z( }; ^        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]);
! c1 u9 U6 _! f9 u* V; L+ W- ^' X) w        machine.name:=machinename;标识符未知
  @/ h. v+ l- y3 k$ V        machine.proctime:=5;
6 A. W4 c; W" F& ]( L% }        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
0 ?4 Z9 [" D- 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
6 X5 f& h2 Z( d! g( B        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
- {, b! S2 ]- M7 T; ]& g  v        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# Q' l6 |3 c" q8 T7 B$ Y6 X1 d. |& M2 a, ?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);
* r! z" F; i: n3 r! Jnext;
end;