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

zooey

is
% L. K% R6 v; {) b0 T        mark:boolean;
" k0 _+ L; L! s4 A        dx,dy,ct:real;
    i,j,rows,lines:integer;
, ^; ?7 X/ ~' M: q, J5 i0 Z; B2 \    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
. Q- O3 p' |% S4 B, t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- A2 @% O+ m+ g9 [# i3 R" k% P                when 16 then
- R' H# i/ C; @% L  v2 l# T9 c: \                        print"yes";
                when 32 then
                        print"no";
+ A( Z  f# ?3 B9 K6 B                else
/ g# r: |3 q# g, B* a: l. n8 G+ S0 P" F                        print"cancel";
  `, f& k0 C& d9 o7 K2 z, ]% Y/ M                end;
' D8 F7 Y$ L) @  p6 ^1 c% G$ T3 N* ^                eventcontroller.stop;
; e, J3 A$ x( U' b0 `        end;
+ p7 G! c: r9 O, @) U       
5 z* |8 A2 x; ?4 i  ^        for i:=1 to number_of_machine loop
; n' q, d" K+ L* s! ?# F. Q$ b        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, E$ n/ e7 N+ A. i2 |, {8 P2 ?/ p                machine.deleteobject;
6 u( Z; N6 B3 D; D, E        end;
3 j" j4 u* m  V1 y0 e) ^+ [0 {8 L        bufname:=sprint("BF",i);
: {% L* T; C( v0 M4 {$ S        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( v, ^" ~# d3 x& q8 b                buf.deleteobject;
' V# g$ F2 ~' @! x        end;
5 p, ]) L+ d4 q7 o+ d9 d6 ?        next;
4 {: J. o+ n" ^: i6 F# B$ f       
        dx:=0;
' h1 e9 g+ {3 x9 E+ q4 B* F        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% G, n/ l1 w5 [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: b' |' U. Q: \/ R: [  p4 U! i: Y                        and activityspace[1,rows]<(1.05*y_max) then
# P: V/ r$ L9 k' g7 y3 ^8 C2 T- v& Q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, Q$ R% g8 b  x1 X/ Z) W3 X                        mark:=true;
5 ^3 _1 B0 I) j, Y                        else*/
4 w" U* y4 P2 }, }( T& d/ \; F                        y_max:=y_max+dy;
                        dx:=0;
" Y1 g+ n( U$ x  V) Y                dy:=0;
                        --end;
                end;
9 {4 X( d4 k. T, u9 ]6 Q2 K+ t3 w                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;
) _* h) }& ~  U' d/ H* x1 F            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* x/ |+ o; h, [0 H+ L                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% b* ]) \' d4 H  V                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ P4 p% a/ k9 w$ T                        activityspace[1,rows]:=ct;
  }/ ?' \+ B% {                        end;*/
* \) |/ c4 q3 m4 s: D3 c/ T: C        next;
8 P6 s0 H' V1 E6 W- m3 L* E5 b        y_max:=y_max+dy;
6 F! M5 l# Q+ r9 p$ S0 z5 v        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
$ h; C  s3 s, c3 x                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. A  x0 }, a9 q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. a3 ?* m5 W7 c- C5 a4 i. T6 I                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; F% H; r2 _+ @                next;
& l$ @8 }0 O3 Y0 e9 b6 r        next;
, Z: y9 _8 D+ L7 W6 L8 Z       
        lines:=0;
        partstable.delete;
* [0 p3 ?2 z3 Y       
* T, d( f& u7 Y& N, R' ]0 f1 \; _5 k  t        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 @, j1 \' u8 ]' F+ r8 g. d                machinesequence[2,i]:=rows;
% |$ v% m7 a6 m# t+ z: _! g                for j:=1 to number_of_machine loop
/ v& r9 G; p; w1 o, ^0 |1 z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, U3 @  N' s5 R# o+ _5 R% I% J                        partstable[3,lines]:=sprint("parts");
6 g3 {$ M6 U8 z9 S; e                        partstable[5,lines]:=rows;
: }% `, i. V2 O& v5 O                        partstable[6,lines]:=j;
                end;
+ W' O0 f) Z5 o4 Y2 o0 z- k  \6 I        next;
  w4 T4 U2 f6 W        machinename:=sprint("M",rows);
) n3 _$ n" `* y# j        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]);
        machine.name:=machinename;标识符未知
  d$ x4 A# \4 g9 m, m4 d2 W7 V        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
' L3 o! n5 ~0 }        machine.exitctrl:=ref(leave);
& y3 @1 w. k7 _' \9 Q" P       
        bufname:=sprint("BF",rows);
( U/ f+ e/ Q- u( _1 n        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;
' _" F# B' |( }& `) ^4 V5 y* ~        buf.capacity:=5000;
        buf.proctime:=0;
+ f' C% l2 [, U  n% _) _  `        .materialflow.connector.connect(buf,machine);
# W; ]- s9 F/ A! E  {% m! |       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- y& H/ [! J4 u: Y, Y0 y) Zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. P8 A. B) }9 A4 Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 S$ P) J% n# T4 b- V4 cnext;
end;