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

zooey

is
        mark:boolean;
7 ^9 o0 w$ i6 {) K' ~6 l- _: Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
  j$ [0 H. g6 t2 \0 a    machinename,bufname:string;
; h0 ]  L, C. n' V! }    machine,buf:object;
# e* G. J! }3 h8 F( \2 P% kdo
6 U# B0 S, |( T$ s8 g% P        current.eraselayer(1);
. y& F5 d# w& _7 w       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! D- R9 D: Z3 E7 j& s, q% ?                when 16 then
                        print"yes";
/ g0 v9 f* }. z                when 32 then
                        print"no";
# Q- P3 K( `% u/ _                else
                        print"cancel";
                end;
                eventcontroller.stop;
3 L' n, r, @1 K6 X+ h) w) W/ L  |        end;
       
6 e& ]8 h$ G, X+ l  P) x: _$ @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
- N# z5 T3 j* ?! t8 C1 h4 B. ?4 [                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ R4 x+ H- x3 K7 b7 F% t        end;
0 u$ z" x7 n' [        bufname:=sprint("BF",i);
; `; U' M" x+ `' f! a. H8 w; W        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
5 u' @; X) g0 D! H       
        dx:=0;
. P8 q: C) `. k8 N        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 X( J6 `4 z& v6 Y                --mark:=false;
5 C- o0 d6 N% U  x1 ~& \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 E7 \) f- e" [# b, `5 G                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& D1 Y# j" u2 U* D) p9 F" ?                        print activityspace[1,rows],",",activityspace[2,rows];
. y0 j" s9 Y' z4 M6 k! z! @                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 j5 f# O4 E0 ~: H8 ?! A                        mark:=true;
2 z+ x3 x+ c7 g" f# v                        else*/
7 X9 P7 h/ }1 H4 w3 L                        y_max:=y_max+dy;
1 V) b4 V) X! W5 y) v% U( |                        dx:=0;
$ r  p7 p) @8 s1 o/ @# q; n                dy:=0;
                        --end;
                end;
2 _% G( Y  H$ ^' D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: S. b* b- I) I* M% Z% }+ z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
# p( |6 ~* o! l8 ^                        dy:=activityspace[2,rows];
                end;
" L2 S) q+ U5 i+ m/ x                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
4 P9 G* i" n% X( v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 q; Y4 D- g' M9 n$ e                        end;*/
        next;
' Y  t& X! f3 V- W  L/ s        y_max:=y_max+dy;
; o- O$ s, I$ a        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);
& ~; B; y5 W3 I6 a" U        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);
0 [; z& J2 S7 X, E       
        rows:=0;
        lines:=0;
  x) O  H. z; H) R/ m6 g        for i:=1 to number_of_machine loop
: |8 n/ \! p* W2 z) a2 X2 p1 R4 l( P                for j:=1 to number_of_machine loop
                        if j=i then
4 |9 u7 R7 a/ z, z) A" H                                d_from_to_chart[j,i]:=0;
                        else
% a" r9 A. u& w. `/ F# Q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ _# ^# Y; W% {. S                                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);
) a. P: K, w& q7 E3 f                        end;
1 X- ?4 I( @0 l+ x5 M$ ?                next;
$ m% _, x1 i7 m5 q: Q7 x* Y0 ?        next;
9 {# s* X+ O, U       
4 M% A0 ~! U8 }3 J3 Y        lines:=0;
" j1 l+ M# n  |- y4 J) |        partstable.delete;
8 R+ N" y0 q  Z$ j! m3 i9 f& T       
; c! u5 c4 J( ?% W        for i:=1 to number_of_machine loop
  g6 p1 D& j0 Y' S% z% ^5 e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
6 x+ h+ x/ C0 d4 o4 J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ C2 a0 F) O" m                        partstable[6,lines]:=j;
: _2 F9 ?% `+ n                end;
- i0 C6 N0 u( \& q8 z! I        next;
3 a& L( m$ r# L: Q" A' o9 e  S& p% w. c        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;标识符未知
. E4 I! w2 {2 H& N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
+ O' P/ Y5 {% r, l       
& n& |2 p4 M5 q$ O3 _4 z! ]& Z        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]);
! g! _# O+ M( z        buf.name:=bufname;
0 Q) U( D' G$ F; Z$ w/ H        buf.capacity:=5000;
% Z+ o" H/ A4 H! V/ x        buf.proctime:=0;
* ~+ B' }: H0 ]' B        .materialflow.connector.connect(buf,machine);
1 {) J# H4 G* [4 g+ B       
/ m: V9 ]. w8 W" X1 x        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);
8 b: _2 R# c8 p3 p# Onext;
/ w. b0 N& j2 L% U4 ]4 Oend;