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

zooey

is
/ v, I% _8 B% i! r, h: f9 _" B( u        mark:boolean;
        dx,dy,ct:real;
. M9 w) E0 v& s) L) V6 I    i,j,rows,lines:integer;
    machinename,bufname:string;
  I( `; |) V  S9 R+ t1 p    machine,buf:object;
do
5 q% |6 _3 e6 b$ A/ e        current.eraselayer(1);
       
: l# p* `: }" y. B  l2 X& G* g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* n: F- d# n, R% E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
: ~, q7 X: h! H# A9 C                when 32 then
                        print"no";
: X  B5 P: x7 D                else
; R  g3 k( \% f                        print"cancel";
9 X* ]! o: S9 q) Z                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
/ e1 R) H& N9 [( S  N3 n        machinename:=sprint("M",i);
/ U( b; o' d! [/ ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 ]# A: t" P9 _& M* x                machine.deleteobject;
        end;
% L/ X( E0 J: H5 F        bufname:=sprint("BF",i);
        if existsobject(bufname) then
+ q7 r- R" ^# M0 ^$ @. `                buf:=str_to_obj(bufname);
1 @! R! M% Q- H4 ], [1 N                buf.deleteobject;
$ t* l- `3 Y: p2 h' |6 o) T        end;
        next;
       
        dx:=0;
        dy:=0;
+ t& `3 B3 }" B- R1 q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, _; N0 F! b0 i  X) [                then
9 M  h: s% e4 S  X9 o7 ~7 X$ S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 Q; K0 w4 u0 I+ l+ p                        and activityspace[1,rows]<(1.05*y_max) then
- w0 j3 F( S  O                        print activityspace[1,rows],",",activityspace[2,rows];
' ]' {+ P) F/ R: \- F- @                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  @& z% }- s6 ~5 O) f4 V% f+ \; Q$ V                        activityspace[1,rows]:=ct;
- t# r$ d8 ]  p% ~  N, |                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
/ A6 p+ m3 Q. _+ s/ k# u, v2 e                        dx:=0;
" \0 C9 S0 o& t                dy:=0;
                        --end;
( _3 a$ e, F5 L/ P6 n: K& U                end;
                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;
            if activityspace[2,rows]>dy then
' F3 ^# D$ ~9 X+ d7 V                        dy:=activityspace[2,rows];
5 U1 G9 @4 w8 _. J                end;
' Q* ]. }9 Z) _- U& }$ v, m                dx:=dx+activityspace[1,rows];
$ a: H7 `5 `+ I5 O, z                /*if mark=true then
                ct:=activityspace[2,rows];
. _4 O# ~  n1 U1 z/ `                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
* |: c* V4 h; {9 j. `        y_max:=y_max+dy;
% N; E' ?2 W" Y- u        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);
+ x) z) R$ l5 A7 j        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);
: [. N4 R& D  i& N+ Q# |8 c# ^       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 m6 Q( X: x$ p                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
3 N/ J4 v6 o2 U8 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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
1 e5 [* q0 f, T$ M                        end;
3 b, |' d. t# h                next;
/ b  m8 l1 H# [9 x. p" m3 A% A$ E        next;
" ]6 x* x/ @. E8 ]& L       
        lines:=0;
. q: b2 K% f  a& U        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' d" V- u0 q% r9 E                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"));
! ]# d. J$ T* k' A/ C2 i+ b9 H# R                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" i5 d  g; ?" d5 ~" X: b2 c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 r& g& X* a8 d0 X* N  ]                end;
* W% m1 J0 \0 t" {8 ~' {# r        next;
8 ^  ?" y% _5 r" s2 f        machinename:=sprint("M",rows);
2 E% c0 f( R+ H/ K        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]);
# Y1 _: g! `( T' z) E6 r        machine.name:=machinename;标识符未知
$ n* h; P2 ~8 `0 A# I* W        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
* x6 O* F# e) i3 _  C& n  f        machine.exitctrl:=ref(leave);
5 t9 o  C& d! H/ _' q! P2 K& Z3 w       
        bufname:=sprint("BF",rows);
' t' I3 \- ?5 k8 I        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 z6 X$ r+ l' i. i6 X7 U2 m& R7 @        buf.name:=bufname;
; D; D/ E; L1 Z0 o" K- M        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
* B- j1 J* o) u7 c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ n+ Q) ?- m: ?) Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* N6 g) L  ?0 N2 G/ t( {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% U( k8 |6 u  L$ o- i% H5 l: e5 U8 ^next;
end;
1 d1 m$ A- `, Q3 ~- v