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

zooey

is
; |) ^+ ]2 R1 z4 M# b5 B: u: `        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
! s: P, @& C8 D: o    machinename,bufname:string;
    machine,buf:object;
do
) I, L% w5 ~$ g8 \$ y5 ]7 W        current.eraselayer(1);
. e9 b. k. |( l" m  Q       
+ G( n) x2 U1 s6 o        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
                        print"yes";
1 l' r/ v* J1 O$ M1 W+ L                when 32 then
) @/ F, u0 {5 D                        print"no";
0 e$ \& |- |9 R; Z- S6 [                else
0 q9 U$ M" ~$ v% r                        print"cancel";
  A6 n# L, ^* V6 Q& S; n5 l: G+ W                end;
/ h! W% T" m* O                eventcontroller.stop;
8 E/ U% v8 i  ^        end;
& F5 |" `- l5 }- `  u+ d       
( `6 G, D( g# M4 I$ Y+ s        for i:=1 to number_of_machine loop
2 r3 |+ ?3 I4 b5 j9 _2 t+ O% N        machinename:=sprint("M",i);
6 D& V0 {( l( d0 y        if existsobject(machinename) then
6 [/ A% [1 s; w# a: T6 Q* _1 ^                machine:=str_to_obj(machinename);
: h' {2 Q* I2 Q) O/ b) _                machine.deleteobject;
        end;
" G. L0 O8 {: A& r        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 R5 `/ L8 j  [        end;
        next;
" \  C* ]0 M  G, {       
        dx:=0;
* Y  Y4 s' l. \        dy:=0;
        for i:=1 to number_of_machine loop
* J7 ?6 d$ `! X0 ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* A4 |2 e( p/ p9 n$ f/ E                --mark:=false;
! b% g5 \) c* C' l/ l, \! {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* U' l6 J% P' ^                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 @2 l2 x- |3 u4 p- r& I- a                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
6 M) s+ S) z5 P1 g3 [$ h                        y_max:=y_max+dy;
/ r+ g! ^4 t8 b" q                        dx:=0;
5 o3 L$ h! H& K* `% ]                dy:=0;
5 j; J9 {" s8 x4 m/ U                        --end;
                end;
# p1 W+ u: x1 P: q6 q( i* T0 T                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 }- r' |0 [( J8 S; m8 u' Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, r0 E, Q2 b4 f            if activityspace[2,rows]>dy then
: S7 N2 F& {# I: S* a                        dy:=activityspace[2,rows];
                end;
3 C* h6 H8 \5 O8 E; _; d* g                dx:=dx+activityspace[1,rows];
6 C/ _& x5 }0 K! `& P                /*if mark=true then
/ l# ?7 ^3 E+ x' ]' D# e  `                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 @4 s! ^# b+ g0 B                        end;*/
3 c' a' m3 z: p5 L8 `5 L5 A) ~" D2 L        next;
! y3 a6 F( |3 R- ]4 C' M        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);
- [$ T& n* q% r* d) R8 I        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);
$ A7 w6 Q  F5 A1 \$ u1 T4 T  W       
        rows:=0;
        lines:=0;
% v( v+ r8 l0 U2 Z3 D4 T        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, T9 b* }1 n1 A                        if j=i then
% b2 k7 T2 _* n1 v5 y" ]                                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];
4 U/ |4 ~7 g* E1 I& B                                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);
4 T7 M9 X9 `; g) v4 T                        end;
                next;
3 @7 F6 y& Q. r& z. q) A+ s        next;
; m# Y4 F# e( G+ [* n       
        lines:=0;
4 s! a& v* F" ^* A, O3 O1 j# u        partstable.delete;
  l0 d2 L4 @: d5 _/ s( }% v* V       
        for i:=1 to number_of_machine loop
  U, u$ C9 w/ t) V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( P$ t8 O) ]( o  e- U! x                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, p9 T  P0 S5 u% u0 q) Y                        lines:=lines+1;
* r( \6 I; A- M8 y9 F* ~' a- Y9 C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- |4 }. b4 w/ R& G; e. r+ `                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
& D. R. F4 L9 Y# t) d" |        next;
& g( a& O% y7 i  h: ~        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;
* y/ l& I, y. z4 }0 [5 m        machine.label:=activityspace[0,rows];
4 _$ N$ ?$ {5 q# I' G( l& f' z2 p        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;
        .materialflow.connector.connect(buf,machine);
  [- x' N( S/ a4 [3 U- W6 R       
* C0 R  G$ l9 [9 k2 J" b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# \% ]; L6 e: D' O7 b8 bdy:=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);
3 k9 i5 W+ w' e" n0 ^7 P, xnext;
end;
: Y/ R. u5 g* p" y; a$ N0 c