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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
3 ^% o! t* J& {3 G8 O: i+ d    i,j,rows,lines:integer;
( ]' }: e0 v( L* d    machinename,bufname:string;
. M' q2 D( f( e  g, h) G: r5 P    machine,buf:object;
& [0 n/ U5 w+ K; Z$ \5 qdo
/ I; O! a; e9 [        current.eraselayer(1);
& F) m9 x! r0 q) ?) M" ?4 P       
* G1 y$ l! n7 e  R4 f* c0 \% R        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ S( r. t+ N) w4 n! a* W                inspect messagebox("设施数目不对！请核查...,",50,13)
$ Q8 }/ L6 f3 N6 d% w                when 16 then
+ a0 o0 F, M& M2 h" f# f0 T4 B                        print"yes";
; J" Q% w* W* d; \2 z- E) ?                when 32 then
                        print"no";
                else
7 Q& x3 s  }( Z* U' ~6 n                        print"cancel";
" G( e7 S/ ?  R: q                end;
                eventcontroller.stop;
6 O/ V9 P# \: p# }- c: K        end;
4 h1 h) `+ W+ Y       
; W; j3 L' |8 c2 x% Z( R        for i:=1 to number_of_machine loop
/ C$ E# W& u( `: G        machinename:=sprint("M",i);
        if existsobject(machinename) then
! u* z) a; Q8 h* U3 d+ Y3 n8 V! v                machine:=str_to_obj(machinename);
) h* a( Z# {0 W+ R                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" ]5 _0 j, _: {5 f6 R, b; i5 s+ X9 A1 S                buf:=str_to_obj(bufname);
  ?1 z- ]8 I/ }6 c, S, _4 A                buf.deleteobject;
        end;
: A; w* l2 C9 p# _$ Z" o' `        next;
" m$ B$ u. z" |       
3 M/ \4 g- R( x        dx:=0;
        dy:=0;
) r' ?9 u) f4 w7 M- @! y& O        for i:=1 to number_of_machine loop
# l7 `1 D7 j, g/ U; B' w* R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( ~- ~5 e% J' i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! ]: {8 W; L. P5 y7 _                then
' @" h  g8 y9 R* K+ B                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
0 }: C+ M. [0 O+ W: {                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 d( _/ R3 x- L5 g                        activityspace[1,rows]:=ct;
: {& ~8 d" b( B. f                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
  @; Y6 i5 I; {$ [                        dx:=0;
                dy:=0;
9 Z: J1 O( d0 N! `                        --end;
& O/ F" P, h/ Q& ~                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ Y% b: S& K6 C4 G1 s) U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
3 B8 r: d$ A! R4 p0 G- x' l; U            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& `2 N2 ^( _0 x9 m+ W  t3 v0 j                end;
0 @: ?3 Y0 N* J& `                dx:=dx+activityspace[1,rows];
8 p5 J4 W% e3 D! A' u$ M( x" v2 D                /*if mark=true then
/ Y+ s! f/ B% `                ct:=activityspace[2,rows];
! d" ]  k( E4 R! i" {. N% U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
/ j: h1 Y' a( L$ j. D8 ^        next;
- e# c% N+ {; q5 v, W3 O. g* h# f        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);
- c& i# i$ Y% J        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;
& a( ?3 C* F5 ^$ y        for i:=1 to number_of_machine loop
0 x; `# u8 e" G                for j:=1 to number_of_machine loop
/ ]% a% }* v( r; p                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 f2 u$ K6 X2 d! a' y                        else
9 }" R* o8 u# `) 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];
+ q0 V& Y. M  m, i( b0 e9 y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
9 z* }! C! F: N6 m" E, o9 F        next;
       
& Q8 y3 g3 C# c6 Z5 ]        lines:=0;
' i+ Q/ r3 \0 @, U" K. s+ _# V        partstable.delete;
       
8 t; o  d: E- h' t+ U3 c        for i:=1 to number_of_machine loop
7 E( I* y6 k$ \9 @& y0 A& H9 o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# T& c8 ]* V! Z  V                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) d! V0 b" [9 k/ t  V7 W                        partstable[2,lines]:=w_from_to_chart[j,rows];
! p" ^) K$ I7 E. |                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# V, B" [' w, g                        partstable[6,lines]:=j;
' Q% v5 D' ~/ W                end;
% g3 e& H$ O! W        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]);
: Y! s: d8 f3 d' ~        machine.name:=machinename;标识符未知
        machine.proctime:=5;
  O7 Z, @7 s7 C: O( X  G. H3 }; @        machine.label:=activityspace[0,rows];
7 c* ~6 E4 H. s/ V. j1 c% c        machine.exitctrl:=ref(leave);
  r, |/ P: ^1 @! ]6 a' Q. \' |% P       
  p+ M3 r: Y  p9 L/ k& q        bufname:=sprint("BF",rows);
, y) \5 ?6 s, r4 u* K        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;
6 Q- ], c6 H) G5 v9 O9 v7 F; I        buf.capacity:=5000;
2 O9 y: a* W# H9 X        buf.proctime:=0;
) D- g; g" s5 i- A, A- c2 L0 H1 ?        .materialflow.connector.connect(buf,machine);
4 U4 {' X7 F0 H       
; _+ Q1 X/ e8 E0 e# e3 |        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- ^7 C+ g( g+ p. I+ O% q6 r6 D+ Sdy:=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;