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

zooey

is
        mark:boolean;
+ H* \# G$ v, H% O- e4 E% Y        dx,dy,ct:real;
- _. A" c4 P7 b) W- }: a    i,j,rows,lines:integer;
    machinename,bufname:string;
, Z3 P9 A$ v6 ~8 Q2 V0 v    machine,buf:object;
/ I! V5 ~  e( b# Ydo
* }/ q+ S4 |7 y0 z* W+ {* G        current.eraselayer(1);
. _$ m( S& a6 y& e- Q0 G( y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 ]  [1 v* D* p4 f+ v                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
8 u& J5 l$ D5 k3 P. N                when 32 then
                        print"no";
                else
                        print"cancel";
) }. y3 O+ e2 ~0 b7 l. p                end;
                eventcontroller.stop;
$ v# L3 N5 _$ o7 r! L" @9 m        end;
3 L  V+ `& S' E" B/ O. L       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' @" Z" Q9 G7 ]$ k4 s$ c        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 b9 f, {8 `2 M$ }. P        end;
$ N# |- O! @3 f/ i& c1 l        next;
       
. s0 D' p5 b* Z0 s+ R4 \1 X5 a        dx:=0;
        dy:=0;
4 ]5 ^9 y9 [  \5 I        for i:=1 to number_of_machine loop
- J& S) o, s4 F# g% W" O. H+ B! G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 |' T8 U5 z7 m  G  K                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& l+ T7 J/ G6 ?+ y: Z- |1 n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 k0 s6 ?6 F& r; H                        and activityspace[1,rows]<(1.05*y_max) then
% w2 w% Q& Y% _, ^, }- B                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" P- ?3 [+ H& y8 h                        activityspace[2,rows]:=activityspace[1,rows];
* S" J+ ?! t1 ?9 r& g8 I                        activityspace[1,rows]:=ct;
( L" F; M2 W' W7 a% R! t                        mark:=true;
( P. z* v8 e) j: x: @3 d7 h                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
2 @; T" u2 b6 ?5 D3 U7 u* C                dy:=0;
, a" x8 q* S# N( |& z$ D' h                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. A) K6 x( e  D- g  H2 K$ t                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
# Z  {1 z: g0 [1 Q. c7 v" `                        dy:=activityspace[2,rows];
                end;
1 }9 K* f/ F' l9 G5 ^+ }7 h                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  D) h: v" F9 P2 O1 p* }0 o3 r; }                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! z% y1 Y9 M) z! M                        activityspace[1,rows]:=ct;
7 ?. i. S. |& P0 o4 t                        end;*/
% p6 f; A1 ~1 g; O        next;
! g7 e) Y0 E1 I4 v. c        y_max:=y_max+dy;
  f. e  R) ?: O" ?        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;
* k- X( w( B: y5 c        lines:=0;
# {- _1 l4 w  C        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 T. a0 q4 b: C" W  S/ W                        if j=i then
5 {8 Q+ R* o4 J$ H# g3 M4 N                                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];
6 A! u# \( x( h4 e" j                                d_from_to_chart[j,i]:=abs(dx-dy);
) n% a- q$ V0 A( T, S. Y# M! F                        end;
9 p  a: p0 D( l- X: `6 i* r                next;
        next;
       
' ~7 l) w# ~! d7 L        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ |. l" J7 g0 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ Z* m* C/ J" I" z; @1 L                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
( r- n3 w' F% O' Q# J                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% }/ \8 s9 W- H+ o' h                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& [. d7 _2 G0 _' J                end;
  o% H3 U. J) v9 `/ O1 P        next;
9 C4 f7 E- Q; s9 N% E& L1 X        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;标识符未知
        machine.proctime:=5;
1 L- M5 d+ g1 E        machine.label:=activityspace[0,rows];
1 E9 N& ^8 \  Z- n        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
0 h$ @' v) X2 ?5 h  A0 b        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, j) O/ Q) u% h# W7 z2 Vdy:=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);
  R' q& M) M% _next;
/ H9 s; V. Z5 |  ]" ~) dend;
% q6 w3 m6 R7 x3 d" _5 d