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

zooey

is
        mark:boolean;
; v! k3 G* J7 O/ _! A8 M* Y        dx,dy,ct:real;
) C) T/ |3 z; Y# S8 v7 a# @    i,j,rows,lines:integer;
7 O* J* m# H- Z3 K  p5 y  |    machinename,bufname:string;
    machine,buf:object;
& q. p! i! s0 B. Z* V) f& T$ v9 S/ ndo
        current.eraselayer(1);
       
' b; W" ?2 o) W6 @4 P$ v% _        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 v: P* O. G; A# m4 r8 N* P                inspect messagebox("设施数目不对！请核查...,",50,13)
( l% Y+ _) @2 W" y                when 16 then
                        print"yes";
' }% o4 g# R0 W* p                when 32 then
& n- ^% G! ^/ \# A, A; @                        print"no";
                else
& ^% _* ~  l1 `0 I; U                        print"cancel";
                end;
                eventcontroller.stop;
        end;
/ ^$ p8 V% s5 z       
- b, u; c) t. S: ]# U1 v& r        for i:=1 to number_of_machine loop
3 G: C0 _: n/ Q) k. f+ k8 o( f$ l        machinename:=sprint("M",i);
' A7 x9 ?) R% l        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
3 x$ a* ]" n( t8 M        bufname:=sprint("BF",i);
5 k9 d  d/ q9 B2 U8 y1 }        if existsobject(bufname) then
, i( R, O# m) d7 d: G- E                buf:=str_to_obj(bufname);
5 {. m8 |* G- P8 N4 G                buf.deleteobject;
        end;
" a$ S( W" T% p7 s/ I& ^        next;
       
        dx:=0;
0 G0 A' c, }! |/ a2 T5 w0 X/ }& j        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! q! B+ m6 n. w                --mark:=false;
* }9 C5 e' N: e3 ]' g                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. t% b7 `, R$ Z                        and activityspace[1,rows]<(1.05*y_max) then
4 R; Q% S. Y6 v* [( Z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  k, L, J' u& i1 g5 ^1 `! g                        activityspace[2,rows]:=activityspace[1,rows];
* r4 L. s" T- f' \2 D! L& c                        activityspace[1,rows]:=ct;
( O% U7 Q9 I+ v1 H; L                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' E2 [& y4 X' H6 w                        dx:=0;
                dy:=0;
3 m' c' Y/ E9 I" I+ a                        --end;
2 }9 M9 o: _7 G                end;
3 J/ t- z1 V+ E" ~2 p1 e                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' k6 X  V: S- ?5 p! S                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 t, K* A: ]% O  @. n2 S            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
+ J/ p+ p! k. r6 y9 U" |                dx:=dx+activityspace[1,rows];
% b; C: q5 m9 k; @                /*if mark=true then
# o2 ]8 S! v" S+ s  M& [4 P                ct:=activityspace[2,rows];
% o9 c; E  z7 z; y                        activityspace[2,rows]:=activityspace[1,rows];
6 ]& x! S  G7 ?  {' @& j1 e+ Y, T                        activityspace[1,rows]:=ct;
8 F( {1 A1 s- F; ^# D! k                        end;*/
, t0 J& y8 A* q4 Z        next;
7 C. T8 |- @! i* F* H# A1 R        y_max:=y_max+dy;
3 l( L6 I0 H0 c        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);
& e' T* e* w" Y( `. i; T9 Y0 O$ S6 _- ?        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);
- s/ E( ^' e+ J9 B1 ^- F       
        rows:=0;
        lines:=0;
$ V' y8 X) x( m% A% p0 a        for i:=1 to number_of_machine loop
" F, u8 v) W, k, W  f) M7 }$ q9 {                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];
* \3 w: _6 }+ d                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) B" m: v, [* }: l: `' s; E( @                                d_from_to_chart[j,i]:=abs(dx-dy);
+ g% O9 h0 F% x) s                        end;
                next;
        next;
7 D1 C/ n( a4 q- w       
        lines:=0;
3 K" R# n6 U9 f        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( K/ u! W+ ^7 q* M( q, z( S                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"));
$ u8 k+ n9 @% ~4 \6 ]7 q- {4 F                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ c) s$ h/ O' n- b, w, w7 a                        partstable[6,lines]:=j;
9 G; G9 ^+ ?1 V* T1 a& h; S                end;
        next;
5 K" x4 F: y& t5 A  B# Z& l        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;
        machine.label:=activityspace[0,rows];
+ G: P) ~) y; e! M        machine.exitctrl:=ref(leave);
       
! k6 w2 }9 l9 \% F( c        bufname:=sprint("BF",rows);
% ^# H6 Y% R4 _* _- u& W        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]);
  x. p1 O2 O( Q0 k! X+ W        buf.name:=bufname;
9 u: N. T) `& b! G. a) D5 ]  |% a        buf.capacity:=5000;
; B; l8 B" F# l% K3 M) M        buf.proctime:=0;
' j! N- D' F! I. K: z+ g) R" s        .materialflow.connector.connect(buf,machine);
2 |# r: g  P$ p( P/ o- v. j  ?       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! l" f4 |! j) W4 Mdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 F2 y2 H) D0 K- Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;