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

zooey

is
        mark:boolean;
; t9 H9 J3 M' Q4 k5 n6 a9 F5 x; d        dx,dy,ct:real;
, k: {/ \' n: q0 p3 p, \! Q    i,j,rows,lines:integer;
2 D: J) {" H# U& U( y* O    machinename,bufname:string;
+ i1 H/ F! }' g) Y# ^, E# r' l/ t7 V  |% F    machine,buf:object;
9 p% B, w4 d/ vdo
0 G( w/ p6 W  |: U' k$ G        current.eraselayer(1);
       
( S! E) G0 c7 Q) d* I; u; A% W        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
: E: j4 |1 k! I) R- b3 e* _, m                when 16 then
& F8 l3 T2 U' _0 [7 `                        print"yes";
$ L2 l+ ~# }: o/ Q2 q                when 32 then
2 U' Y* a  C$ \) ]) q- A                        print"no";
                else
                        print"cancel";
; f- _% P2 R2 Z9 x3 A                end;
                eventcontroller.stop;
        end;
5 G5 i' i8 }" c( F" r       
        for i:=1 to number_of_machine loop
/ g" F; S( k( J/ f        machinename:=sprint("M",i);
        if existsobject(machinename) then
( ~8 V/ t9 [9 P0 e                machine:=str_to_obj(machinename);
" N/ l  v- B4 N: T5 N$ T, Y                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
% _7 i0 ?; ?- P( d% G        if existsobject(bufname) then
; m! i' Q3 u/ b7 D; y( D6 M) |                buf:=str_to_obj(bufname);
                buf.deleteobject;
. v+ {. p/ \& P5 C7 c        end;
2 Q/ s& `8 I; k        next;
       
& M, ?, C% K. P        dx:=0;
$ U! \6 m0 O8 U5 {+ b, F$ T" ~6 p% z        dy:=0;
% o" F0 w  k0 o; L6 k- E/ Q& ]! d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. Y* l* a0 _4 I7 L  `" O; f1 A! _                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 s$ n4 I( e! S* _' l! P                then
$ ^4 Q. W4 [( j( m+ b                        /*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];
2 l0 M0 X  R- ~! M5 u                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 r! D/ d5 F# ^" f. \4 S. o                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
# B* C# }6 O1 _9 W. d; B! J                dy:=0;
& P/ y6 W+ [; H# ?5 m  [: g                        --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;
, k; L- T" ^/ ]9 O$ d( _            if activityspace[2,rows]>dy then
9 w2 H5 B  o/ y7 [" p0 y0 Y                        dy:=activityspace[2,rows];
                end;
6 m( |9 S1 t0 o3 j; D1 d                dx:=dx+activityspace[1,rows];
' L7 e$ c% d  R: K9 m  C% N% j                /*if mark=true then
- [) `$ Q$ j* G5 w1 k                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
2 L) M- o9 P% A  ^5 u        y_max:=y_max+dy;
1 [& G( F. n/ Z        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);
6 s9 z- x( z7 u& g        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);
       
& R  v6 J6 p. Y6 X        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
# o, N  y9 E. v4 {                                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];
                                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);
                        end;
                next;
1 e  e6 p4 r) d& G, R2 L! A        next;
6 }3 R" i/ i2 E       
5 R3 z, G: Z; i8 M7 B! G        lines:=0;
' E) \& ?# K! s# L        partstable.delete;
; J% b$ j) v6 D: D& o' F6 u; ]       
        for i:=1 to number_of_machine loop
9 U! r+ v' d; F0 Y; s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                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"));
3 E" L' V% e8 Z8 C0 \: f  _                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- F7 ]9 b8 B8 ?0 a                        partstable[6,lines]:=j;
' ]7 U' d& z8 H5 w3 o! M/ m                end;
        next;
  ]0 e) F& b( L0 Z* @1 s; 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;标识符未知
- f- f4 Y! g6 n        machine.proctime:=5;
. v2 [% N& r( ]: b. G& H        machine.label:=activityspace[0,rows];
8 Z8 `- ^! K- i& P9 M4 x        machine.exitctrl:=ref(leave);
" }# D% ^7 q3 k. M  y7 H  {+ B       
        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;
$ G4 V6 N# a; \0 n9 T3 X        buf.capacity:=5000;
; ]% w0 _* B5 h0 {3 D8 H        buf.proctime:=0;
% a; Y+ a1 i- |+ j3 T        .materialflow.connector.connect(buf,machine);
( {; ~5 W1 L5 U4 b       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: d& q/ u3 E; h* sdy:=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);
2 A; [$ x8 p1 I, L; b1 X; }: anext;
end;