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

zooey

is
        mark:boolean;
5 H. M( a$ x3 W" p! |  \" N        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
, ?) D8 g- L1 B) ~3 }       
8 X0 D$ b7 x0 h/ l3 J, \( C        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- q! w1 Q* [1 Q- j1 R                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 b# i( N9 j- t                        print"yes";
                when 32 then
' \7 |, r$ x( w, e                        print"no";
/ C3 L) C2 Z' Y: `# |. {; n, v) W                else
" M' G% ]6 b. U: @& S9 I" ~  [4 e                        print"cancel";
                end;
$ {1 M  i5 o3 k9 T8 H* u8 X: W                eventcontroller.stop;
        end;
4 i- a5 X2 S( p: O8 z/ m       
+ c: O$ n( B; g' i' e" E        for i:=1 to number_of_machine loop
$ H) H0 F; n! N        machinename:=sprint("M",i);
% M3 x& C7 D7 [6 z! \) S4 t        if existsobject(machinename) then
7 ^% `! ~9 _2 i                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
0 ^. k' d6 B% S        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
! k. v; E9 F9 j: r# y9 z6 A        end;
2 ?! Y; z% I& {5 g. U% U7 s6 S        next;
0 d  G7 y% C+ j( Z+ s3 d       
* O9 k( A; `& I, c- \; o& J        dx:=0;
        dy:=0;
+ \; n, K0 r/ f3 X; ?; g9 W" N        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]类型不匹配
, d% O0 I+ `% b$ a' E. j                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& ?/ G* ^8 _) f  ?7 F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 T4 V7 |+ G" A8 A3 ]! ~/ ]                        activityspace[2,rows]:=activityspace[1,rows];
' p7 g6 W3 `: u/ }, p* {                        activityspace[1,rows]:=ct;
                        mark:=true;
( k0 L! T# x& w4 N2 ]                        else*/
4 i5 `; X; J- v- N4 t2 T                        y_max:=y_max+dy;
3 s4 t& A! K3 y" ]                        dx:=0;
1 d1 v1 q6 H9 [                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! o1 Q- h+ G& J                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
( H2 y- j7 G# v8 X; s  e                        dy:=activityspace[2,rows];
/ X7 J' t! R/ r3 e! u9 ~, r0 o& O* F                end;
0 o; Z& t6 ]% y1 i. |; d8 N                dx:=dx+activityspace[1,rows];
, H  j8 }% u# ?; t" [, e3 {( \                /*if mark=true then
                ct:=activityspace[2,rows];
' b% I' [7 w( a3 [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
4 ~8 O* |6 G9 H7 Q        next;
        y_max:=y_max+dy;
/ a) f; U0 B2 r0 b. I% {        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);
! k; g' i/ x- B* f7 }        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);
       
. C( O& y# \$ D4 }0 S/ ?        rows:=0;
6 y! N6 f& j/ F- w0 ]) o( y        lines:=0;
# k, {6 B/ t; d* h) n- j5 f; Q        for i:=1 to number_of_machine loop
! b3 d& |! Q* p! T6 O3 r) u7 V+ C                for j:=1 to number_of_machine loop
3 t" q, K# ]+ ^                        if j=i then
3 V1 \% X  q. `% U! ^6 A5 k) L                                d_from_to_chart[j,i]:=0;
1 L, x9 _% J% \" x( ^                        else
, x- y% K3 `) }8 h5 h                                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];
7 ]/ ^( K" \! J5 a8 c9 f; `                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; @8 [4 }# q9 Q: j1 u' w$ r                next;
6 U; |5 G8 Q( C. I        next;
       
0 _; t0 c: S2 h; c1 M( Z        lines:=0;
        partstable.delete;
' ]4 v. ~, A: q; J4 p2 u9 [( V       
9 F9 y" Q1 M' _3 C: \+ A        for i:=1 to number_of_machine loop
3 w8 M/ @7 y  N: ^5 {! ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 F, A. X; c# ]0 y                machinesequence[2,i]:=rows;
, _( [& R" |) ?5 L                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& C9 }) \7 k9 i; V* B                        lines:=lines+1;
4 |5 J0 }" w; S- E. X/ I6 m- o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 O% u. `, T/ d1 n7 y& @/ |                        partstable[5,lines]:=rows;
% R0 E6 a( x5 u6 V9 h. ]                        partstable[6,lines]:=j;
: o/ K6 {' H- Q. }" H% V" F* O                end;
        next;
        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]);
3 \- |$ H; U' A/ p# v        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
5 \+ J2 V1 Y# g        machine.exitctrl:=ref(leave);
       
8 t9 F* v2 R2 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]);
7 }- _6 c; ?  ]& m+ d$ f        buf.name:=bufname;
; h9 x6 F  `$ S' ?: S        buf.capacity:=5000;
        buf.proctime:=0;
& g3 M: h9 O* I  J" F        .materialflow.connector.connect(buf,machine);
       
8 n3 E8 h! w9 n/ ^$ W        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;
$ o3 n5 }0 J( vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
5 b. M& _8 t9 {1 Tend;