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

zooey

is
# b4 j- M8 S1 a        mark:boolean;
        dx,dy,ct:real;
) A& V" ?5 g7 c5 z! o    i,j,rows,lines:integer;
    machinename,bufname:string;
3 p3 W- E: h: M: X! q2 [; X    machine,buf:object;
do
7 n6 J. G; ~4 _" X2 N, G        current.eraselayer(1);
3 j8 E# |' _( s/ R7 D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- p. [" X) ?' z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
# s$ ]- n8 |2 c7 A+ ?' h                        print"yes";
' x) p4 I% f' r- t6 G                when 32 then
/ x( y# ^. r, p: z5 b                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
& J& e# L9 I4 h4 m0 V# A, B        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 i& X9 D, x9 e( n- w5 ]0 S. @                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 d0 r1 d# G6 {. z        end;
        bufname:=sprint("BF",i);
$ s5 {9 J; x$ p) z! @( d        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
: P! o3 \7 q/ X+ U! a        end;
        next;
  k  t0 c% v- @: [6 e/ a/ M       
6 E% @0 L% R) [/ e9 G/ @' h        dx:=0;
5 \6 q. a$ c2 V2 T. O; O' i3 o0 Z$ w        dy:=0;
' t* ~$ l& k6 M) J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 G# f5 g7 U* X% J: f. Q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 O6 W: p4 I- w; C1 Q                        /*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];
% _- J6 `- M8 S' {, [                        ct:=activityspace[2,rows];
* D7 h7 N) o" l% \$ i! N7 B6 [0 n                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 o6 r- G$ p) E1 r1 S6 l5 G1 H                        mark:=true;
4 k" l6 {- x* n8 ~                        else*/
- z$ K, y0 _7 w9 U/ B                        y_max:=y_max+dy;
                        dx:=0;
+ ?* X" M4 Y+ y  s7 s                dy:=0;
$ [+ }; {' |4 I* ~  F# p- r( V8 ^                        --end;
                end;
. V) t5 L, n, ^) `6 c                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% @# C# g+ v0 U' Y) O& ^/ g+ s4 c5 \. t                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ j9 @* m$ L# m6 L' e            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
2 S0 z' l% g  {4 F3 \3 d                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 p. O3 B: r; \                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- |! F, J7 [0 q& s( X" B& a! f2 K' G                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  y. K( ^; i, R+ j3 C, T/ D: `4 C        y_max:=y_max+dy;
: D+ D0 |. ~" z, W4 Y- N        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 f* p" c3 W+ u# ?$ t        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;
5 D6 [4 s* }& ]# f) Z        for i:=1 to number_of_machine loop
0 ^' x$ H  ^5 z5 m                for j:=1 to number_of_machine loop
5 ?" a4 O5 I0 I" N& B, t                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 \' W( k8 h% N9 m                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
, ]# R/ }2 F; N                        end;
/ ^0 a. X2 Q2 I$ y8 C8 \                next;
        next;
! @- u* f( y; V+ O" m% ?7 W0 S- }8 S. [8 ]       
2 D( @0 w0 `) R. b- S% I        lines:=0;
        partstable.delete;
       
& t+ G# a$ Y1 {: t) V) P- m        for i:=1 to number_of_machine loop
- `/ K% ~6 x0 p4 x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                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"));
4 Q. T: g: @" }- Y* ^* Q5 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 ?! @3 P6 g- D" B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
% ^2 K( z1 E/ ]; L        next;
9 b7 |1 f3 {2 X' p2 [6 b        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]);
& E2 [/ ^6 ^9 W' M$ E: ]        machine.name:=machinename;标识符未知
( ]0 N7 s& k, o& {1 g9 p5 ^( ]        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
, f3 g0 D6 i5 P# S) T: [, G       
        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]);
; p5 f( T( B# I! H: E        buf.name:=bufname;
- Y& ]  e+ W& Q        buf.capacity:=5000;
. B) b" b" Y8 @" \9 {        buf.proctime:=0;
% O$ ]7 B- ?& A; [" u        .materialflow.connector.connect(buf,machine);
+ {% V* Y, x5 ]' X       
        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;
3 V5 t5 V5 X4 z' Y" R9 Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& O9 }' X- J) x. Vnext;
end;
% }) B# A  b9 n9 B0 d4 H7 }