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

zooey

is
$ a1 C. _! Q( n- _# d, {: w* R        mark:boolean;
+ n. H1 k. w4 a9 I        dx,dy,ct:real;
; x) c2 L6 q0 k1 W5 N- e! _2 N7 J7 t; P4 R    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
" Z& K/ d1 ^; T0 J) W7 S, L2 Pdo
        current.eraselayer(1);
; J, i  x2 p* g2 Q5 [2 `% G8 X       
' C; V- M8 S; E) e- X1 n' I' K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
7 Z; j! G& o% u                when 16 then
$ o: ^$ @% E6 A1 s$ e                        print"yes";
                when 32 then
  G4 O7 O" g6 l: y2 s                        print"no";
7 N# o0 ], T: E& g) o1 K& w                else
0 A2 ~8 n6 q+ t' R$ x. ?- }                        print"cancel";
, Q! x9 c: ]0 M7 i- J" f3 \/ v. y                end;
2 h% a( M4 O8 S) l- ]                eventcontroller.stop;
) I* b7 }* M) a, m  c3 R        end;
  }$ Q* ]( B' ^! k       
0 e- w, y$ m, Z6 X; A: ~, ~: A9 v0 F" K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 o$ p! _& B8 J0 Z( y, @+ d7 c        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
0 y+ D" x$ q1 a2 W9 w8 ~        bufname:=sprint("BF",i);
& P! b: C5 E. u: q. l$ A9 r        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
) A4 t! d0 ^, p- s/ t  m, n        end;
* Y2 b# i; ~( @9 h2 C! Z$ c" Z) F        next;
  x* W" X% c0 z7 Z3 P& i       
7 F# N" A6 V3 c& b1 d. H4 ^7 Y3 U        dx:=0;
" w4 ~8 n4 r6 D: n' A* N: N. o        dy:=0;
        for i:=1 to number_of_machine loop
# C/ I- W  |% J+ N* Q+ Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% [- F! f& N5 f! d2 A                then
                        /*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];
8 o: l1 ]5 e6 p! |7 u' f7 O' C                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 y3 l: N/ T7 Y7 ]) U                        activityspace[1,rows]:=ct;
                        mark:=true;
5 J3 Y2 r2 V2 i1 Z, ?5 |( ~( S6 P                        else*/
* N8 m$ h% e# l3 t* ^7 [6 v- O2 B                        y_max:=y_max+dy;
5 F9 @0 k6 `# Q- B                        dx:=0;
' q" V0 r( Q7 x4 V) w$ o                dy:=0;
                        --end;
! i" M, f0 c' W7 p, E: H                end;
1 d+ O) r6 f0 r, v+ M8 I( v. d% ^                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;
7 ]3 H' ~9 i" T            if activityspace[2,rows]>dy then
; t3 ?1 ^/ i" v" d5 ^* s: E                        dy:=activityspace[2,rows];
0 d# Q6 {+ A% O                end;
                dx:=dx+activityspace[1,rows];
0 t/ F) W3 E5 R4 X; V                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& @$ l; X9 w$ |5 }0 R7 k                        activityspace[1,rows]:=ct;
7 C6 ]% J0 Y# B& v5 ~- V3 ]                        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);
2 J% u7 c7 D* y' ~2 i  |        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);
# G% F; |) d) h+ F       
8 {8 S) |9 K; z) q: p        rows:=0;
& c$ F% U0 T# x) J        lines:=0;
        for i:=1 to number_of_machine loop
9 J: _! I5 m' u2 Q9 Q                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
' R9 k4 X: H5 w8 a                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 }. g9 I" t9 E" p                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# s# F& S' j  n# Y0 b9 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
. ^/ B* s3 [1 q: ^                        end;
                next;
        next;
" R- K' w. t" k4 W$ S- Z; ]       
        lines:=0;
        partstable.delete;
& N/ R6 n. g: z  |: o! j       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. ]1 Q' y: {5 W8 V) }/ o4 ~                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# w0 m7 o' ^$ R( q7 Q/ N: j                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# d, Q$ l  U* c5 k" ?                        partstable[6,lines]:=j;
                end;
! L. M/ A  Q5 P$ W3 ]; a        next;
* F/ O, [$ B9 }; I        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]);
1 o) i- P5 U, n8 K        machine.name:=machinename;标识符未知
        machine.proctime:=5;
  A' q: r8 A9 s: f. L: w& `  Q: c& M        machine.label:=activityspace[0,rows];
1 j5 J7 \' m2 e        machine.exitctrl:=ref(leave);
       
        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]);
" [6 e' C6 M9 f& x: }. g        buf.name:=bufname;
        buf.capacity:=5000;
" [, G: V* v$ V        buf.proctime:=0;
$ D* I9 s5 w' k) G        .materialflow.connector.connect(buf,machine);
" @' Y7 Q9 i+ m& y1 D  t3 t       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! E; O# j9 d+ v! {; Kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& }' y! a# W6 q9 Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;