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

zooey

is
        mark:boolean;
" N% w  Y' W0 s# x        dx,dy,ct:real;
& X4 A8 h7 e4 m5 S! W7 L- s3 `* N: v    i,j,rows,lines:integer;
% c6 f" V2 g& s; G2 q' i2 e* G    machinename,bufname:string;
    machine,buf:object;
* ^6 e3 b! ~$ k+ J  n: a" ido
        current.eraselayer(1);
, h; Z' r" Z# n% {( ?       
        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
' U) |6 n" s6 i  F& c( ~- n                        print"yes";
( Y# j6 j& T9 p( ]1 s                when 32 then
- ~/ F2 X7 G* F7 k: P. Y* q                        print"no";
- m+ _; G6 |' i                else
                        print"cancel";
$ L% y6 n2 L- W- m# u# X1 U                end;
, @( A$ S4 r2 G2 t- L( O/ [                eventcontroller.stop;
7 H4 g* b2 u" i- z% d        end;
6 T  v9 o" ]$ I/ i       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 I* T) C( y- S8 }, K7 g  H        end;
  b+ o. A! u4 B  i9 E        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 S  {8 q+ N) [                buf:=str_to_obj(bufname);
                buf.deleteobject;
0 g4 a/ q* X: E# B        end;
        next;
6 @: i/ S; B; x- l" H1 m       
        dx:=0;
& p& x! ~5 c# c& c% Y3 ?        dy:=0;
* @2 {. d& C/ b. B* ^; Q        for i:=1 to number_of_machine loop
+ i0 j3 _( ?: _( X1 {$ J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 B! w6 w8 z+ E& a2 X" [3 U' G! u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 `: m7 F# P: L. p  y: D2 K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
/ ]1 f7 x! B# ?# @2 ~" w2 w$ w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
' S( \) N) f( J1 w$ |8 e5 d0 n. A                        mark:=true;
                        else*/
9 {9 P$ S2 _1 `& }2 L/ S* o                        y_max:=y_max+dy;
                        dx:=0;
* |0 X$ _) F8 y                dy:=0;
                        --end;
                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
  G5 @( ~/ H( S# C; n: j! l) T                        dy:=activityspace[2,rows];
                end;
2 I& k/ p* A) h& O* [- h                dx:=dx+activityspace[1,rows];
8 n+ J: a- d9 X- T3 @" w                /*if mark=true then
% m9 w3 O0 d6 k# D1 A2 S4 b+ p                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( j+ R% P6 E' l! ^4 |                        activityspace[1,rows]:=ct;
/ S9 K1 p3 E: E' O( _                        end;*/
+ H( J0 U* M7 v2 h2 }) P        next;
) y" u) b1 h) E        y_max:=y_max+dy;
- I+ D4 ]. f6 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);
+ b  z) F* i3 g# e$ s6 K        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);
  b9 I- q% D, T& o       
        rows:=0;
        lines:=0;
) @& Q* H- @$ Y! V        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
, X- X4 ~7 E3 m8 l/ Y& _  X% t* ?. W                                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];
" m/ I5 A$ u6 k1 {! h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& i7 f. Y) T# R+ Z$ t1 L7 ^5 e                                d_from_to_chart[j,i]:=abs(dx-dy);
/ O( n; P/ y# c1 v0 y6 C, X6 g                        end;
                next;
        next;
4 M' ]9 r, S4 [5 N& r9 o       
& S' l- j7 y; ^        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. i4 \) G% w; Z8 u  f                machinesequence[2,i]:=rows;
' Z+ I+ t" ?( w* R* s4 Y! b4 W                for j:=1 to number_of_machine loop
  P% W0 I9 G: E7 `* G, M                        if w_from_to_chart[j,rows]>0 then
, U) V% B. a6 z: s: M                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" e# ^2 e- `, E) r6 K                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ q5 _4 B4 D: `1 i                end;
        next;
; h+ }! t" g/ k$ U  i% L6 ^        machinename:=sprint("M",rows);
7 \& P* n( e4 j! G5 t( |$ z        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]);
  ]3 [+ g! x. f' @% E% p! P        machine.name:=machinename;标识符未知
  o/ ~+ [% M, Z$ s$ \        machine.proctime:=5;
/ U+ {2 |  ^6 Q) ~, r  c        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. s/ y/ n# c. q* l        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;
        .materialflow.connector.connect(buf,machine);
) L: F* j: @4 l$ d8 o( R6 L, N9 D! x# d, [       
: `) [! N5 m7 _) Z$ ~- P        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ S  _. T$ l( k' hdy:=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);
$ t. m, C0 r0 S* J7 I+ W% W  knext;
end;
+ \* B: U! R! b5 L% U$ p