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

zooey

is
        mark:boolean;
0 ]6 K' C; T) ^" `$ h: z        dx,dy,ct:real;
    i,j,rows,lines:integer;
- s! `/ o5 e+ w# s7 |2 {' @9 s/ j) J    machinename,bufname:string;
, ~+ p! }# W! v) s    machine,buf:object;
do
        current.eraselayer(1);
0 n2 J* e3 H7 L5 M, U       
        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
6 x$ V. e5 c* T' |9 j2 Z                        print"yes";
$ v' f! a- n7 L& B* K3 y+ s                when 32 then
; i4 Z+ ]1 d) i; F                        print"no";
                else
; Y9 U$ Q1 G* [* T3 f( P                        print"cancel";
                end;
4 @, p0 ?4 d( z0 W" r0 l, `                eventcontroller.stop;
# x8 L: @" ]4 W. ]# H7 c4 D. x9 f        end;
9 u* ]1 i) r7 A       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
' o* U8 v! R9 A/ q% H* p                machine:=str_to_obj(machinename);
+ T! I" X; s3 q+ k! U6 }3 }                machine.deleteobject;
* o! l& r, z+ o( a        end;
        bufname:=sprint("BF",i);
& C1 h" l6 @0 ?/ x. N! z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. k  B- o" s% S" P* d( a. O                buf.deleteobject;
        end;
& b' f: T# C6 W! E  \        next;
, C" }5 j8 u" Z+ M% ]6 A       
. U* N! t& V+ w; I0 ?/ [        dx:=0;
. [5 ]. d& C9 A* `! r9 p, R        dy:=0;
) F6 r; Q' i0 n& x0 H" N1 h9 c        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 j+ z  i2 R; i2 T$ s# v* t                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- Q5 Y6 V5 M. q8 o- x                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) @( g$ ^% N3 V$ a+ E$ X                        print activityspace[1,rows],",",activityspace[2,rows];
% b7 a% J# W' X# n- t1 }+ A                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ w1 U( @% `% P                        activityspace[1,rows]:=ct;
' \0 {2 ]1 H, `: T                        mark:=true;
* v! I& L. V+ I. ^$ ^" w( {; P                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
+ D7 A" H  q7 L                        --end;
                end;
! e( {, e( V3 q                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;
. g& [( m5 Z+ o- W) X            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 X4 I6 `% E0 d# x4 i4 \                end;
' E2 U$ i+ D7 \% x% W0 D, w                dx:=dx+activityspace[1,rows];
$ E& J0 j0 z: b, ?0 \$ G' }                /*if mark=true then
: A. ~$ y& o) m. @7 e: ?9 B                ct:=activityspace[2,rows];
, M0 @( G: r  @) [( \5 F' Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- a' D4 B0 E5 F1 ]/ X! a        next;
        y_max:=y_max+dy;
; ?9 ?9 g: O! P: N! m+ p) \        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);
2 Q4 f" c/ @# b/ Z- d        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);
; u# K( v: Z1 P( q       
        rows:=0;
2 N1 I. N/ [9 ]- ~" j8 G* M        lines:=0;
6 d( P2 J' v6 O# ~* L. C        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
' Z# o1 b6 q9 [0 M$ v8 I: c                        end;
                next;
        next;
+ J. a- W' u, n. Q1 o+ n6 _       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
5 D5 C! M% ?! k  k5 v                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
7 m' P. `3 n3 I' L                        lines:=lines+1;
: D9 n% B) Q+ ]7 S; F4 Q- z. X. Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 z0 Z7 d# |$ n- v: S, A                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 p2 g# }% z) L; I  s' ]' K                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- O( U0 K* ?( M/ j. v1 M) q                end;
        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]);
        machine.name:=machinename;标识符未知
( w/ h: ^' R  _        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% c7 ?  V  `3 z( u       
        bufname:=sprint("BF",rows);
$ F( j- f' q- F        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;
- D" A: _% C7 t, [' n% a. h1 t        buf.proctime:=0;
( H: o, M$ \2 D0 P% n  m) h        .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);
2 }# ]% a6 |2 C' V% l$ vnext;
# m+ @& k4 B0 k( j' y6 M% s1 P/ Hend;
  V/ ~" f" S3 V1 G4 x  s; I: l4 N