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

zooey

is
. D9 H' p% _7 d1 h2 s        mark:boolean;
        dx,dy,ct:real;
  v# R! J4 O0 R% J7 s! a    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
8 }0 X, P, k6 j6 H* w5 A        current.eraselayer(1);
       
+ O0 {7 n" f. ~$ x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# W$ L) P1 T4 \" V. I                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
. [. z, c) {6 n: X                        print"yes";
                when 32 then
$ ~1 t4 y" g6 z/ H  G# g$ ?                        print"no";
                else
" D" t5 H  Q2 p0 `6 ]                        print"cancel";
                end;
                eventcontroller.stop;
! M- [1 s2 `& n/ C" |* Z- M        end;
       
; [# J2 ^2 P+ b7 Q- }4 r6 |6 t$ l8 U        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 d3 e* m& m; y. a* z5 B        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
" R- D+ Z! F" i0 p2 {                machine.deleteobject;
& Q. K/ e$ B1 c  h/ N* b        end;
: q* H3 f( m8 D3 s        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' X! }. V9 L* F, z! h  k4 M" `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
, D8 L! J! {7 n        dx:=0;
        dy:=0;
4 K) }! K% {; O        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 {" I/ r" A  A0 R' q' P1 y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- |8 l% D/ R7 t; L. `8 x: p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 H9 O3 c4 G' ?# P                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
+ `) i- D% _: z% [* x1 m$ R                        ct:=activityspace[2,rows];
( Z2 k* L) [+ ?3 x4 y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 H5 |) d0 o# ~$ R) \                        mark:=true;
                        else*/
6 J: d( F8 K6 ~                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
) k) s: r* j. c/ B6 ^                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; ?1 s$ Q" i, B% {+ V3 \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* j' q" b8 Y8 S7 t, B. F            if activityspace[2,rows]>dy then
8 S9 Z& b7 L$ e& D( ]1 y- S& m1 `( {                        dy:=activityspace[2,rows];
                end;
, q3 F* |8 f+ ]) w                dx:=dx+activityspace[1,rows];
! Z* S% O% z8 T8 i" v% ?* k! U                /*if mark=true then
, U8 Z) k% O+ ?- o- T: C                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 d+ E3 k4 u4 p; a                        activityspace[1,rows]:=ct;
                        end;*/
1 B% o3 H* G' w% S- 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);
2 Y6 ?( v6 o6 i2 b- 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);
. }+ v4 k1 l9 q. H: O9 _2 C& @       
0 t/ A" C3 W3 K0 R( I7 D        rows:=0;
        lines:=0;
2 t. Y8 O$ ]. \( V. T- d' k5 r3 @        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 `5 Q! f5 t9 K6 d: J                        if j=i then
8 B' G) ~/ m' W# R                                d_from_to_chart[j,i]:=0;
                        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];
: `; w  ~- c% y                                d_from_to_chart[j,i]:=abs(dx-dy);
& l3 e! b/ U# F2 a+ G; R* l. K                        end;
                next;
. c$ d- T. }4 j) v        next;
$ S$ B8 q" @: R1 C9 ~: |       
; z4 \) _4 U% T  d2 N6 A        lines:=0;
: h* E4 l1 E5 H        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- l' y1 J' ]; m# n/ {8 |  o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
8 _4 ]* `6 R8 v, _# S                        if w_from_to_chart[j,rows]>0 then
" v; i( X  M; a' J                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; ~) n. E6 W& Y' P, a& w1 L/ \                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# H/ i: c3 p. |9 t3 g/ l1 [                end;
        next;
        machinename:=sprint("M",rows);
& [" L, B" n) M5 y- f- @        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]);
! S& @1 J* P6 m; t        machine.name:=machinename;标识符未知
% r. [0 J* N; ?) a0 B        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 a! Y* g) J7 D; |) q' g( H! R! |        machine.exitctrl:=ref(leave);
       
5 p* R: {! y" e; t' Q9 W        bufname:=sprint("BF",rows);
/ I0 I) S6 j" z/ |6 A; P% c        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;
( ~/ [9 M# J/ A/ E1 n        buf.proctime:=0;
( D3 W# t' h" Y# p+ v        .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;
# F, G9 t8 w8 }; w& \4 }) R" ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 J+ b! `' r6 f! M% G( E5 j+ }next;
end;