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

zooey

is
- f3 J( `( M6 G1 i5 f  p$ l        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
* L+ ?- [# i% `7 d; e9 Q8 c0 P! T    machinename,bufname:string;
, t- M2 g" Y8 V  |1 O" m( W    machine,buf:object;
8 t. R1 x) v' T% }* H9 o2 ~6 Rdo
+ r& T  ?. a" [% `( O2 h' e        current.eraselayer(1);
  X, l/ F5 L# U: y. E       
1 W: \( B% I2 a$ t9 n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 w* p+ H2 [( a( Y2 k- C                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
, d# V2 Z% v- L$ b# [                when 32 then
# Y. m5 W5 k; R1 I5 ^: ~$ q                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
& Q9 o& b- ]- q+ w1 F2 p        for i:=1 to number_of_machine loop
% ]/ O- E# H3 i2 j. }        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 B- ^) n+ z" H" [8 s5 Y; h" m                machine.deleteobject;
- p' l1 J& V; z6 H- z" X        end;
        bufname:=sprint("BF",i);
/ ?; W; Q8 ]9 X3 B        if existsobject(bufname) then
- b9 a7 @& Z1 V0 y9 P: i2 b                buf:=str_to_obj(bufname);
- r) o. i, c1 Y' x6 `                buf.deleteobject;
        end;
        next;
       
, C- G% h4 p0 I5 ]9 b' e        dx:=0;
9 @! e4 K# b/ d, O- \% E/ X        dy:=0;
. n: B0 g2 c2 a        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]类型不匹配
1 q) h6 K+ d  l: A                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 r, T2 h' M2 p- I! S6 _                        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];
& n( l4 }! H6 _9 Y  w3 @& s% U) V                        activityspace[1,rows]:=ct;
                        mark:=true;
( _1 e* B2 V$ A6 H- |3 U& [                        else*/
4 y) p+ y+ H1 \, B                        y_max:=y_max+dy;
6 x1 ^4 T* l  [) O$ I                        dx:=0;
) g! U3 W8 D1 ^/ s                dy:=0;
                        --end;
                end;
! Y0 Z0 g! t  h  s4 u1 \+ X& Z# B                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 ?# R7 A% t* e& W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) r- W- c9 ^7 E2 `            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
( ?7 j+ D# [' P. h. N. Q% b0 \" x( r                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% V. F$ a" ^4 i6 r8 w                ct:=activityspace[2,rows];
8 {+ P2 \, T  b% ]                        activityspace[2,rows]:=activityspace[1,rows];
5 `/ B) Q+ G, s                        activityspace[1,rows]:=ct;
                        end;*/
8 B" L- K( y! }, l* X/ Y+ {        next;
/ c9 I) B* l! a3 J, e+ N        y_max:=y_max+dy;
- j/ c5 V" \! f6 F" m8 j& O! 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);
        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);
       
        rows:=0;
5 Y/ _2 d5 p. C: f6 H7 b+ v        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
" j( d0 @% Q) H. d" l                        if j=i then
5 t8 m6 X" l* \8 E                                d_from_to_chart[j,i]:=0;
                        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];
: M) q2 X$ a6 ^- _. k; w                                d_from_to_chart[j,i]:=abs(dx-dy);
* r0 {$ M5 V! G3 K% T                        end;
                next;
: L0 w" ?0 M- S5 I0 s4 t4 [2 r        next;
$ r6 m6 l6 S/ u: P$ R       
1 M6 }7 i. s' r# K, R        lines:=0;
        partstable.delete;
6 a9 t0 z3 P: l& A' c& b% z       
" W* t* Y' u8 O0 y0 z8 E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# r) }! b% I. D3 e( t8 \                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 x6 M0 G1 Y- b) m- T) e$ e                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 ]/ ^  `6 n9 |                        partstable[2,lines]:=w_from_to_chart[j,rows];
* |/ s8 ?' J8 V3 H6 m/ K9 ~3 x2 M5 v) J                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 {- a5 D$ o% i/ N3 ^                        partstable[6,lines]:=j;
' Y4 e$ r4 _- l4 D" u+ g                end;
1 L/ L+ V7 b! H( ^  f1 G, ^        next;
        machinename:=sprint("M",rows);
' A1 E- p& i7 M: {2 Y3 M3 F& l! l        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]);
1 I1 Y7 Z6 H8 g' M& n        machine.name:=machinename;标识符未知
* M, [: u0 g; G! `        machine.proctime:=5;
+ C+ ?; q6 u3 I" f        machine.label:=activityspace[0,rows];
, o; F2 y/ n+ M  R$ ]6 g2 _" }& ?# {        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]);
6 l  q+ u; D9 ]) z6 b        buf.name:=bufname;
        buf.capacity:=5000;
        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;
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);
: U; a, q; ?8 Znext;
, y( N$ c% a/ e( b  A& lend;