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

zooey

is
        mark:boolean;
0 d. A% b( A1 h2 M        dx,dy,ct:real;
( _% n6 q6 s) w$ Z    i,j,rows,lines:integer;
    machinename,bufname:string;
& v& m4 `% K* w+ \* D    machine,buf:object;
9 r1 z6 k6 A8 F: S! ddo
. S; S+ F: t) d) R! {* ^' H4 Y        current.eraselayer(1);
       
# B: _8 }* N& d* ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. [1 B+ Z& l/ X6 T: J5 [6 o                inspect messagebox("设施数目不对！请核查...,",50,13)
  i! \) F) M# f; P" a/ b; O                when 16 then
; O/ u0 y3 K- m$ k                        print"yes";
7 J# b0 U3 T/ N2 s                when 32 then
: [5 k. ^! W0 N                        print"no";
9 l& A: r8 a- d0 M. [8 k4 L                else
) s+ Y7 C2 b  y; C                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
+ h) `5 \3 s% A- P; W6 c8 W        for i:=1 to number_of_machine loop
, t6 `4 Z" a" @  C+ @4 t1 `        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 [2 y0 r0 D+ M$ f+ N                machine:=str_to_obj(machinename);
# c3 \7 b0 }: r' v8 s! v0 R$ j                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 b* q% I/ `: h8 n- j6 p        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) a' X/ [2 W1 U! \  \5 B; D                buf.deleteobject;
$ w  l, g" a3 c; k, `- x& J        end;
  U0 {( E, P$ C1 x. s        next;
       
5 @: P% T) b$ j2 |        dx:=0;
3 h0 Q8 G" J7 F# w! h% F  F        dy:=0;
        for i:=1 to number_of_machine loop
, T: a% O" Y0 ^, a, x* C: a+ T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 @& R$ T# |5 }- o8 g  S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
/ P! `8 J8 B* o1 X                        /*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];
' T+ x6 ?# V1 O  M, w# P                        activityspace[2,rows]:=activityspace[1,rows];
$ _, |1 S7 E# q5 q/ w* Y  S% Z                        activityspace[1,rows]:=ct;
5 r- D2 ~0 d- P. h- r$ v. Q. n                        mark:=true;
" Y4 j1 T/ {+ N+ U                        else*/
                        y_max:=y_max+dy;
! W) Z1 g1 `2 i) K/ l' [                        dx:=0;
$ Y" x* }, e+ X. R& n. G- g2 W                dy:=0;
4 c  P# q$ N+ e2 S' m/ G/ V                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ A9 O2 V* v# s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
/ ]8 N5 A$ n( B) z7 ~                        dy:=activityspace[2,rows];
                end;
5 ?% u1 \# t* U; N$ z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ l8 _  u6 ^3 {5 I$ b: k                ct:=activityspace[2,rows];
' X+ l; y! ?- `; T+ S                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
8 f1 n7 ]' `6 Z        next;
        y_max:=y_max+dy;
0 I3 ^) \- P: A) \        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);
       
+ V/ L) C$ Q4 ]6 t- x        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
4 w6 c9 E4 O1 ^                                d_from_to_chart[j,i]:=0;
6 l8 Y% h. P: X+ w0 [2 O/ U                        else
9 k5 L8 d" L/ a2 Q                                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];
, T1 h, j. [; S8 V: E                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
2 H# n& I! Z5 B( v6 m                next;
8 c; b6 U2 K. K, `" c, z# B        next;
# D' ^) _& U5 ~5 \4 J       
        lines:=0;
; {- L  z/ U% Q7 [/ N        partstable.delete;
       
        for i:=1 to number_of_machine loop
6 R2 h  ^: z8 |* i" I' U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ S3 s/ o6 D6 f: c9 W1 V3 J                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 s. F0 o* L3 b  f8 }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 ~8 Q/ R4 _4 L, c3 b/ y9 u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ K7 R  i% J: G( N3 K                end;
* w5 J% `9 T1 p2 {        next;
5 C7 }8 I" o- Z- s8 R        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]);
% q3 `7 M) G4 F: g) l0 w1 L: O; R        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 S& z6 w5 v2 u9 ]* F! F' f        machine.exitctrl:=ref(leave);
0 |$ u+ X/ @& |0 B9 p       
        bufname:=sprint("BF",rows);
) f4 b2 f' e2 e# l3 x        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]);
: G6 N/ R/ K' i. t$ P+ H+ G" O+ Y! R        buf.name:=bufname;
7 n& r( R  p3 |- z" U* y7 d        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% K7 D; Z6 L: d$ G# S- K       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" r, V. t5 ]0 o9 V, K* G. \% ^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);
next;
end;