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

zooey

is
& b7 a7 S, X. T9 [" }3 w1 ]        mark:boolean;
        dx,dy,ct:real;
7 d% x& L5 F9 s4 w" i; W    i,j,rows,lines:integer;
( L( |" [) o3 @5 p    machinename,bufname:string;
    machine,buf:object;
do
' G& b$ D" I  t% |: ?        current.eraselayer(1);
: c6 t8 E& O( d6 x2 n. H7 T       
        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
9 M/ K$ P5 V- K                        print"yes";
                when 32 then
4 b3 j: n- J/ o9 p$ Y7 |! v9 G) I                        print"no";
# h$ r7 T2 j- z$ Y8 a/ k                else
                        print"cancel";
                end;
5 S1 l; }0 G0 _5 @                eventcontroller.stop;
        end;
/ _3 G# k# g1 {; M  ~7 j9 m3 w       
! a: Y$ P8 u* H        for i:=1 to number_of_machine loop
6 w6 O5 l  _3 I9 R% M        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 |. w8 L" m+ C2 D/ P0 p                machine:=str_to_obj(machinename);
. O4 l4 S* k* m8 b- u  B                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
; C" ~# F& p: M. |5 C        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
, d( K0 u# I& ]0 O) {: M6 O        next;
- \% k$ q6 [1 ~4 h0 V       
' m2 H5 Z/ \: N: l9 g5 |        dx:=0;
' f6 g  Q9 B% k+ Z% Z# P% [& K& A        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 c. X- Z* G/ p                --mark:=false;
. l, Q; L/ J) @: `5 U7 L! V  r                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# O3 C! @! q) q- {- X3 r1 ]3 C- ]                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
4 Q+ C1 k" @7 P2 l/ M                        and activityspace[1,rows]<(1.05*y_max) then
" a! [  O2 B! q4 N& T% g                        print activityspace[1,rows],",",activityspace[2,rows];
4 a( m3 x  Y$ d1 h& {                        ct:=activityspace[2,rows];
6 p6 Q9 h, w- Y7 i! U                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 a6 s3 p, n. m4 G6 j* P$ B                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
; R* N- I5 Q. _" w; D8 }9 _8 O9 }                        dx:=0;
- R4 c: H) s+ W+ Q  Y/ R                dy:=0;
- D$ Q" s: v5 Q+ _! `5 W" Q                        --end;
                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
                        dy:=activityspace[2,rows];
9 W& m2 b! s8 ]                end;
- z0 v2 T8 Y: h                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 `, o$ f3 r) l( u                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
7 X7 `. P. q" p% M1 p1 P; G        y_max:=y_max+dy;
7 Z6 ?/ L( B  j( Z1 T        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);
9 l5 G  u" S" {; m) f* G+ J0 g       
: ?% y+ S5 @" M, g$ K: @& G' u/ q  r        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. C5 h" A4 J/ B4 P: B                        if j=i then
                                d_from_to_chart[j,i]:=0;
. |0 V; l# S" @9 I& E! N, V                        else
                                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];
  V0 A4 d& s2 f4 ~# L                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
: |7 t: l% B0 c5 i" I( o                next;
: o$ \" K( i, U$ z        next;
       
        lines:=0;
        partstable.delete;
; k$ [: b8 m) D* ~! J! a: y1 e       
7 R+ J9 N3 ^. P& D        for i:=1 to number_of_machine loop
1 E4 G# V! G# K& W2 ~( ~# n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) G" {( E: Z4 J+ O: g! F                machinesequence[2,i]:=rows;
4 K" }/ m/ K5 t6 m  ]+ _                for j:=1 to number_of_machine loop
# X! E6 ?, `& S                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 `5 o0 l* W' v5 F" ~$ k: r/ |- T" J( T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* v4 Z7 n* z1 B& P8 _                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 D) i, W5 ~7 t, }6 ~                        partstable[5,lines]:=rows;
; X* L( V9 c2 @6 a" o. [                        partstable[6,lines]:=j;
                end;
6 L' a6 }: m' e+ U7 \# Q" @( t$ v6 l        next;
        machinename:=sprint("M",rows);
* W* |! P" 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]);
( q* F# o& |& H- g" a        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ }2 P& p7 ~/ D6 V        machine.exitctrl:=ref(leave);
4 ~) @6 c# z- [/ U; y$ h+ \       
        bufname:=sprint("BF",rows);
6 y: ]3 B" c* T. K) |0 D" 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
, B5 Z3 h9 q) o' F6 O        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. b$ U9 U7 p5 X% e       
/ [+ J+ f9 x. V/ L  M: P        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);
7 ?9 T& O# ~6 f' jnext;
. Q- v: N2 V0 m! U0 \end;