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

zooey

is
        mark:boolean;
+ `( }: D$ {6 @" |7 D        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
2 J  \( v) o7 K) O) W! V; ]do
; Q, ^- k1 F1 T/ K9 Y        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 @; W2 u: b1 V                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, m! H% N4 w( F& B+ c9 s                        print"yes";
                when 32 then
1 l0 l% g! z. U3 v                        print"no";
! K2 q; A& N: c. e5 d$ [7 b6 x$ |                else
                        print"cancel";
                end;
$ Q% n2 v4 d7 y, J8 R, r                eventcontroller.stop;
        end;
       
9 Q) j" g; `0 v8 C5 q; Q        for i:=1 to number_of_machine loop
2 T9 X" \* R& u( f6 U; T        machinename:=sprint("M",i);
( i. r7 W4 t4 w7 Y* z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, V. [* D' @* [1 `2 f/ a                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 n5 [) \& q9 G% |& ?        end;
. X1 p0 J/ E$ u0 @        next;
/ z7 a* q- A! M4 c       
- w0 y: Q6 c/ w$ T8 p        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
+ ~+ z5 Q/ ^' P8 V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
3 _- G7 n5 t( e/ ]- M! n( N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( v& m- ^% M" ]( K                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 s* z' v: o7 g                        ct:=activityspace[2,rows];
: v: Q# M+ v( G* V                        activityspace[2,rows]:=activityspace[1,rows];
2 G% Y, t1 r1 M, C, Y- ]0 ?                        activityspace[1,rows]:=ct;
                        mark:=true;
9 G) h" y6 w8 U) u0 u$ o2 }1 Z                        else*/
7 V8 X. ~, }* g, V                        y_max:=y_max+dy;
7 N5 r1 G7 O6 R. u; z4 b/ K8 M: B) m                        dx:=0;
                dy:=0;
8 N# G- U# X  T, K, [                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ C7 N- |/ }; E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& N+ j/ @6 }. B" Y, l            if activityspace[2,rows]>dy then
: |- Z- M. n, n' W                        dy:=activityspace[2,rows];
! h& m8 l+ d- y) {: J                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
+ ]/ k% H8 ~" L/ y% G) R8 M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ m( C/ G5 w) q1 J6 p5 G: `                        activityspace[1,rows]:=ct;
                        end;*/
. q5 b) C  D" ^) q0 J  g        next;
/ A, v8 H0 s; G& r7 C% {        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);
7 [* s9 _6 F4 F( c$ _, H: t        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);
5 g( s( b/ A1 b8 P% \/ n       
: ?- b3 U' t$ q3 f2 A" O        rows:=0;
' \5 ~& U: q7 p/ N6 [        lines:=0;
        for i:=1 to number_of_machine loop
6 f8 q) Q& h  |) i                for j:=1 to number_of_machine loop
% e% Q! L: g$ x- c; x                        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];
6 K0 n- _' M2 n% l- G  x0 o% e4 D- Q                                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);
3 e* y/ U  a; L                        end;
                next;
        next;
       
5 [- x& j# a' U7 s        lines:=0;
6 t4 E1 L; X5 m% R! c/ u        partstable.delete;
# |0 R( _4 l; D       
        for i:=1 to number_of_machine loop
' N! \$ W# S" }  F* W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* J, l/ d- ~% O7 z0 _( ~                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"));
: ?9 o% _$ X# z, `% F                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# A1 d- G! L2 g2 U# k+ ~$ u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
& O: |: r$ o* Z        next;
        machinename:=sprint("M",rows);
' a& C# h% b& A0 j: A        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]);
, T1 [9 f1 P1 G9 ~7 D2 M: K        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
1 Q! X' K. z- s# A0 V+ Y( f        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]);
' W0 ?. C- O4 f' f' p8 O        buf.name:=bufname;
( n8 f9 l( A; g. \5 u' X        buf.capacity:=5000;
2 l1 J: X8 y6 `! K        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% Z! s7 F- ~. I  I. p4 I# W       
. m4 J3 S( k! p/ }        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: V8 Z# d$ T. v8 Q( Bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* Y( H3 {0 c( U6 |$ V  R3 Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
+ l% \# R* z; v5 T) e# I/ Z! Pend;