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

zooey

is
' p$ K; u4 w/ q% ]7 V        mark:boolean;
        dx,dy,ct:real;
5 p6 ?4 M( J, L" z3 Z9 E0 N+ i) c    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
1 H- n' s& Q$ J( o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) `0 F3 B( @: i1 c                inspect messagebox("设施数目不对！请核查...,",50,13)
/ G8 c6 S" o, H/ ?0 c+ R                when 16 then
                        print"yes";
                when 32 then
( `& p6 V+ A$ m% i( A0 @* [                        print"no";
                else
* L* A. a" T) f" s8 i7 |+ s                        print"cancel";
3 g( V9 J0 m" G6 A2 o" \                end;
; }: U$ ~" `/ h: M/ n& c/ E                eventcontroller.stop;
+ A: P2 [8 K7 K% ^9 r        end;
" L& u, X1 z& ^& L( [       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
, v9 \0 Z& f  G7 N. O% ?, U) H                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
' N) B& R2 M1 P. @        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* ~5 s) O) c$ P0 r' \! z$ g        next;
) M7 O7 @' c+ z$ `) ]2 O7 S       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* Y% K7 \: p. U! H, m- j/ g# P                then
( D9 w3 f" X- @+ 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];
7 F  _2 k+ r- V( l) t' {: l; [- `                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 |3 C# q, ?/ D& @                        mark:=true;
                        else*/
' n8 V+ W& c9 |! \( [& a, ^                        y_max:=y_max+dy;
+ t$ j5 J! H0 x2 ?  D5 X8 p. o                        dx:=0;
                dy:=0;
4 E6 `+ y! q. V. s& A2 \& q5 Z& Q8 f                        --end;
  R! p, o: f' [1 o$ z                end;
( O5 Q7 a' v$ A2 f                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;
5 T1 B# z5 M4 b% O+ F6 t# W            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
" }6 M/ m' h# J3 q4 E  S                end;
                dx:=dx+activityspace[1,rows];
2 o2 G4 V0 f7 N% u                /*if mark=true then
& Z; Z8 X' O' }                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" _/ W" g* M) R6 H4 q7 _0 u; R                        activityspace[1,rows]:=ct;
                        end;*/
& P. N9 T  ~0 V' S. a0 g        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);
        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);
- k2 P$ t( ~5 G; u$ T       
        rows:=0;
: a3 j$ Y5 J2 G) u1 l$ b' T        lines:=0;
        for i:=1 to number_of_machine loop
7 g' p9 f$ d7 D+ f  R                for j:=1 to number_of_machine loop
$ y7 U7 J3 U. u, M* m                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
$ {" u# k7 G  d- B7 T, B                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 A, B6 }) ^& e+ Z9 Q8 d& @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: ?7 ?& o% [: ~! S2 _3 F                                d_from_to_chart[j,i]:=abs(dx-dy);
! J  f  a) q; q$ z1 i9 }7 D                        end;
- [, n6 M  _8 V+ J" N0 V                next;
7 {$ W2 @$ c/ {) x( t) k        next;
       
        lines:=0;
: ^5 \0 \) S* ^9 k9 p4 S        partstable.delete;
* @$ J' x: k- C" {4 P7 s2 \       
+ r4 A6 `9 {' S6 g, Y+ s        for i:=1 to number_of_machine loop
: ^* u  g% o6 K3 ^3 Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' A. Q- h/ Z; K4 w6 l* Y! G                for j:=1 to number_of_machine loop
5 X# e/ x& ?) K7 ]                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 F! }! `, t; k# q                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 e! u) e7 f2 [3 b5 m! ]                end;
% O' W" D" ~) U0 R        next;
        machinename:=sprint("M",rows);
! L4 l" d& u8 s        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]);
6 I* h, J9 b/ J& X2 J& `5 C        machine.name:=machinename;标识符未知
' B3 J9 B; w) A        machine.proctime:=5;
4 l4 }( }1 C8 v. i* w! [! u# ^( i& J        machine.label:=activityspace[0,rows];
, `1 Y5 {! p$ V) O7 E        machine.exitctrl:=ref(leave);
+ O( @; i# p4 ]) W       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
) I3 S' X5 R6 N/ g        .materialflow.connector.connect(buf,machine);
       
0 v( }0 y% @  ^6 F  K" \8 T" O        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
3 A  A% z7 G3 [7 Wend;