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

zooey

is
. Z4 A& O2 T! g0 g        mark:boolean;
        dx,dy,ct:real;
( j4 ]8 ?* R- {! s9 H2 s    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
; t3 x  a  S  {6 K0 Sdo
' [& X! F* v# o: j1 i7 @# \        current.eraselayer(1);
       
0 b. Y6 Y1 d, O' i- M# j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ E5 `$ R7 P$ v9 E4 w8 b7 d                when 16 then
% {' z: F& w; z( A                        print"yes";
                when 32 then
                        print"no";
" ?+ y- N: ^4 p5 h. X) H. e" p) {                else
4 I8 ~7 g3 ?9 j" ?1 ^3 G$ l; }5 `                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
) n% w( _6 \1 U8 e3 Y        for i:=1 to number_of_machine loop
& L2 Y0 H& R" n' M        machinename:=sprint("M",i);
2 r. J' m- ~8 l" e4 S) C        if existsobject(machinename) then
+ d6 {6 T) `6 N# o+ H                machine:=str_to_obj(machinename);
                machine.deleteobject;
# Q# u! q& u' M8 B2 F# {) n% C0 M/ f        end;
        bufname:=sprint("BF",i);
; ~: ^# h" `& s1 C) C        if existsobject(bufname) then
4 x5 t! E9 R# Q. V, M- }% G                buf:=str_to_obj(bufname);
                buf.deleteobject;
8 q( L& M& ~% [+ [8 R        end;
6 k! b; N  L  d5 D1 m0 i3 J6 J  Y0 n        next;
       
. Z+ [4 |' J. b7 ~' u' S        dx:=0;
6 E+ f2 w) U% Z        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. r8 |& ?$ `- ?* T+ d- ?& k; E: R                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' l& e6 f8 d5 [( @. }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" b% \7 M1 d9 m; m. }$ L7 d7 l                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
) O' I0 A/ W' R3 O- W$ R                        dx:=0;
                dy:=0;
                        --end;
$ A* ~/ ?1 d5 l. M0 k9 }! }+ q                end;
# o+ C1 A' e% d# E                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 O. G- {2 X! n$ ~5 B. @                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 j5 h$ v: `5 p( Q: c            if activityspace[2,rows]>dy then
6 T8 o5 [; ~6 g( \/ O7 |                        dy:=activityspace[2,rows];
: Y1 {1 t9 U* i$ q2 t! F- l, G7 m! H                end;
                dx:=dx+activityspace[1,rows];
" _0 y. B! t* n) z: a                /*if mark=true then
                ct:=activityspace[2,rows];
, T+ O3 b* r1 X                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
" \7 G/ D5 ?5 x7 x9 |0 G        next;
% B; `$ A4 k9 p8 J6 S* R        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);
        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);
. t: l! B! x/ m0 L3 D       
8 @3 ]; u) W! U! s' o0 ^  B4 d* u        rows:=0;
6 h& r  l: `3 u1 C        lines:=0;
        for i:=1 to number_of_machine loop
/ r. P: A, A' E$ }                for j:=1 to number_of_machine loop
0 k2 X5 D, G% ~% I9 U                        if j=i then
' f% F* B  j' \7 K                                d_from_to_chart[j,i]:=0;
                        else
4 L' n9 r9 W8 o  }1 a1 C$ |                                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];
' Q# J6 ~& b1 Y6 z! R  s& E5 K1 N                                d_from_to_chart[j,i]:=abs(dx-dy);
6 n! r; q' G5 g+ U% |/ A% C                        end;
                next;
        next;
# \( b: {1 c5 Y       
, Z3 F! }) U3 y        lines:=0;
+ ?9 O  z2 d' j1 n+ v$ v. Y        partstable.delete;
       
. `3 u  J& O: o! w  F; h        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 P7 w1 v. {9 b1 p/ H+ N- q5 Q                machinesequence[2,i]:=rows;
5 g8 c6 [. u8 D) ?                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 V; O- `/ S* m6 M. @- d6 Z                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 Z0 q. I0 e' X* d2 q" [/ y                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. x3 r9 C& u( z! b: m                        partstable[6,lines]:=j;
* [- M* G9 k* ^- W/ K$ Y" d9 A  Y( x                end;
        next;
        machinename:=sprint("M",rows);
* X5 y* i! L1 a0 L4 P: \        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;
3 D! ]. _) C( \! `        machine.label:=activityspace[0,rows];
- k5 N) ]) m  t) t2 V7 n        machine.exitctrl:=ref(leave);
( B' U' B6 f" j9 o1 v       
        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;
6 t8 [2 x$ C) f3 Y+ _4 A5 o3 P        buf.capacity:=5000;
8 \% b" O2 I/ B5 e) H        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=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);
next;
end;