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

zooey

is
$ a, U* b/ k  H        mark:boolean;
" N7 R! u0 l) q+ N        dx,dy,ct:real;
3 H: d& `/ ^8 s* g: A2 T    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# f# B. v) k/ Qdo
2 H  ~- a* W8 F( S        current.eraselayer(1);
! B& s$ i" B6 N       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
$ ?3 u& X  s; g! k/ i4 q8 V                        print"yes";
0 Q: M) p2 D  S6 T                when 32 then
                        print"no";
" ^  Q6 T  p7 m8 r% c7 z6 z                else
, m. F9 r8 F8 u2 J                        print"cancel";
/ l  @/ u, b) m  ?8 W                end;
1 q* M$ w3 F$ ]2 u                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
, g/ a# N: d; s' @        end;
        bufname:=sprint("BF",i);
7 d% `4 a2 Y# `: h6 E9 x        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
8 A. K5 D/ j; K: [, v( }       
2 |# T+ j; K- W) B& t- |; D        dx:=0;
; \3 l9 P3 o- R0 W        dy:=0;
6 _+ I% K+ B3 Y0 r$ b9 E2 K" ]        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 u, Y" Q% t& I$ d- X                --mark:=false;
- H, U# D- k9 s0 J; d/ Q' H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 X. z/ g+ K. F* v' `                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
" w/ q9 o* X( B& F+ y0 ^                        ct:=activityspace[2,rows];
) D1 ?5 `% `; [- N3 a                        activityspace[2,rows]:=activityspace[1,rows];
& \$ B4 m  ~6 K: u7 l                        activityspace[1,rows]:=ct;
                        mark:=true;
1 S3 l- Y+ I5 c2 t                        else*/
" x- `+ _% L; W6 r; g. l5 |                        y_max:=y_max+dy;
+ ^( N; g1 m: c; k) D+ v                        dx:=0;
( H# M1 @9 f$ w' q9 n3 d                dy:=0;
                        --end;
& J- Q3 r) C1 Z( ]8 h: i                end;
9 Y' j% A; g7 L                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;
2 q3 l! i- r, f3 o            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
! o  n" _* e- W* i+ k0 C                dx:=dx+activityspace[1,rows];
. m  T7 R0 O: O  W6 s                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) A4 ]! K2 V4 F; d2 r' u1 y                        activityspace[1,rows]:=ct;
                        end;*/
5 s" i6 g" ]: g% n8 s        next;
; C; H% G5 T+ v8 Y& H0 v- N# M) l' B' x        y_max:=y_max+dy;
& x7 u3 L% \) O* N) h( O2 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);
       
2 z$ h" j* ?/ R3 ~6 g8 j        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 N5 i. p9 X$ F% S0 E5 I! w, c7 I                        if j=i then
" U, A* `9 E' \; J' g- {7 @# B                                d_from_to_chart[j,i]:=0;
+ K* |) X& M3 M/ q                        else
1 N2 ?$ D* B  E+ E                                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];
5 d" y* |2 Z  [# S2 `                                d_from_to_chart[j,i]:=abs(dx-dy);
* ^/ Z. A+ e. e                        end;
) n# S( S9 b" l# F                next;
- N5 x/ e* h8 |6 a( x/ T        next;
' d# [6 N: s# `) }/ C       
2 C2 n0 {+ X. b4 g) n        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
* D3 }  P$ c7 [7 S: @4 ]; ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- v) S# H' D3 e6 g                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 `; d7 C$ c! c! |/ g# X9 i. C                        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");
, S$ T) \5 i, @0 W. F                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
! U& N3 E7 F; Z/ ~: Y7 V- G                end;
0 j# [* x$ A. z; U- e9 R7 H        next;
# T  g7 T5 C/ F6 D2 e8 `        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]);
. g# X0 k4 c6 s9 z        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" W: b4 o( V( [. ^        machine.exitctrl:=ref(leave);
2 R( @! I% H. z5 S) v8 `       
% U  J  p4 }/ d2 q" u1 g: e        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;
        .materialflow.connector.connect(buf,machine);
       
        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);
0 g! M. |' c& {. K% V( Enext;
end;
' X$ ^% I1 p2 ~6 t2 a5 s