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

zooey

is
- q6 E2 [) [$ i6 f9 A; M9 n$ R        mark:boolean;
( S) J) @8 z1 M        dx,dy,ct:real;
9 G( n& E. ^: C4 ?% `    i,j,rows,lines:integer;
$ K7 `4 h/ f3 R! l* k& X' @    machinename,bufname:string;
    machine,buf:object;
& x7 c8 c$ `6 D4 N# a  C; l. I: L/ wdo
8 i& U  i; D3 S! }! E        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" X' b) \1 G  t+ `$ `) ^                when 16 then
0 l6 O9 A% {9 i# {6 G; Z3 Q                        print"yes";
                when 32 then
: _& ]) ^' K: f                        print"no";
                else
/ e4 ?' ]' Z! t1 Y                        print"cancel";
                end;
& q9 F7 q" b# [+ I; S7 Q                eventcontroller.stop;
        end;
       
% B. Q/ q; j  {6 U        for i:=1 to number_of_machine loop
% r: R0 ]" {. \% w2 H        machinename:=sprint("M",i);
/ l2 t9 m5 ~0 M# L1 c        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 }% @/ G: n, _3 V                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 a% n. ]* g; X: x9 t( j+ S                buf.deleteobject;
        end;
* p* p2 G7 E- n8 J' T4 c        next;
       
        dx:=0;
5 I# v$ g$ [$ C# R- n, C        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, _: }6 r1 u% w3 @* A                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. k' U# u; o6 d" `; s' \; m                        and activityspace[1,rows]<(1.05*y_max) then
7 {1 m$ y! `2 ~' V1 e                        print activityspace[1,rows],",",activityspace[2,rows];
. ]2 s0 Z' z0 u8 d8 Q( @4 p( s, F                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 ^7 z7 }- c6 @# u6 c6 j. m                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
: d0 f. S& R; {; ~- s                        y_max:=y_max+dy;
                        dx:=0;
: v0 a. I$ O( ?- v9 _8 L0 _                dy:=0;
                        --end;
5 Q( F* u- |  n+ b" |0 S                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
1 u1 j1 w2 \' `- o                        dy:=activityspace[2,rows];
' {* G: d+ V3 m7 r                end;
  P: Y8 C( @: @3 p: \, T                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# J; Z: ^; h: R; |9 A                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 h: V% ?" J  B) U3 B3 a2 ^                        activityspace[1,rows]:=ct;
% g- N( L8 N! \                        end;*/
' J9 e- q7 n1 l: h% I3 `        next;
0 R8 t  o1 i4 }& X4 J" I' r        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);
5 e* |/ f* ^5 R# U        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);
       
) H: `( a+ h6 p! M$ o- v        rows:=0;
1 ?! I9 {6 _4 ~8 Z. h" f5 z* C        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
- p$ z* C( j$ V6 C0 U% P' _) @                        if j=i then
* Y8 J5 }' U! q* ]- N8 B: n- x                                d_from_to_chart[j,i]:=0;
/ Q. U- P9 P5 ?                        else
4 c. L( p7 K# a  X1 h* X( M                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
* R* \6 X2 L5 M' B* z, L) T  a4 R. l                        end;
                next;
        next;
       
4 H1 j3 _- T! G8 r0 L& V* `        lines:=0;
0 z) o7 m7 r) E) c7 v. U, `        partstable.delete;
, i7 K. R( p6 O. }       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* L9 ~: a/ m# \4 X4 z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& s: c) ^$ B) H6 H                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# A6 }2 d. p2 r: _% E) [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- [7 F; B2 L& X& G                        partstable[2,lines]:=w_from_to_chart[j,rows];
' [& [  v8 Y5 @: K. K) G( ~                        partstable[3,lines]:=sprint("parts");
7 y/ h+ ?1 ~% {7 X/ E9 n% e                        partstable[5,lines]:=rows;
# @' e/ h$ y1 U  g                        partstable[6,lines]:=j;
                end;
$ `, H4 m8 Q/ I) [1 C8 j) j        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]);
. r% G, L) Y3 i) B* o        machine.name:=machinename;标识符未知
        machine.proctime:=5;
+ t# }7 _, s5 C3 k9 w        machine.label:=activityspace[0,rows];
# D& m& {( z  C0 z, t        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
2 H( m0 b. e  K# }9 n6 J0 b4 ?        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;
' v, U$ d  }/ K) h/ @! e8 \        buf.capacity:=5000;
. Q$ x% r0 b* X9 `7 s# M: Z1 E5 J        buf.proctime:=0;
: a3 t, d; U( W$ \$ E# j        .materialflow.connector.connect(buf,machine);
  S$ X0 j; z4 M2 b/ i9 r. E& ]       
" }4 `. t) E) {0 F0 L7 `; 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;
2 b9 v' p( Z8 T: U& Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, ]; I& p3 I/ Q! j: N" ~% H$ P" u0 Vnext;
% `2 S0 L- c. N; [" Xend;