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

zooey

is
3 q7 P4 B. C" j* e3 f0 B) X" _        mark:boolean;
        dx,dy,ct:real;
8 F- r- e/ H; {& K, c, x+ F    i,j,rows,lines:integer;
& \1 h- @& L) l$ I0 p" P9 {4 G' _    machinename,bufname:string;
    machine,buf:object;
/ B1 |  H. ^  `9 J+ bdo
        current.eraselayer(1);
  L; @" \4 v$ p  X% B  L6 D       
        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
                        print"no";
% J& o5 a9 A4 F& l, p                else
                        print"cancel";
                end;
                eventcontroller.stop;
& e9 `6 r: r( x2 a, R# x        end;
       
8 L& N& Z1 A$ u" Q: r' y        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 y5 h& d- {* q7 A9 L1 i6 m- V2 w                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& b  A4 s/ }" Q7 P; V$ @& w        bufname:=sprint("BF",i);
- t5 E' q# L4 ]        if existsobject(bufname) then
" P5 V3 E6 n# @) h                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
2 }9 X# J& H% ?  E, P' u        for i:=1 to number_of_machine loop
% W  \0 q6 h+ c, b+ k) K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
  M, k$ ^2 s; E3 j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; O7 n# f3 L. ~3 ^                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& p9 a6 s5 d) u$ z% R                        and activityspace[1,rows]<(1.05*y_max) then
' f% O) o0 K) A2 h" h) X4 d" ~                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
2 |: ?. y  U* n: b. z0 `$ _                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
5 j6 q) E9 u: {7 L$ E& Q( V$ n                        --end;
7 k- L0 G6 f- k; g( l7 d                end;
9 J: r, X0 `& O" h8 T: c( p5 \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- ]3 r, c  o1 [& I0 m$ u" |                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ |7 z0 V# ~7 C$ i: h            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
5 ~5 A; e5 X$ i& B& n' n                /*if mark=true then
                ct:=activityspace[2,rows];
: d9 ^7 `* ?2 s" ^- V0 j6 Q# r                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; F1 Y' {/ U5 Z4 F; X+ p                        end;*/
3 y  f6 t  i) E/ B        next;
+ }/ x( ?9 F! y5 Z        y_max:=y_max+dy;
$ x' {& y7 M5 u7 t) @( ^* w& L        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);
5 z- Q4 v& r: P% y% p% 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);
       
        rows:=0;
6 T( M: g, ^7 l        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
& e7 ?  G. G  r0 A; Q                        if j=i then
3 d7 [3 g! ~3 C$ ]& I: k. ]                                d_from_to_chart[j,i]:=0;
6 u! A7 T. u' F; x                        else
  l7 s8 [" l, x1 B1 s; v                                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];
6 ?7 F9 b" |! [0 ^8 I. @4 a- j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
7 U0 }# Z: _' `) n                next;
        next;
       
        lines:=0;
; P, Q* R, v, I0 h6 D4 ?1 @        partstable.delete;
" U1 [- {6 c% E7 {, |9 i! X) u! A       
: x+ [2 j5 w$ n4 d6 d        for i:=1 to number_of_machine loop
, t& @& O7 Y" Q) ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; }7 q. k/ `: U                machinesequence[2,i]:=rows;
5 d2 H3 o& f7 V7 v4 q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 i' I$ E/ X& F8 u" L# [8 E7 Y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 v9 O* `6 A- \                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
! t$ M+ M9 X* h$ A        next;
        machinename:=sprint("M",rows);
9 w% @* f, D% B7 J: |! j        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]);
# f2 L% b9 ~. Q5 K1 X: F        machine.name:=machinename;标识符未知
1 A- q3 u  G% t( J7 |' m        machine.proctime:=5;
& k: v$ h$ ]+ b        machine.label:=activityspace[0,rows];
. b# ?6 ?5 m. V  ?, I$ F        machine.exitctrl:=ref(leave);
& `+ g; V: e$ T0 B  V& S       
        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]);
7 ^& M( u8 L4 p% K$ e2 \4 H        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& x" t3 W% s9 d  Wdy:=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);
; s: r2 G6 A! [3 H% L- G' \next;
end;