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

zooey

is
1 x# k+ J' s5 S% D        mark:boolean;
/ L; S/ t' B# y. h1 J        dx,dy,ct:real;
+ B% P9 R! U$ g7 U7 j    i,j,rows,lines:integer;
3 P5 e  B, E+ W/ Z  h" g    machinename,bufname:string;
# d5 |3 u5 K. k, ^1 f    machine,buf:object;
do
        current.eraselayer(1);
/ P& T/ n2 l  ?; U& s       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ `; H, {) x. k3 S                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
6 Z; d) J6 t. V% T% s0 `/ k  Q                        print"no";
! k& C* w% }" i7 ^5 A+ h                else
; ?3 W, q5 H4 G                        print"cancel";
                end;
                eventcontroller.stop;
6 }6 i: A+ M: B; }2 Z) l$ S        end;
       
8 n# ?( ^' D2 N5 l- k- A+ @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ _) D& K( W+ n* N" x2 w4 H        if existsobject(machinename) then
7 C! G* G* ^- y+ i                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
4 D  l% z0 q- B* w        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" L/ j7 `$ g1 G                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
5 E; k0 f# Q7 ~1 M3 e6 L        dx:=0;
* G+ M5 b, _5 L. z. ~7 ?  V6 N, r2 Z4 }  l        dy:=0;
: s3 Z% o5 f6 s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 ?+ p. a0 M2 q  `; A' l; k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 I0 y+ s. J( j# r                then
" H+ W3 `. G% z1 |, I3 b" }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, b& n# v2 R" [. p$ C& U                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
# ]# N6 H1 }9 i  b1 d# l% M                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 t& R0 Q( k- v% Y                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
+ @' Q' L) D; \) J7 B1 M$ S                dy:=0;
* n0 s6 Q; ]. `% y: Z                        --end;
5 w# g3 u8 O; V                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 \6 I2 }/ f6 E3 P! ^3 A. Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 Q; o! g& W# w1 r                        dy:=activityspace[2,rows];
" \/ l' V. a4 M2 R                end;
7 B. b5 S. W, b- T$ ?& O/ }9 b6 |                dx:=dx+activityspace[1,rows];
: z- w. d7 S* a                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
7 A+ S* x  }% c, g4 G7 I        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);
       
        rows:=0;
        lines:=0;
1 d2 f+ Z. K+ ^) w; _1 O/ ~2 G        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
; K( }7 F5 y/ _3 \                        else
$ X+ D: e. a* E/ ?" f5 j                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' `" v& u% o- K7 y8 x# y% r6 |                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 F: {, l7 v# V4 `                                d_from_to_chart[j,i]:=abs(dx-dy);
& S% s5 ]3 k  d7 @2 I$ M                        end;
" R$ B8 f6 c) j# i' g4 B2 f% I                next;
        next;
. k+ k6 W8 p* x8 r' S$ q" P       
7 F; X% q1 t0 F( ^8 W. \        lines:=0;
        partstable.delete;
1 o0 S/ P7 ]( J       
/ c6 C' c* K' z% S9 H4 l* ?        for i:=1 to number_of_machine loop
! O8 x9 a+ i. @7 z. i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 k% N1 k3 X; v/ E  k3 R                machinesequence[2,i]:=rows;
$ D4 L2 u% W8 @) x                for j:=1 to number_of_machine loop
) Q7 O: i) @* I! v: p4 Y6 F+ e7 K                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* \1 H- j, \& J8 Q) K7 O                        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;
3 ]7 n' O, P" Q) |                        partstable[6,lines]:=j;
                end;
        next;
! G4 R  q/ S1 p8 V; L& A$ U1 q& `        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]);
0 _$ N& J* j* j" u5 \  \3 _9 l        machine.name:=machinename;标识符未知
        machine.proctime:=5;
9 c( b4 g1 j' A- R/ m: J5 b  n9 }        machine.label:=activityspace[0,rows];
" \8 O) v! M+ C$ M3 _8 @/ W8 E        machine.exitctrl:=ref(leave);
% Y: P3 z6 T+ t/ |! d       
        bufname:=sprint("BF",rows);
" v0 z; {5 u0 J1 C5 M5 b5 @) B6 A        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;
$ @) T" V, Y& x2 K3 F        buf.capacity:=5000;
7 j! c  v, P- m: h  `1 u; R        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) B- p+ z# G; j# n5 n" N7 @: v       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 c! q' K1 W8 P' Vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
2 w6 n8 L1 i2 X  H! r: ^# Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
" V5 t+ `7 j6 b/ A% J