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

zooey

is
4 T1 n" _6 T( t- j( Q        mark:boolean;
        dx,dy,ct:real;
: V: B- x/ `+ m) [& j    i,j,rows,lines:integer;
( s: f* V9 L) S( R7 Z2 A0 D" {" l# t    machinename,bufname:string;
    machine,buf:object;
$ X' u$ i7 n8 F& \5 vdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ g  X+ ]* c. o. H7 l                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
% i" y/ J! Z& m! X$ z                when 32 then
+ V& B+ _! j/ \5 l5 F9 D                        print"no";
' `' {( c$ S3 o: f3 A" f4 I$ `                else
                        print"cancel";
                end;
! r5 a: Z/ B1 c' N7 \                eventcontroller.stop;
        end;
5 Z" [7 x/ e- G$ q" z& J/ N' z       
. }2 N; \: b- I. B8 M1 l5 a        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  a" i7 a: ~8 `% E$ ^+ S, Z" B        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
8 X. f8 G9 G. e" s  Q" M        end;
        bufname:=sprint("BF",i);
% d, G$ Y, b/ S' }6 g        if existsobject(bufname) then
6 e5 e+ u2 E: }* m                buf:=str_to_obj(bufname);
1 B) n; a% C5 s0 i9 v0 ~                buf.deleteobject;
        end;
        next;
  e  C7 V, j) q$ L/ `% U       
+ ?( ~) B* A/ `7 Z& U9 a        dx:=0;
: ]  b6 b: i" T- Q7 j3 Z        dy:=0;
- ]- O! r; b7 N& c/ g5 q% H, G0 J* H        for i:=1 to number_of_machine loop
# k9 g* z5 p" M$ E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. _% \/ c- n0 j# p* `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ r' j; W' y3 W3 [0 _                        and activityspace[1,rows]<(1.05*y_max) then
6 @9 s5 P, f7 s( {& ?                        print activityspace[1,rows],",",activityspace[2,rows];
+ W% b3 r; z" }* x& p% n                        ct:=activityspace[2,rows];
  E: o* ]" |7 T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, h/ a5 \% l6 |0 W                        mark:=true;
  D2 x# h5 z1 K1 t. y                        else*/
* j4 E7 x  n3 N2 W                        y_max:=y_max+dy;
5 a6 I+ U% [  Z6 B# W& o                        dx:=0;
                dy:=0;
9 T8 t9 D' l+ X1 m$ K0 n                        --end;
( J+ ~- b$ g, l" f9 K$ T                end;
, Z, I# V& x  P* H( a& N, k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- W& U9 S/ q' s! W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: R7 |; \: a$ g. K/ ?. n3 L) F            if activityspace[2,rows]>dy then
( a$ \2 t$ E  B% T0 X  G                        dy:=activityspace[2,rows];
9 H1 p- @7 C1 j                end;
- R, b+ l, v$ U% S$ [9 {% q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 i* E7 _  Q" n2 Q7 F                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; U$ p9 l" A# M' P# b# H! X2 l' S                        end;*/
! X0 a2 F; \! W6 {        next;
4 Z& ?  m- B3 h$ P3 q) T        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);
, _9 z% A$ V( F: L! i& U        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);
8 X! m; E- x3 m* |) O3 g* F       
* c* D* ^" ^$ T$ Z5 S6 o        rows:=0;
        lines:=0;
; P- _. F. S" w/ B# F        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( \' Y) P0 O1 I& |6 T7 o                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 O! N: C. ]( V# N+ \, A3 T( R1 a                        else
$ u  N! Q; M  N& j  D5 m& Z3 @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* Q- \* m/ p! A$ T5 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;
        next;
       
0 ^! U% o' S8 O4 L# e- e        lines:=0;
        partstable.delete;
       
1 h$ u4 e/ g2 A, E7 e        for i:=1 to number_of_machine loop
" |  c; P3 m, _8 L! y8 U! @( w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" O. U& ]. p; x2 o                machinesequence[2,i]:=rows;
9 |; g+ B8 u' w' Z3 Z2 g; T- z0 ]                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
, y. n9 A  X0 L                        lines:=lines+1;
2 x* M- o2 l2 @: H# f                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! H1 n& x9 J* R$ Z6 A                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" I) ]: H! A9 g4 z: C$ b, j                        partstable[6,lines]:=j;
                end;
( X4 n- }! D! N: r        next;
        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;
1 ~) Z# Z$ t4 k! x+ n        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 H. c. w% x3 n7 e       
+ ]/ b5 Q, e9 u* b$ ~9 C$ C" h6 @        bufname:=sprint("BF",rows);
: d$ H/ O( U& X! n        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]);
0 l: E- f) K8 R% B5 r5 E        buf.name:=bufname;
        buf.capacity:=5000;
6 z7 m" H# F3 ^9 [) z; {        buf.proctime:=0;
4 @, u) W& \! q8 c/ B# M  _) t; g        .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);
1 ~9 J1 T1 w, o$ r+ p& L8 knext;
end;