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

zooey

is
8 U0 ?; v: `( E# s6 h% l5 R$ Z        mark:boolean;
        dx,dy,ct:real;
$ D) N8 L* a! G3 m% g1 E7 `$ l8 L    i,j,rows,lines:integer;
8 p6 O$ v3 @" @, t/ o% Y5 J2 t    machinename,bufname:string;
% o! j( w3 M; U4 q. u2 Z    machine,buf:object;
do
$ {' ^. Z. z0 }        current.eraselayer(1);
       
2 P" F$ R! P; R5 F5 m6 H* K        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% z3 G. C$ O0 m; a6 A  x1 `$ J                when 16 then
' c1 s7 B+ F3 L                        print"yes";
                when 32 then
; v1 }1 y. c" s& c9 c6 R                        print"no";
8 H; ]  w3 ~& k9 {% M4 m" w7 ^% g                else
                        print"cancel";
                end;
- H# C7 s! d: e6 h                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
0 {- K. l" @  I9 x, {$ ^) R        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& P& a) |8 X3 J: g) u                machine.deleteobject;
( `' B0 P; o) x* k        end;
        bufname:=sprint("BF",i);
- y6 A$ [6 E' l' v8 {: \  |9 D        if existsobject(bufname) then
" i3 G- c" K, {% \) G/ f3 m" ?' F- K7 k                buf:=str_to_obj(bufname);
. x  Z$ L  _& ~( N) b! Q2 e                buf.deleteobject;
$ g: |/ `8 A+ {8 g        end;
: q5 _3 Q6 m& f" M6 D" G        next;
* H' b0 g1 Q! `4 f2 O       
8 b5 H7 u9 _. d' x- z+ a& C* ^        dx:=0;
1 w. b- w$ f4 E/ f        dy:=0;
3 _. o) C2 |& ?2 M  ^. L6 h8 d2 t        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]类型不匹配
6 m2 w+ U1 J- o7 I3 A                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. |; l' ~- D2 B4 S- f8 I$ n6 l                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. e9 L" C! Y& F( H% J/ Y) f: _% H                        activityspace[2,rows]:=activityspace[1,rows];
5 z( Q" {: J$ P, o' V* Z& |                        activityspace[1,rows]:=ct;
                        mark:=true;
5 i- `+ R2 Y' M3 C' B                        else*/
                        y_max:=y_max+dy;
- \! ]! R3 \% _. D* v# p/ U  X                        dx:=0;
$ l6 n; w2 E4 {                dy:=0;
( a2 n* x# {1 a! |) v; O                        --end;
                end;
) }/ t/ L( o& I+ _) r                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
                        dy:=activityspace[2,rows];
7 E: C' ?: @+ L& x# G                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& E0 u8 B0 t4 {. _* L0 E( x2 W                ct:=activityspace[2,rows];
) o6 |$ O/ h+ \8 x, y$ _1 T0 L! Q                        activityspace[2,rows]:=activityspace[1,rows];
& z% q( Q1 U: g/ `) _, j& P                        activityspace[1,rows]:=ct;
; T! O9 n! D4 ]2 y% s                        end;*/
        next;
- W6 Y6 C/ f$ c1 u        y_max:=y_max+dy;
$ d7 t4 G8 k! J+ }: z4 w        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);
       
! w# t4 a6 n) H/ [4 I        rows:=0;
        lines:=0;
( z; F" G) y/ M6 F4 s# a2 X% Y9 V        for i:=1 to number_of_machine loop
; d2 c! y  q- m% i, A% n  u, B                for j:=1 to number_of_machine loop
                        if j=i then
. D6 \4 d& C# m, n                                d_from_to_chart[j,i]:=0;
                        else
' a* a+ o+ M6 v* J0 y4 G8 s                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# Z2 a3 [# V1 @  M/ T0 z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 N& h/ O  x% x" z; L, Z/ d( F                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
8 `2 Y9 ]( l3 W. q5 k                next;
        next;
! }" h$ ?  x* E: U$ ?       
4 r" e& _5 [. D/ H1 w        lines:=0;
- O2 P. h8 W6 G3 s3 f$ v        partstable.delete;
' z) x. _0 y1 s, B( |1 x5 Q, z       
* I! V. V& u+ y% k1 I  i; l        for i:=1 to number_of_machine loop
+ m. p8 w: @% E3 y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' s3 f7 h: Q  A$ `! d2 j                machinesequence[2,i]:=rows;
4 X3 A( e* [$ j, U5 Y3 R  ]                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"));
4 U7 P8 G9 @1 c- x2 b" ~. v                        partstable[2,lines]:=w_from_to_chart[j,rows];
# d. z) i% o/ [5 s% c; H5 z& e                        partstable[3,lines]:=sprint("parts");
  w9 r4 f. }7 Q' s& w+ g5 X9 @7 ^5 d                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
  |' E, @, P, y  @/ t2 r7 u6 O7 j3 D        machine.label:=activityspace[0,rows];
- a) H* P- ]/ R8 ~4 ]. O3 N        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
6 x. C9 n- N+ \1 J9 Y3 T        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]);
  s6 ?/ ]2 d) i5 c0 D        buf.name:=bufname;
  k' y" S$ N8 Z) ?        buf.capacity:=5000;
' r8 J- K1 I5 j8 C4 M8 l4 b; @+ e6 N        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;
- s; t, S$ t7 d0 g; n5 rdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  f1 `" _  R3 dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& |& T  L0 \) a* o. j1 qend;