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

zooey

is
6 |- L: Z4 g5 l! b% ~        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
. E7 A5 C5 X& m1 C6 n0 e- J    machinename,bufname:string;
3 z1 ^0 ~. L, O, M8 c2 c/ u    machine,buf:object;
do
        current.eraselayer(1);
; Z0 Q; |7 G; p       
* I1 x% y  f  J2 U/ }! G- t/ ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# K2 [9 l! ?3 G5 x* P                inspect messagebox("设施数目不对！请核查...,",50,13)
  k! P. P; a" {9 F& f' x                when 16 then
1 N  }* r6 D/ L& T                        print"yes";
. t" Y0 a5 e- p; r                when 32 then
                        print"no";
/ _! A8 e9 G$ \# w                else
5 x' K/ {- H" {* @7 d/ ]3 a                        print"cancel";
! w* v# A; O4 o4 t                end;
                eventcontroller.stop;
5 K1 q7 b9 s$ K) M        end;
       
! J% u1 U7 s( R% ^0 r( i, [        for i:=1 to number_of_machine loop
( }* ~: K% i* z) P- O/ ?; ]8 J) N! r        machinename:=sprint("M",i);
2 V- ]' V0 w/ |- ~3 _% ]* H        if existsobject(machinename) then
; r4 }( L; i! b7 q                machine:=str_to_obj(machinename);
                machine.deleteobject;
# D2 b- W* ~) f, \7 E$ [) A        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
7 G. o. A  a/ H, i, E  N9 {                buf.deleteobject;
  p) x1 _6 Y5 k$ ~        end;
2 F" i8 g0 `0 x% g: y2 v% W) P2 x        next;
0 p! l& N  `! N5 c+ M4 j7 a' Z$ H       
        dx:=0;
( P2 K3 J0 e6 `# \3 f        dy:=0;
        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]类型不匹配
                then
. `  |( F# ]- }( N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, ]8 w" r, n  _) S" s2 d4 o                        print activityspace[1,rows],",",activityspace[2,rows];
6 m3 l" j; N- l; L1 J                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; W# S" U" C& n6 b                        activityspace[1,rows]:=ct;
                        mark:=true;
* G+ h/ }! ~4 @9 Z, E                        else*/
+ u$ w6 R: h; S( T) ?8 U                        y_max:=y_max+dy;
& `: d4 R/ m* I3 [8 m                        dx:=0;
                dy:=0;
! h' ?/ c$ i8 M                        --end;
                end;
- X/ [7 F+ A1 f                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 }% R/ z% v4 d                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];
$ Q& r2 k9 H7 p$ E& M                end;
" h* I& D, n0 s+ {# J; H5 L& t& G                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
3 O1 Y% s# P' R: K- q* u7 j                        activityspace[2,rows]:=activityspace[1,rows];
% Q6 e; J- I5 U/ E  M                        activityspace[1,rows]:=ct;
# _% x! K- B6 ^% L2 P                        end;*/
        next;
; s2 |* y5 ^6 g/ k2 X9 u% g        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);
3 Y; v. S9 ^6 Q$ S* N       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
! E' {. E3 K9 E6 v. O  f, x+ @                for j:=1 to number_of_machine loop
& N& T! R9 Q7 Y) f( k% Z( u                        if j=i then
/ u$ O2 [! u7 I( V5 M                                d_from_to_chart[j,i]:=0;
& g7 I/ ]6 v- T1 S+ J                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 a, T/ O2 {, _) |5 I  J: k  G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  o3 B( P7 X3 S3 I                                d_from_to_chart[j,i]:=abs(dx-dy);
& ~# u) U6 C* K- A                        end;
) g8 ?; Q! o6 O* i0 e                next;
        next;
       
        lines:=0;
& G! p* o6 t% S        partstable.delete;
9 r0 r: r9 j- O, A% n: }, N       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. G8 y" N$ m: C& W" H' P                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 f) B7 ]3 d7 P- ]7 @; K                        partstable[3,lines]:=sprint("parts");
( D; w) Q5 E0 g: k( ~0 ~& G                        partstable[5,lines]:=rows;
% y, d- |4 p; f5 d- K3 J% c) J2 w                        partstable[6,lines]:=j;
                end;
        next;
3 V/ B" R# [' @/ H5 R- h        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]);
; d* r8 J) F3 L$ [" G6 w        machine.name:=machinename;标识符未知
( T0 T  j4 W; D2 o2 o        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 F% {& ?/ @) m" A' _        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
- z& l5 f4 w, g& u7 e# h3 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]);
& V$ t: ]. J$ K  I. k        buf.name:=bufname;
3 l' O' U* Z2 A        buf.capacity:=5000;
        buf.proctime:=0;
& ^: S; }; h1 {        .materialflow.connector.connect(buf,machine);
! Z/ K2 }; w. K2 m. l  x. _& a       
        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);
$ A# C$ l# Y% M; U# m. m& Nnext;
end;
6 W; H1 s5 |/ w: A/ |& g) L