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

zooey

is
- P  ]4 J6 ?: Z3 R        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 U& G- \# E4 L( p    machinename,bufname:string;
5 |9 a6 R3 C) J! \1 {; g    machine,buf:object;
do
        current.eraselayer(1);
       
; A; @9 H% h: b! t* M- K2 f! O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 s( ^( q1 g/ J                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
7 r$ w- N. t, Y; R- ?0 r                        print"yes";
                when 32 then
                        print"no";
                else
! C) H# s& ^) k9 w                        print"cancel";
5 j* C1 u) ], q+ V: t3 Z                end;
  y! V! h1 ?" r4 p                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;
        end;
# t9 w, p, r5 m' F4 l- G% S0 f, F        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 @6 u% b% l' E- p% G$ {( T9 `* f                buf:=str_to_obj(bufname);
0 K: s5 b6 H- Y7 Y( ^                buf.deleteobject;
        end;
$ \( S: O1 n' T7 D( Y. u        next;
       
        dx:=0;
        dy:=0;
+ g* q2 ~" m# A5 I6 L' ^/ Z        for i:=1 to number_of_machine loop
, Z: e5 b6 E8 G* }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
* z3 Z8 h  T& i6 b& H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 X/ k6 s1 E) k" Y                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, `: ^$ ^  o. K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" T; Z% c! F% w2 f/ z4 g4 E: k9 i                        activityspace[2,rows]:=activityspace[1,rows];
6 G& U9 t3 i  k7 G5 I# X" I3 Q                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
- @3 [7 Y8 X- {7 m                        y_max:=y_max+dy;
! K; v/ W& x5 ^: D; q                        dx:=0;
6 m& T2 r  v4 C. `# ^/ m+ n% }! w                dy:=0;
, E' `$ {3 a. R' ~5 r, R* m7 D                        --end;
                end;
' {3 q! C: b  ^/ U5 W# m                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;
3 ~4 s8 X- ]' V7 y( P: x            if activityspace[2,rows]>dy then
! J* n) N2 }' \, G                        dy:=activityspace[2,rows];
                end;
2 x- a/ J& k2 ^" l  l                dx:=dx+activityspace[1,rows];
  d% \8 b% C4 Q0 h- J( [6 h                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# V8 H3 Y9 a5 m5 D* b                        activityspace[1,rows]:=ct;
; q3 w$ I( g' w                        end;*/
        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);
7 \$ t5 a0 Q7 R# |' d- 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);
" X' {' i$ O$ T( e4 G1 m       
        rows:=0;
+ Z, K+ K6 P4 ?1 A7 F8 T, ]3 D) {        lines:=0;
  ~% x$ \) o$ Y& w  p# q( z        for i:=1 to number_of_machine loop
/ A0 n5 ]) H( I# u1 K                for j:=1 to number_of_machine loop
- w6 p* e5 a+ p                        if j=i then
9 e2 N+ j0 q& y  E; e) h3 s                                d_from_to_chart[j,i]:=0;
$ \. g  s2 ]& \! W$ V                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: h- Z; Q6 p2 e! n8 s( w                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% u8 E! |2 w+ }0 r                                d_from_to_chart[j,i]:=abs(dx-dy);
! m" ~0 y  k6 h0 w                        end;
                next;
        next;
       
        lines:=0;
9 m8 N7 o, b' I( U        partstable.delete;
- y7 L6 S, y5 t, D       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 X) F4 z7 p- O/ v& _                machinesequence[2,i]:=rows;
- [+ M* p1 p( P                for j:=1 to number_of_machine loop
+ ~! ?+ D* i( q! p; G1 r                        if w_from_to_chart[j,rows]>0 then
# c7 u* o: a0 L6 f. v) Y- R& \                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 K7 S8 h9 M: S- H/ m7 p$ Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
# s3 m) K3 U& z! Z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
# A; n: h6 e. O+ y        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]);
- H0 i5 W7 a) F8 o        machine.name:=machinename;标识符未知
        machine.proctime:=5;
) ~8 c' D8 o4 L! y        machine.label:=activityspace[0,rows];
, C" n; [1 B' I: J8 r        machine.exitctrl:=ref(leave);
' [, Q; V/ m# R. ~       
/ Y2 R: M, C* B7 H! ?6 R. ~/ L        bufname:=sprint("BF",rows);
3 N8 f, D  I% P3 t7 E+ W' k        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]);
4 i* K9 z: S7 c  h5 _/ q/ \        buf.name:=bufname;
/ W- p+ J9 T( ~+ D        buf.capacity:=5000;
( P. H5 H9 R' o/ l        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
! [5 X0 i2 a4 q6 O        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;
2 D* W! i- q  Z0 Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;