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

zooey

is
4 c9 a- k  r1 l, j8 W! P        mark:boolean;
$ k* s; S* L5 e        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
3 O& S( c2 ~! Y- f9 s    machine,buf:object;
8 g. c- H: S0 c2 y4 K9 \% z* jdo
+ ]$ S5 Q5 @) G, d: ^; _. M        current.eraselayer(1);
       
% W: n/ D2 Y- X- P- L* V$ g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 G; Q; t7 ]/ x% P& y: o2 @7 ?! s8 A                inspect messagebox("设施数目不对！请核查...,",50,13)
! C1 ~( [3 ]) L# H7 ~3 p* K                when 16 then
9 _2 n7 C; c9 m0 E, y) v5 K                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
. I1 L0 Y9 r# d1 Q  Q+ V                end;
                eventcontroller.stop;
: ?$ R& n9 n# ?) }5 {* D- T        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# z: z( O9 \+ l* p* F  s        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* v1 g  A- j: h( m+ x1 [                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 k7 r2 ]- T3 |9 E5 L; @6 I                buf.deleteobject;
        end;
        next;
       
0 i+ }5 @9 A# h) ~/ D/ r        dx:=0;
8 Z" V8 q; r# B- h. [5 s! Y        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 E4 k: r, e! d# r" D: _4 l, h* }                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. w+ `/ D' l: E/ S5 p2 T$ R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! R$ I# r( b6 W; y0 V+ @  [9 i! T                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
4 b& S8 V8 H. z                        ct:=activityspace[2,rows];
' ~1 g6 f4 }! L7 W. K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
3 ?) b# r1 d2 u2 Y                        else*/
$ K7 o$ S& i; _3 }7 H                        y_max:=y_max+dy;
: r+ i2 m; n2 x/ C# e! i                        dx:=0;
                dy:=0;
                        --end;
4 `" t/ |% p1 P# G                end;
: ~, c$ l% ~% a( |* _                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 Y4 I' Q0 l- s8 Z& W  x5 r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' o5 }& w7 a0 h            if activityspace[2,rows]>dy then
4 D1 i# C3 Z! Y  H8 J                        dy:=activityspace[2,rows];
                end;
4 ]# c) @" Q! v+ N$ X! c                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
* _0 x2 B+ K  f- L+ v& I                        activityspace[2,rows]:=activityspace[1,rows];
) i/ G& s% P% x* B( S                        activityspace[1,rows]:=ct;
- `2 k1 e8 h+ d* B' t                        end;*/
8 [/ m6 N0 V4 h) J' _! q. s        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);
       
' ^/ z3 Q- G% J% F2 C" K% @( d: T/ S        rows:=0;
; O+ C# c$ e% A* ^! j7 w5 y        lines:=0;
6 J, N3 u. s4 U) C        for i:=1 to number_of_machine loop
$ o2 p& s5 f$ t  l; Y                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
, ~! @# @5 |' S' t3 I                        else
# B6 S0 _# f0 p8 r                                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];
0 k; {' S# R. B6 I! {8 i$ e8 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
9 {4 k9 l2 j7 B$ ]# a" b                        end;
7 P# p3 n) n) U( W" Z6 w                next;
. n; J* ^7 V7 X: W& ~6 O# H# q1 f        next;
* N$ ]$ N! {& \) _       
        lines:=0;
. M$ Y- r  D* K( N, R/ D  _        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
0 A: M8 |. K4 q$ H) M4 C                for j:=1 to number_of_machine loop
$ n8 _0 I* |# Y1 T0 H" `                        if w_from_to_chart[j,rows]>0 then
$ C4 P1 G' o" o: U                        lines:=lines+1;
) z" N& p4 E+ X: y6 [3 ^7 ?( g2 b                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( t+ M% E0 r% k; ^* |/ x                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& r9 K- ?1 K3 X' F                        partstable[6,lines]:=j;
! W) G5 r4 \: [$ ~2 [                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 `; d$ h! R8 b5 F6 C* o  ~. [$ X        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
: g! M, a0 Z$ y; u       
        bufname:=sprint("BF",rows);
: `$ ~8 c" B; }; C7 s, f. `) F" P        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;
; B3 D" b( h8 ]        buf.capacity:=5000;
        buf.proctime:=0;
; D4 `% m. W; N: d- t1 X! M# c( T        .materialflow.connector.connect(buf,machine);
       
' Y  k7 W( `5 P+ R        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# y7 L) u6 P  R2 edy:=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);
next;
end;