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

zooey

is
3 D$ _6 l2 S. P: t) L$ e        mark:boolean;
  F: Y/ s% y6 e' r5 R9 g9 z        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 E2 M4 f: L3 c  N* ~    machinename,bufname:string;
, D" n( S3 ^9 L9 O/ |/ Q% Y    machine,buf:object;
$ _$ R' X9 P  L! A, X& Edo
        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)
  U) p! \; |3 Z& w3 }% w  W                when 16 then
                        print"yes";
                when 32 then
                        print"no";
; X3 `) p3 u% N: z                else
" g0 y. B+ S5 T' d  C+ A5 u7 A: ?                        print"cancel";
0 @+ x' C" K0 n; W+ k9 ?9 Y                end;
                eventcontroller.stop;
( e- n& k8 D4 V        end;
3 _2 o. }4 F( @3 T2 S. l+ h       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ s/ Y2 |) ~* [  a                machine:=str_to_obj(machinename);
" o$ b+ O3 _1 ^; q. v                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
. v0 C6 O9 v* |  U1 E1 V; Y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  J7 @3 L; I! w* N8 u) i( j                buf.deleteobject;
        end;
        next;
: f2 g  O; [+ E       
        dx:=0;
( m% S% i" r( a) j        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" F* B: q3 H8 F; p5 q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. ?* M! o8 y: d: k$ }2 W! G                then
( c) Z$ {& v3 O( I, r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, p# R  J, u( K7 l                        and activityspace[1,rows]<(1.05*y_max) then
! s; x. i' d  v5 H9 K3 t                        print activityspace[1,rows],",",activityspace[2,rows];
' \; X. s  k; P  Y* D: V! ?6 V                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ R' o2 ~  E% u% a. M- @                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
$ y! I5 k1 ~3 y# z" _, s7 `2 o                        dx:=0;
                dy:=0;
                        --end;
" C$ d; L7 n+ u2 C4 T( R: s+ Q) h4 F                end;
5 A/ Q6 A2 {+ p                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
" [# o, K9 u  w" y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
( E+ C2 e7 V0 G                /*if mark=true then
4 O6 v: Z- A4 p) |/ J- B( ~" N/ _                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 k0 h7 k  x- e% ]                        activityspace[1,rows]:=ct;
* W. n  Y$ u" D                        end;*/
        next;
* k& o6 r: z& d4 W        y_max:=y_max+dy;
7 H& T7 B$ m% V2 Y        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);
7 b8 I, ?9 _$ {( N7 S$ f        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);
; r! d  F0 ]6 W+ T3 D$ ^0 F4 q! B       
        rows:=0;
  G/ F% d' T7 m) m* N3 e        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ x$ H. }  F; r5 F( m& q                        if j=i then
9 I# R8 G; f2 l+ O, ~                                d_from_to_chart[j,i]:=0;
                        else
' _0 l. J* E; H5 i; S0 g2 i                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% m! D: }/ Y% o9 i" Q                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 w, X- J, {+ D) p. S                                d_from_to_chart[j,i]:=abs(dx-dy);
  h, A5 D! A/ k  B3 Q  K+ @                        end;
& y. Q1 o2 O+ ]' I+ u; }" V                next;
        next;
       
        lines:=0;
* P0 q- E$ N( F. d. e        partstable.delete;
  f6 P) T: R/ g" Y* O9 Z9 s       
9 _; A8 _2 H5 m8 J% B7 a0 x        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                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"));
: k% [% G: o) b# ]2 q  a                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  I0 i! R; D+ l  ]* g                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: ]5 W" u. _8 V: X; B' a. d) X                end;
* K% A& D! a0 o* z3 I+ T, w: _        next;
9 c1 u. m$ U+ e8 w8 J- e        machinename:=sprint("M",rows);
- |6 B# l! _$ S9 n3 J1 H! _  z4 {        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]);
" F, ]" t$ i. T5 {- m* X        machine.name:=machinename;标识符未知
        machine.proctime:=5;
- A: R# U9 Q9 S# k- l        machine.label:=activityspace[0,rows];
1 k+ m+ X& d' y+ i0 \        machine.exitctrl:=ref(leave);
2 D9 K8 D& |( v9 p9 J       
6 s  M  ?1 h3 y# e( ~" z        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
  V; P% I+ J9 S" z4 Y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# u! O( k7 L" S- g       
: i: U7 f% m, Q6 g7 ]        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, Q+ }/ Y1 U/ g: sdy:=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);
! n# `: Q$ x  M6 vnext;
- g+ V4 B* r5 T) @0 y3 w5 Oend;
! h3 A" s* M; Z5 w4 O8 W6 W