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

zooey

is
        mark:boolean;
6 O+ i- i' {& S        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 V# ]4 w: X3 J- R6 ?    machinename,bufname:string;
    machine,buf:object;
- a6 Y0 L5 h5 w; C: _! ]5 u+ \do
        current.eraselayer(1);
6 f: E' P# ]1 C! p, ?8 p       
+ g5 j1 A' y( u) i% w; R9 `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
. A3 `6 @) {- g/ b7 X+ k                        print"no";
                else
                        print"cancel";
# }* m. p8 i/ L- g6 Z                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
- I) D6 v+ b; R5 o/ j        machinename:=sprint("M",i);
: h! Q( g, f' v2 `  ]        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
% q5 l' l' Z% [* c& q! ?9 F                machine.deleteobject;
& G2 h2 F. z% H4 d# E        end;
: T# d, |/ A$ M, [* K( l) p        bufname:=sprint("BF",i);
7 b7 O* n/ r& a        if existsobject(bufname) then
8 i  s" @. g- N0 \9 G3 L" z. U                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 u7 P) K$ t5 F& @6 c! `9 ~        next;
3 Z9 ~* e. X0 V       
/ X5 V$ S. p+ Q# u( h; ?$ I        dx:=0;
0 z' z- a$ k, P. U# x        dy:=0;
        for i:=1 to number_of_machine loop
" _9 j2 u+ |# |2 P' [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, t& l: a7 M, K! S& Y                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
8 p* w9 U$ `& j* A2 X' u                        print activityspace[1,rows],",",activityspace[2,rows];
' c( g: y% w7 O2 D1 Q* d                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 H# i7 K/ S4 z3 k% X                        activityspace[1,rows]:=ct;
  T7 V2 r- e! u5 @( y! m" w' N                        mark:=true;
' r. o" ?: T6 ?. D0 A                        else*/
                        y_max:=y_max+dy;
; U! A3 w$ M; [8 o; e7 Q, P$ s                        dx:=0;
                dy:=0;
                        --end;
9 W- U4 W: B  ?7 U                end;
% x/ [1 y4 q/ \, q; R# ~                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 p; u$ l. |5 Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 e" f. j7 t6 I3 B& [) M            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
, T7 |' j9 m7 l2 m                end;
                dx:=dx+activityspace[1,rows];
, \+ X, y: ]& A                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( M9 Y7 t( `0 t1 l7 t" r                        end;*/
, H, c, E. J* x" X2 Q% y* \        next;
        y_max:=y_max+dy;
' G. ~4 l# I* J1 a3 c" }9 e        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
  L6 }. b# i6 F5 Y: w) W7 W                for j:=1 to number_of_machine loop
. R% P5 h! U0 s, h                        if j=i then
' I& H0 F3 T2 M9 y& x; T7 X% ]                                d_from_to_chart[j,i]:=0;
                        else
6 P) x1 ?3 T8 ?# J  h4 N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 g9 d! ]6 `2 f                                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);
                        end;
) V+ R6 j) n0 e+ N/ N$ h                next;
        next;
3 o$ U" t" |, S9 J+ H       
' f- L/ Z: J5 h9 x" H- C* q) V        lines:=0;
7 ?3 C) y. L- x9 A0 Q        partstable.delete;
       
. M: ]1 B5 t( D( _1 Z  A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% v+ Y4 ^2 v: h7 B6 N* y7 P                        lines:=lines+1;
- X0 i3 h% |3 E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# p5 G4 @% G+ F5 q1 ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
- q0 a! o5 B0 I  }/ y0 G; E        next;
        machinename:=sprint("M",rows);
- o8 Z& w& C# p/ 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]);
- R6 ?) O& D& j/ D  h; j. K        machine.name:=machinename;标识符未知
4 K' ^- D: t: l6 E3 S2 g        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 n) g, X; |9 g+ a5 I5 p       
        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]);
  `" v2 B; s& k, V/ K5 S8 l        buf.name:=bufname;
        buf.capacity:=5000;
1 @# |( Y; t  R' z        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. [: N3 j2 D- }$ e/ M+ V5 N       
( P/ y1 k+ n# V: s0 ?! E0 r; q        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);
$ g. H- x, V; ~9 U2 t2 R5 z  p$ cnext;
4 h! r# F5 P! U$ A. c7 oend;