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

zooey

is
        mark:boolean;
5 v2 J2 a' n2 I1 C2 }        dx,dy,ct:real;
0 S4 \* s2 v( U8 U4 I# X  ]    i,j,rows,lines:integer;
  R9 _0 U+ D( b( N* L4 K    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
5 R* z& O$ w/ a; L0 ~2 e       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( F8 S7 y8 X6 ?% C, D% d. z6 B6 ?                inspect messagebox("设施数目不对！请核查...,",50,13)
2 D+ f" M! ~% \( Q: L                when 16 then
% A0 P/ ?% M* y9 U' j                        print"yes";
; J7 ]$ T/ \$ L* L. {                when 32 then
                        print"no";
                else
0 v! Z4 r/ v5 i6 {3 j                        print"cancel";
0 l/ Y  _. i# N( [                end;
                eventcontroller.stop;
2 N- {, }$ X5 m: K        end;
       
- Y9 E% d) s" m) q0 F+ c        for i:=1 to number_of_machine loop
$ n5 e" _/ w) E6 N) f        machinename:=sprint("M",i);
+ R% j4 P! U3 S+ N4 p0 s        if existsobject(machinename) then
# N3 l& W( F, Z. V                machine:=str_to_obj(machinename);
. o) _* g! y6 I% Q                machine.deleteobject;
! M3 A; V) T( D' I7 X        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; Y9 a$ Q& e- W- C                buf:=str_to_obj(bufname);
' ]+ T! T6 O" S( ]+ @                buf.deleteobject;
& u+ p7 Q6 n' p        end;
        next;
1 `: W- X8 D3 F       
        dx:=0;
7 j+ O& R1 E4 f3 W        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ l  _* H$ o6 l5 Z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 z) J( N: J9 \2 s$ G+ i/ f                then
3 x" }; N  X6 n3 o. u& |% o9 ~% H! F8 c                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
$ J) @+ Z+ E+ G  _: P; r( w                        y_max:=y_max+dy;
! t( m& g$ r$ y( S                        dx:=0;
" B% e3 x0 ^/ B                dy:=0;
7 H2 m5 y* }5 T3 i- l. H                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& |8 H  [$ ^$ C/ t# g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; @' F% k6 y7 f$ I! G                ct:=activityspace[2,rows];
# y/ f. y; ]/ }7 C$ w( u2 \                        activityspace[2,rows]:=activityspace[1,rows];
5 }6 z3 z! T' g. y8 N: b& q0 T9 P                        activityspace[1,rows]:=ct;
& {9 F6 @  p* {0 \( S8 Z                        end;*/
        next;
) V) h# [3 p, v$ w6 i' q& }        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);
9 p9 K( Q6 e) P! \! @$ h: 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);
0 _0 }7 i4 o! ]! V: w       
# I- l5 \  X7 J& z        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
8 e' d4 @" S' K8 ^$ p+ L                for j:=1 to number_of_machine loop
0 K  `5 I5 h+ I8 h* }0 K: a& |+ M0 G                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
4 Q! M7 l7 F3 E- l; Q3 h. c" O                                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];
/ Q; ]$ B- N9 A0 Q: j                                d_from_to_chart[j,i]:=abs(dx-dy);
! b: F* i1 t% U; q. j5 S8 G, F                        end;
8 Q% @" \! `! t( p                next;
, e, ?+ K& S$ e! g2 B5 s$ l9 Z        next;
4 U0 u+ A6 u4 G- ]4 o3 X, n       
- i. s; F/ x& n1 C; E: Q        lines:=0;
8 I1 B4 ?! U- a% D  v$ z7 ?        partstable.delete;
/ w& L2 N- z( J! _" C# q       
, U- T2 H# ~9 w/ l7 n        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
$ z2 |- p% V0 C1 q                        lines:=lines+1;
8 C3 E! l- d( i) n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 B# e# E( B4 z! `7 {9 E                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 F  L0 n( u3 W                        partstable[6,lines]:=j;
                end;
        next;
# S' l( _' J& [! D+ A        machinename:=sprint("M",rows);
5 {& T, `9 {" W' k2 r7 r" j: c        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% b' T: Z; h; U. Z. `% l: Q/ ]2 I: D        machine.label:=activityspace[0,rows];
4 s5 k0 Z0 V1 m8 k2 T        machine.exitctrl:=ref(leave);
( I, k7 T% T& I) V5 c9 @, D       
: ~! @3 Z+ e" ~1 d        bufname:=sprint("BF",rows);
& B& J4 F# l2 G+ e- t4 m. V+ v$ J        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]);
        buf.name:=bufname;
1 {2 W2 f9 t% @3 A7 Q( q: M        buf.capacity:=5000;
        buf.proctime:=0;
6 s& y; z( F$ K) s' m        .materialflow.connector.connect(buf,machine);
- Z7 V% C5 s& a# k3 W9 v       
1 G) o  H+ n) X& H        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  }% s- e  R& ~$ ydy:=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);
next;
end;