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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ [  W% p1 t( @7 A( z6 P    machinename,bufname:string;
6 v* Y  K( k* ~. X* e  k7 J    machine,buf:object;
1 U7 ~. U' W, V. Odo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 X- L; m$ `7 l) g% R. Y                inspect messagebox("设施数目不对！请核查...,",50,13)
) M- f6 T! }; B6 h7 R4 X' U                when 16 then
3 G' a# _0 W5 l1 M0 t" g- G                        print"yes";
                when 32 then
" u; Y! m+ \# p& V' s: f8 j; P                        print"no";
5 ?( ?5 C5 [+ ~1 I3 ^                else
                        print"cancel";
; ~* Y, Z) ]  e. G& F                end;
                eventcontroller.stop;
* Y2 \4 ?" ^5 D7 b) Z: }! p        end;
       
" N# t* g0 |7 z& `, P/ l; b        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( f3 H  d8 l, e6 S  k" h: ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% W4 k3 B4 e/ j# u                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 V6 T2 _7 P# }; w1 ]# Q        next;
       
        dx:=0;
2 i: i2 b  N' X* g8 G* ]- n        dy:=0;
- B) j" F- r0 Q% j4 L        for i:=1 to number_of_machine loop
; l. Y. t8 l% `/ j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 a' v. ~9 T; [$ ^  J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 d2 v% |2 D8 [$ v                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 Q; w8 a  K' `                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' o& a/ h, I7 E6 s" b2 [                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 X% Y3 ^/ W6 f* W                        activityspace[1,rows]:=ct;
                        mark:=true;
6 a0 R' U1 F8 V  u; q                        else*/
                        y_max:=y_max+dy;
2 U$ ?' m: E, n9 ]8 T; m                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) L; O1 x, i. {% `+ S1 G- E4 _                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
3 n$ a! Y8 r1 C. ?; z                        dy:=activityspace[2,rows];
" ~* ~- |! f; i, U" k3 t9 X" M                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. {; F) H) z! Q  W                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, O9 y) N7 g& {  G4 g0 f                        activityspace[1,rows]:=ct;
) s+ v# V% x8 G                        end;*/
" L$ a( E  L) c) Q/ I1 Q8 G( C        next;
        y_max:=y_max+dy;
# |$ O! u: t9 P9 t2 w0 G        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);
! S1 S* Q' Q7 G2 y$ g# ^8 i6 o: j/ h) {        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);
& E6 m6 d. f& N- R. S( I; K       
! }. y, s2 J% U; M/ Q, o& F        rows:=0;
  P! h2 m4 u$ E        lines:=0;
1 W' c, X) j0 y! p        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 \6 `5 Q5 q! n; i                        if j=i then
                                d_from_to_chart[j,i]:=0;
* w5 v( g8 b) L8 d5 |9 V; L                        else
* |; u  u6 C3 v. ^" P2 h                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 r5 b$ ]9 W3 s0 z* c$ A                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, F/ p9 j* Y& ~' B                                d_from_to_chart[j,i]:=abs(dx-dy);
6 t! [* \# y/ A5 {                        end;
                next;
        next;
       
        lines:=0;
( ~# `2 o$ i5 q3 z9 H: L        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
8 c+ u/ x: _/ T  X7 h. a                        if w_from_to_chart[j,rows]>0 then
% t0 y$ x  l% E2 ^7 u  j# l" j                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 [  [, J8 {: W7 S( T                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
8 D: V2 Q. S" H/ |; n5 d        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]);
& G" R! H. [. u7 v  Z. z        machine.name:=machinename;标识符未知
0 n) M8 ~- w" z( w        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 M& M! |9 ]* b1 K; Y; b9 l& O. w        machine.exitctrl:=ref(leave);
% k) A% }0 ?2 Z" ~6 T       
7 e5 S3 n% L. [* B/ Y        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]);
8 T  }. b$ B, F/ s/ W7 Y1 [        buf.name:=bufname;
0 B. ?; b5 x* g( l' J% Q: r        buf.capacity:=5000;
$ u% C' K: I+ Y) Z% R        buf.proctime:=0;
' F" \! I2 F3 k4 Q. T# a        .materialflow.connector.connect(buf,machine);
       
7 d, Z) u- A  C; C        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;
$ F0 G! A- U* g% r$ z) J1 Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
. T& V: X& }7 j. W" v& k/ q6 Y. _. w