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

zooey

is
5 e% D0 J8 O/ w) {        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
  ~  }, v% `  z; b6 Q3 \    machinename,bufname:string;
( j# y$ m  d, _' c4 T2 t* j( Z    machine,buf:object;
( ]0 d8 X& b7 ?do
        current.eraselayer(1);
" I/ ]; F0 P) g. Z       
: _% \7 u/ H- u        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* ]/ D% `9 V. M- i" I' M( \6 ?. r2 a+ s                when 16 then
                        print"yes";
5 L: D; p3 U9 x/ s( F) o; X! s, b                when 32 then
6 I# c% d) `: E* z                        print"no";
                else
1 o2 L- [( E8 H* X7 @; V3 r                        print"cancel";
6 s3 n$ M9 o8 W, \) s                end;
                eventcontroller.stop;
        end;
# E/ F) r) C5 l% M4 `& B* i8 S2 r       
% C: z: f1 K8 Z6 W5 ^        for i:=1 to number_of_machine loop
6 O: N" V) i' M( H% B        machinename:=sprint("M",i);
* Y3 L8 b% p, F2 w" K- F        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
. i7 B" q: W! N( }5 J1 j                buf:=str_to_obj(bufname);
- F. ?& H# Q( u! X! i                buf.deleteobject;
4 _' d* M9 t' I( _9 q& U! u        end;
        next;
6 @3 ?( N3 ?+ W       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
8 Y1 }4 B. e& W  K6 S6 F6 P. g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 O5 E" [; X% U7 x                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: K. a+ [" g; ]$ _                        and activityspace[1,rows]<(1.05*y_max) then
7 W0 {# t+ V, T  L3 D' R* r# f                        print activityspace[1,rows],",",activityspace[2,rows];
# e. N$ W& V% K  W                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 x7 d8 {6 l0 J9 `" N/ ?; G                        mark:=true;
                        else*/
0 w1 u! f. S* C( B; M* _                        y_max:=y_max+dy;
) A+ g1 r4 Q3 |6 z6 A7 l5 p2 u                        dx:=0;
8 B4 |3 Z7 R! @9 l) a8 j3 H; z                dy:=0;
2 ~% ]+ U7 n. G% m6 B2 z! B                        --end;
# P9 R8 A# w4 L( e                end;
& T7 e' ?2 [7 I                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* q. i& B( W; U                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
6 k- Y9 q, x6 c4 }8 f; g                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 R9 a% d8 Q4 Q% i3 B( h) {+ b0 W                        end;*/
        next;
        y_max:=y_max+dy;
' a  R! J- Q- Y        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);
  p$ ^6 n/ L0 o$ N        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);
       
) i3 D$ U, `% {" d! R8 s4 j' q        rows:=0;
        lines:=0;
8 x3 u- m  s6 U( y2 s3 s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
" l! H5 G! O' x& p2 C( t2 R! P1 o                                d_from_to_chart[j,i]:=0;
                        else
* z5 o6 z3 n; S/ D0 [0 [/ d: j                                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];
3 c. u# v# T" h                                d_from_to_chart[j,i]:=abs(dx-dy);
% o9 B7 Y  k1 M                        end;
. C3 E6 D3 z% V                next;
        next;
       
  g; \5 U" k2 y' o  X* _1 O        lines:=0;
1 q$ s" @2 ~7 [% B/ w: h+ s+ l        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 k  g8 Q' f% c+ b                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# V1 O0 e4 |$ Z$ E5 t5 m5 `, Z                        lines:=lines+1;
" K5 w) S& Z+ L7 ]/ R- Z2 N8 X# B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 {/ ]: A9 l+ M0 R3 ?& X2 O                        partstable[3,lines]:=sprint("parts");
4 G" U' o9 `0 U" s9 j                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
6 A" w& ~5 e+ n4 C3 i                end;
0 S! @$ K* b1 h+ V" i0 d  C/ _9 D        next;
4 n1 D* Y0 L4 |: W        machinename:=sprint("M",rows);
' v2 l- \( w8 Z* v* |        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;标识符未知
        machine.proctime:=5;
! m' G+ ^2 G8 B, D# {: K' u" _, K        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 j- g/ v! _3 c! P2 p) A       
/ Y- v- E6 C9 M9 u% g        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;
/ t- J( R  E/ y3 [8 r        buf.proctime:=0;
& P  }1 O" g4 @0 c7 m. g2 Y        .materialflow.connector.connect(buf,machine);
  e& \) r: r; \3 h       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, u5 R5 g( P! a) i1 `. kdy:=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);
, B* y# N' H+ B, P0 Z) @' K2 onext;
! |* x# q# p; {1 w; V6 _6 eend;
2 ?! O+ ~" I0 P