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

zooey

is
        mark:boolean;
3 p1 g. i/ X# A- w4 W0 V, ^7 n        dx,dy,ct:real;
+ \; U5 N2 W- k3 q  F6 ?    i,j,rows,lines:integer;
# E, i7 k. e. `! I; h    machinename,bufname:string;
/ a2 @% P  Z# x. G. l* @. R    machine,buf:object;
% `+ y% ]1 l- q/ E3 n) F; bdo
        current.eraselayer(1);
$ M/ G* X+ K8 V  |# {       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" X( h" j3 y. B% P+ v                inspect messagebox("设施数目不对！请核查...,",50,13)
7 J% B% b! Z$ J7 ^6 v9 D. p) ~                when 16 then
# F3 A; H, N% V' m( u6 F/ M                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
) l# ]6 k8 N7 P0 m' `       
2 q% f, D1 X0 @' G& k8 _6 I, S        for i:=1 to number_of_machine loop
- W" C  W3 w& R/ e        machinename:=sprint("M",i);
8 y; V5 s  Z5 i  x6 h$ m        if existsobject(machinename) then
5 \/ L0 n2 c; u+ I                machine:=str_to_obj(machinename);
                machine.deleteobject;
! E, {: ^3 Y8 j( X- k        end;
        bufname:=sprint("BF",i);
- F, Y4 f+ B+ w1 X4 s4 [6 q        if existsobject(bufname) then
* y0 Q+ z. d( Z7 [                buf:=str_to_obj(bufname);
                buf.deleteobject;
* T$ b) ^8 q+ }( {) }' J/ n) ^1 o        end;
3 s: |7 V. W# A& K0 Y! A2 o        next;
( @/ b8 r( \9 W8 Q& s; x1 ^       
        dx:=0;
2 a3 e# x; b3 Q4 b% B* \8 j        dy:=0;
& v5 C" Z3 f/ C        for i:=1 to number_of_machine loop
% Q$ I+ s8 i8 h# w. y7 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 w% _' `0 W4 `% B" F5 w                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 D- N, U6 b+ H7 X0 I, |8 W& {                        /*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];
3 I7 ^. ?  z# B; Q                        ct:=activityspace[2,rows];
7 J! ]7 I1 o7 |/ W! Y& W9 _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! b* d9 k$ E6 U* u; A1 U- b                        mark:=true;
                        else*/
0 s; d7 Z2 x0 |: i                        y_max:=y_max+dy;
8 D0 C; t$ ~% O1 C% k5 x0 C& H                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 z+ a+ X" Z; @2 C                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
. K1 P; Z2 W0 b3 _% S4 P                        dy:=activityspace[2,rows];
                end;
9 l- j( S: S& H; b  a1 o% S: K) e                dx:=dx+activityspace[1,rows];
* p, l( H, x# N8 h                /*if mark=true then
                ct:=activityspace[2,rows];
. @- {1 [, _) r4 C: f                        activityspace[2,rows]:=activityspace[1,rows];
% |! x; f+ y4 k; C  x5 }8 r                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
8 ^/ L7 z* V% A6 C3 K: S        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);
3 O0 X! A3 t* @. H       
$ @9 _9 w4 c, z( z& s) F  P2 R        rows:=0;
        lines:=0;
/ ?" K2 r* D9 \* C' S        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! `( z3 s1 {$ `# [, T                        if j=i then
9 q% |3 j3 A7 J3 B                                d_from_to_chart[j,i]:=0;
                        else
5 v7 u  a4 e+ j5 n2 F                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 s. y- |( g" }$ i, Y. E  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);
; S! q  Q5 Y0 J0 h                        end;
                next;
# n8 X/ h. x) I7 |        next;
/ W1 d: t; N) B       
3 \# r  \: m7 [: {        lines:=0;
        partstable.delete;
       
) u' a5 B$ p0 X( l' U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% d' m/ l4 a% }. T7 `) f                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- J8 b" I; j+ ]9 B  T: Z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ {/ U4 A, a* J: s1 G: e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. |$ w+ U$ U% a3 a- v5 |& C+ P                        partstable[2,lines]:=w_from_to_chart[j,rows];
& }- i) U( E8 _5 f, ?                        partstable[3,lines]:=sprint("parts");
% ~! c" k6 d$ e6 V                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. [+ ?& }! \/ N8 P( ?# f1 y/ T                end;
        next;
, C+ I' l1 t- h' F. l' D        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]);
/ G6 a- o' y/ Y4 J( e- P        machine.name:=machinename;标识符未知
$ q, Y0 k, r8 j/ q        machine.proctime:=5;
% B% E. J$ E. @3 V- r$ V        machine.label:=activityspace[0,rows];
6 U- ?$ e. s# f! D1 W! A- R        machine.exitctrl:=ref(leave);
' V' B9 y0 `+ R: p% K; D       
        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]);
) E5 n$ z: H4 R; f" H        buf.name:=bufname;
        buf.capacity:=5000;
8 l1 H' G! ?  d; W! Q& N        buf.proctime:=0;
+ _' q) j3 O( W* N        .materialflow.connector.connect(buf,machine);
       
) @0 h, W0 k3 H7 C+ _        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);
* m2 I- k) m# p1 ^) Nnext;
end;
$ ?8 x2 m: [* D5 L7 p4 c7 R