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

zooey

is
8 J' P4 t9 F! s7 x" U# p3 ?& N5 p        mark:boolean;
8 G4 A8 V8 G! c8 a7 x* V* K1 K        dx,dy,ct:real;
% m; ^% F; x3 x$ m    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
5 o+ J) q& _. ido
        current.eraselayer(1);
       
% ^- l) d# F1 ?+ ?" ?) T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" G# r0 _/ M8 R1 S5 }                inspect messagebox("设施数目不对！请核查...,",50,13)
' L* a+ o* b  A6 S- T8 d# A$ `! y0 @                when 16 then
                        print"yes";
% D( E) @3 b! z5 X0 e9 ^                when 32 then
  i- h5 I/ F. |. g- [2 V                        print"no";
                else
/ x1 a4 |0 F: q( {                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ X8 Y6 |/ O. p" ^, a" Y        if existsobject(machinename) then
0 o0 Z+ d+ t8 P$ g3 R                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# q2 X; c$ U. _- @        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* {4 B1 @0 c( h$ x                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
' d0 Z" a- ]- P: b$ m- U1 W( y        next;
       
# _7 s! q0 h" O& |4 i        dx:=0;
# t0 b# W# q3 W/ T5 I; V        dy:=0;
1 T& O9 K- n% n7 E: C        for i:=1 to number_of_machine loop
6 F3 P7 q6 h) ?( r2 h, P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* `1 }0 L3 o! w# `0 ^2 P7 j" O* {                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 n/ D: [+ H. ?: D% C$ W- m                then
4 J: d- r/ j% V6 f! D                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 ], Q+ H" [4 d0 }8 h5 ]) B: O                        activityspace[2,rows]:=activityspace[1,rows];
3 l/ \& |2 \0 Z- A                        activityspace[1,rows]:=ct;
6 K1 E7 u5 v. l$ o                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, C9 ^! G5 m& c6 j                        dx:=0;
- {- L' p1 @, |5 E" F5 z                dy:=0;
2 P. {2 P1 X2 P                        --end;
                end;
# B0 l/ v+ _; i4 }: ?' _( t& q                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 K" G5 Z& V  p$ i7 o# z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
1 O- t  Z3 i% {1 _                /*if mark=true then
6 x6 H0 J1 r% `5 x( Y6 t                ct:=activityspace[2,rows];
  u+ A# [, u7 k( E; U                        activityspace[2,rows]:=activityspace[1,rows];
; n( Y8 I7 O, s                        activityspace[1,rows]:=ct;
. L. p+ O6 X; _& r" ^) k7 E. C                        end;*/
+ \5 S* P# t# s  n; W. x$ R9 p        next;
        y_max:=y_max+dy;
        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);
" l! m% l  O9 r- r, p2 \' `       
        rows:=0;
2 x/ J9 W& Y5 l6 W; D: E        lines:=0;
        for i:=1 to number_of_machine loop
) X7 |. D# k( x3 k6 |                for j:=1 to number_of_machine loop
1 E8 ]" Z: _1 E4 U, x; R                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% z+ I' o. o. W8 {2 w/ c                                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);
, Q" e2 ]+ ^" V                        end;
                next;
" [7 U6 Z4 S$ |6 ]9 y8 z+ j  F& r        next;
       
  e9 R' k. v7 a: e7 M/ N" x5 W        lines:=0;
; r8 X' V+ [5 {/ d* `7 O0 v" u  x        partstable.delete;
       
        for i:=1 to number_of_machine loop
! [* N  g9 Z9 B2 N3 d9 v6 h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" Y. V, _4 d/ f# d3 [                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 M5 C$ V* s. t  S2 e5 k$ q$ P                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; f2 q0 K1 a" g2 `+ x/ r8 l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 j' T% Q' W* c' X4 y5 `                end;
4 h. J- A! w' v1 E9 s        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]);
        machine.name:=machinename;标识符未知
; I  _" S9 x) c# A! U        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
! J4 ^( n& @0 |        machine.exitctrl:=ref(leave);
6 a' O; o8 r8 Q/ J) D; M       
        bufname:=sprint("BF",rows);
: X& ]7 o5 h3 I. [2 B0 q8 L        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;
$ J( z  a, O+ I+ w$ J" C# h        buf.capacity:=5000;
8 L) G9 }1 I, o        buf.proctime:=0;
1 E; ~- f# e" U0 \# b        .materialflow.connector.connect(buf,machine);
8 E3 b7 g! X' i6 f  t5 @- G  w       
3 K3 ^) r# E) Z9 b6 I2 N7 }2 M- q, @        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;
# B, M) V  q: `$ n0 scurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 S5 o- C2 U# [) Y, s; Cnext;
end;