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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 ]! R6 @6 l; q. R* Wdo
; H/ H8 o1 \6 y0 Z: e* c5 F        current.eraselayer(1);
5 d$ D* {4 L9 d+ A/ _       
9 O2 Y& E/ E5 q/ O& B        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
, ^+ ?# F7 ?7 e3 L0 H3 l& \                when 16 then
, |$ N6 C' f1 v/ P% L; y4 K                        print"yes";
- I0 F9 u; p. u* A                when 32 then
( {  d) W2 g/ `$ T6 {/ f( b                        print"no";
1 H; k  N. Z3 k3 H& `+ H  k, ^                else
                        print"cancel";
                end;
1 P, d/ g4 {; n/ P                eventcontroller.stop;
. H; I+ ~2 c9 s2 \        end;
; ]6 z5 o8 x  c/ B       
        for i:=1 to number_of_machine loop
% w, @0 [/ ]  G: u+ }8 x        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
! a% T$ J' _9 Z" N. D) B6 T8 N* U        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* G2 S$ c* S# A8 Y/ K                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
4 d# N- t5 Y- x( n       
2 y. s6 C. O7 N, _        dx:=0;
        dy:=0;
/ ?$ A! S2 f4 h        for i:=1 to number_of_machine loop
" n, a. H5 F) L5 L! Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" n# _1 a' I! i: t4 m$ H. t' l8 Z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& T" X' k  h, a                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 g! V; Q4 F5 c5 e  `                        and activityspace[1,rows]<(1.05*y_max) then
+ N+ ]  M- h1 t# h8 D" j- n                        print activityspace[1,rows],",",activityspace[2,rows];
& X5 h% i; C1 }# r) H                        ct:=activityspace[2,rows];
: b$ f7 m, Z+ [1 C$ i                        activityspace[2,rows]:=activityspace[1,rows];
, [+ p" D& B- b2 F                        activityspace[1,rows]:=ct;
" z. R: }" b2 O& d9 X( }: T                        mark:=true;
: A% N+ s4 q; M, i1 K                        else*/
- H, H- d# P+ Q; M# X4 J                        y_max:=y_max+dy;
2 F% g! q/ {) U                        dx:=0;
                dy:=0;
                        --end;
7 K6 H* x5 }! K! W                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;
( }$ j1 t3 G( j) h            if activityspace[2,rows]>dy then
4 g0 M1 k% f5 r: Y( n                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- j0 H. ^! B6 R' Z5 o2 P* u3 _                /*if mark=true then
- n) @! w' W  y                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 s9 G! t- u/ h                        end;*/
        next;
5 x) q  M+ N+ `9 w        y_max:=y_max+dy;
4 ]" |2 B0 c) t! }* M  D+ G: \        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);
) h7 v$ F% P7 t& M2 i6 x1 w0 ^! w       
$ N7 R& k* Q7 c1 g& w) w        rows:=0;
/ {& a% B) V; O        lines:=0;
7 H+ i) u- Y( h* b+ M" D! Q: G  p        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. ~3 e! R2 p+ N2 _3 i! c+ Z                        if j=i then
                                d_from_to_chart[j,i]:=0;
, R5 _6 a4 T$ u" l, Q                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 c) r7 @: s! ]                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  Q; R4 c2 _8 u" |1 K4 V$ @2 U. O/ P                                d_from_to_chart[j,i]:=abs(dx-dy);
: c5 @& P5 Q; L                        end;
                next;
        next;
       
; C) M" l  h  ]) {1 ^        lines:=0;
9 |1 M& i+ h! f3 d0 b6 F5 ~7 O- t        partstable.delete;
* l  V4 i& U% g* J       
1 G" F3 ^9 T$ K" R+ Z9 S. P% T        for i:=1 to number_of_machine loop
) _& d; R% B3 W; T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
) g$ I2 d) o( _2 T                for j:=1 to number_of_machine loop
, k8 Q; \% H; q: p3 n3 e6 X2 q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 @9 X) R% `, U  [4 C" `                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# |+ N3 F3 y( O0 W! ?                        partstable[5,lines]:=rows;
$ o4 [1 c, ?6 M/ x$ W                        partstable[6,lines]:=j;
+ I  |/ y% @: A1 o+ O  u! j                end;
& ?! I% K, i" x; z" `$ f0 G        next;
        machinename:=sprint("M",rows);
  }, G) X" x, K# j  e* x+ w        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]);
7 G2 ]' C( }; V8 o; d) d$ Q        machine.name:=machinename;标识符未知
        machine.proctime:=5;
$ S. g+ c7 N3 A" i        machine.label:=activityspace[0,rows];
' [5 _6 w, ^: d. Q3 x0 m        machine.exitctrl:=ref(leave);
: }6 R( l" D6 C/ E; l1 f# Q& M: n3 E       
) [' }, c- ~* G: p9 a        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;
  d# T# e8 V+ E; P        buf.capacity:=5000;
# h0 A8 N9 H+ s+ [! Z( D9 m5 Z7 ]        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;
/ O# W8 w3 F: S; {/ mdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' j6 t+ v$ C( Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ L! a' Q" H4 W; B; E' Anext;
end;
0 c1 f1 N; t6 X