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

zooey

is
3 [5 u5 p* ^2 b, a( ]/ S, j        mark:boolean;
2 H+ d5 W  d0 q; g. }3 {2 `5 D, C3 S        dx,dy,ct:real;
' @' r- C  Y& ^" L, K% y- B    i,j,rows,lines:integer;
  V2 R$ t3 p2 ^; M" [; _    machinename,bufname:string;
    machine,buf:object;
* j) b- |! V2 h! S4 k/ l" Y, j' ldo
( d1 o) D7 Y1 A: u% |% p2 e        current.eraselayer(1);
0 D  b- s5 n) }' v       
2 j3 r) E# k3 |- }1 s$ x/ ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) h0 E% L/ P7 ]6 O                when 16 then
3 y& c' Z# I0 u. N) l- i) H                        print"yes";
                when 32 then
2 o0 h$ j* c7 d, m* q0 N                        print"no";
$ M, v# k( f' F* V8 o                else
& L. m$ `, z! a9 A: c                        print"cancel";
                end;
  O1 \: a% [' y                eventcontroller.stop;
1 u2 V5 B. Y4 A9 f+ k" Z( p! |5 z        end;
       
/ `. Y# R. B1 O1 a! o, z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) a+ `8 h) I2 g) H        if existsobject(machinename) then
$ z$ s/ o3 g- p* E. ^                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 b1 o; \/ z! A3 c2 ]$ C# z7 e        end;
        bufname:=sprint("BF",i);
2 ^( B1 N% E) W! W        if existsobject(bufname) then
" \- q9 Z3 {5 w( i                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
$ A3 s# \# v! N, W        next;
0 S, c  W' T2 t/ S( I  [  k# ^$ w       
        dx:=0;
        dy:=0;
& |/ z9 x. p! d' [. B        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
/ W1 G! t) y  c+ K; @" I) d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
/ w* s- \2 N/ s6 [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
5 p( v: B  ?, d" y6 Q                        y_max:=y_max+dy;
                        dx:=0;
9 ^0 T# J: P9 c# U8 y; g6 g                dy:=0;
                        --end;
& u  @2 W4 j+ W                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
. ?" F8 y0 I" h* T                        dy:=activityspace[2,rows];
8 p+ B  v3 z6 ]                end;
                dx:=dx+activityspace[1,rows];
8 }9 n. V! t' O                /*if mark=true then
                ct:=activityspace[2,rows];
4 B) J$ F0 y6 [) l: J                        activityspace[2,rows]:=activityspace[1,rows];
, w/ G9 x; J  Q/ W                        activityspace[1,rows]:=ct;
, s! G) v" M( M. Q, O: l4 w                        end;*/
0 F. w" _2 S6 `3 E7 C$ f" _5 Q/ s        next;
6 [5 W. M* j# V6 b& r9 Z5 t        y_max:=y_max+dy;
; }! l* O/ `0 k1 ^" [        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);
       
6 ^9 o3 L# B$ [% d        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
4 h1 c. h1 L. ^8 f                for j:=1 to number_of_machine loop
: [" G. Z4 ^% _6 W( i9 u' H                        if j=i then
1 r& j. W) r, D! k                                d_from_to_chart[j,i]:=0;
                        else
: Y8 r: ]6 p4 r. G                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 m4 F* h# H, p% w3 q' y" v                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* k6 ]& W/ v" g$ y0 S0 V3 T                                d_from_to_chart[j,i]:=abs(dx-dy);
8 F6 v4 X2 s+ y$ O8 a                        end;
                next;
        next;
) t) L+ N0 S. I6 |+ Y( X+ q       
1 U9 f1 ^! `. y3 B2 D' c2 k$ ^        lines:=0;
        partstable.delete;
2 t' E% U4 d- x. f" N) f       
        for i:=1 to number_of_machine loop
2 x, `3 e/ a% Y, s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. N/ ?! a: Y' E" o4 f& N                machinesequence[2,i]:=rows;
5 z1 w% M/ Z; m8 Q7 ^4 e$ |                for j:=1 to number_of_machine loop
- T5 \9 u  g5 N4 E                        if w_from_to_chart[j,rows]>0 then
# |, \* y; {6 [9 c) V+ S1 d% u                        lines:=lines+1;
0 e* f% }4 G; e$ J. Q3 Y" p4 w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* [' S& K; {# e& y; l0 a6 d3 z' q; Q                        partstable[2,lines]:=w_from_to_chart[j,rows];
" r: N( K! s9 L8 j" c                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 ]& f" D$ a) L                end;
* f9 H. v' @+ i% ^! n( w        next;
        machinename:=sprint("M",rows);
! Z+ ]: x: C0 A1 {/ _* q6 }% r        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;标识符未知
( x- e8 U1 k+ }# v  z        machine.proctime:=5;
2 I3 {# r3 D- k  }        machine.label:=activityspace[0,rows];
& z6 o1 k: E$ V, C9 \- @        machine.exitctrl:=ref(leave);
       
        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]);
; ~: Z$ M: A' G. i3 \. I7 C" ^3 I1 J        buf.name:=bufname;
) v8 \& M, g$ }& O- p- [. ?$ K. x        buf.capacity:=5000;
! [& J  b+ {7 `/ j. \0 d1 _        buf.proctime:=0;
" _& }. e! b- y+ u3 d" y        .materialflow.connector.connect(buf,machine);
       
        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);
: S9 `; ?9 }: R2 [next;
, c; o' R/ p0 w9 Kend;