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

zooey

is
/ i. u! r7 `8 [2 q* ?        mark:boolean;
        dx,dy,ct:real;
+ e3 N9 a7 C: M    i,j,rows,lines:integer;
! O1 D+ J4 M, T. L    machinename,bufname:string;
    machine,buf:object;
9 s0 h& k; W+ ]) N% Rdo
6 q5 v$ Y' H! f4 X        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
# [& E# l, Y6 L0 o. m3 Y                        print"yes";
                when 32 then
: d8 x# l; \" Q- Q. A0 g- ?                        print"no";
) A, C* C2 I: }! d1 y- K" Z                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
1 w5 g5 E: K8 R% G       
+ E# \; q. a# Y& i7 l/ v! k        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
* a9 v2 l8 S7 b1 t( a, I* M                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
! C$ c: \$ H9 F  F        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 A# g( V% P; @' B" c9 x                buf:=str_to_obj(bufname);
# P; ]( x1 X  P9 f7 L0 ~                buf.deleteobject;
! a  Z8 s; g; f. e" s# H: t: [        end;
3 L% U: Z; m3 v% ]; y        next;
6 \" b5 I+ {$ g9 Q( I* ?9 q       
3 |$ v5 G, {1 i, M' N( e1 p        dx:=0;
! O' p; B5 A5 o        dy:=0;
        for i:=1 to number_of_machine loop
+ f6 z) _" R0 S: W7 C# m5 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, H9 E9 {# e4 @9 u0 D                then
" x! k' ]# G) f7 x" u3 g+ h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: ?) }$ [6 j: r! f' p8 F                        and activityspace[1,rows]<(1.05*y_max) then
3 V; B3 |9 y+ {                        print activityspace[1,rows],",",activityspace[2,rows];
% A5 i$ I2 W" L, l* `; [                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 o; Y# E' K5 V# r                        activityspace[1,rows]:=ct;
" d3 V4 E7 A. @4 `& a                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
- k: U! ~% s4 V  `/ I! t3 x& q                        dx:=0;
                dy:=0;
% q. v* Q! n" E" r, W0 Q1 n: E                        --end;
                end;
: r0 D$ ?6 M$ |' l6 M$ D! u                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) \6 m2 {, Y/ p$ C; A* x                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* s8 U  v" {5 z- F                        activityspace[1,rows]:=ct;
! k- L2 i: s6 v0 Q3 }                        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);
' M3 T" b& B) }  J# m        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);
       
) _5 `* R: V5 B2 I" D" A, Y. ~5 v        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 w& ~) G8 f' O1 C9 Y/ w  u- t# j                        if j=i then
                                d_from_to_chart[j,i]:=0;
& v  [! w/ A) S$ f0 q' o3 m                        else
% p' l3 F$ K, Q$ z/ ~) y, F. p1 c                                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];
2 q+ z* i% @/ R, ]9 r                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- Y. G0 B% X0 F: x" c) o                next;
        next;
- A  z: g  h! a2 R/ k9 x" ~       
        lines:=0;
        partstable.delete;
* M" I, q! _# q3 {: q, @# H5 n/ x       
2 P1 s/ _) w; ^1 b        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( i8 B& A6 u( J" z7 x% G" W                for j:=1 to number_of_machine loop
# {$ f5 S% b) ?# v  p7 V4 E                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! Y8 L; ^4 c* v" n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& e0 d9 V* {9 ~. [9 I* A                        partstable[2,lines]:=w_from_to_chart[j,rows];
% w" a* i2 p! j                        partstable[3,lines]:=sprint("parts");
) R8 o) U" L: V* c" B1 B                        partstable[5,lines]:=rows;
0 K! v: s5 g  o6 m, M- Y! P$ p+ o9 T                        partstable[6,lines]:=j;
  m' P" @/ N6 M# S! g* B3 O3 j                end;
5 p1 L: u% {9 D; K6 L8 C        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]);
  O( x" f5 B. b' l        machine.name:=machinename;标识符未知
' T6 k/ I5 u6 e/ }, _: B0 s        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
& L, ?5 N/ O1 O1 m* Z        machine.exitctrl:=ref(leave);
       
        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]);
: C, p6 Q  ~8 h+ M4 D! f        buf.name:=bufname;
$ n' x6 V4 x1 j: T! N7 H; Z        buf.capacity:=5000;
        buf.proctime:=0;
/ @, v9 \) r4 K        .materialflow.connector.connect(buf,machine);
) J" _8 i1 F1 S4 k' P( D       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 B6 |+ n2 E4 M# B/ ^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);
0 R* F/ K: ]) z% m' J% j; ynext;
end;