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

zooey

is
8 j, ^/ H3 v. M) S2 C        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
! Z( j" T$ {) Q    machine,buf:object;
" T2 M0 k# d4 Y: K" Bdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. v" @( T+ s4 o                inspect messagebox("设施数目不对！请核查...,",50,13)
4 u( ]) ~- o- ]8 z. ^# }                when 16 then
& v) B5 r3 z. I+ C0 m& J                        print"yes";
9 z$ [( L2 g4 ?0 T; S6 s3 X' T                when 32 then
' G) J7 p$ @  g8 W) S                        print"no";
                else
0 h' I& `0 u) [# H                        print"cancel";
                end;
                eventcontroller.stop;
        end;
, Q. l, T! Q3 G, h6 @9 G       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! [+ q/ V- _9 z1 d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) e# T: m/ i6 h& b6 e3 H2 m8 J1 i                machine.deleteobject;
        end;
/ @' O6 Z) J0 c5 B" O0 J  ^1 R        bufname:=sprint("BF",i);
4 H# ]3 ]! _( |: O% c        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
6 `5 m  K8 z! A0 j0 o1 D# H9 N        next;
       
0 r1 U% h1 i& H: C2 s8 ^% @4 W8 f        dx:=0;
. T/ m, c# a* [/ Q" s8 O6 s* T, h6 @        dy:=0;
# c- }+ `" X: a1 z, j) m        for i:=1 to number_of_machine loop
- n" B7 @3 e/ J; s% E- J: E# b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' s7 b$ F' F; X& r                --mark:=false;
/ _3 J  n6 n* i) d, w/ K                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 v2 R0 N7 R. ~; A. B+ H. F7 N                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];
                        activityspace[2,rows]:=activityspace[1,rows];
+ n( g+ L4 Y) ]6 m% B                        activityspace[1,rows]:=ct;
; i1 e, B" L; L7 m5 q                        mark:=true;
5 E1 Q. `' ~! T8 u                        else*/
& ]% U+ S& }# |* G6 o8 l                        y_max:=y_max+dy;
9 g6 p) r) i) e8 D! x; M7 w                        dx:=0;
3 {+ V0 O5 a& n6 l3 @& C& J                dy:=0;
2 e: \' K+ f8 Q) }7 @/ a; a- T                        --end;
4 P% _7 J8 N$ t                end;
# Y. x. Z0 u$ Q                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;
3 Y6 ?; c$ h' m0 G$ n            if activityspace[2,rows]>dy then
2 W1 M+ T) j. S0 E$ F                        dy:=activityspace[2,rows];
( J4 P/ a6 F2 U' D# Z                end;
                dx:=dx+activityspace[1,rows];
0 a8 q% ?" Q& ?/ d& N                /*if mark=true then
& U7 J; \; c$ [& w( C6 `3 B' n8 `                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. w/ T3 \1 W: k4 Z& y6 G                        end;*/
. H  l& }2 Y6 B# r& \' l: ^, g        next;
        y_max:=y_max+dy;
) S# x, p# [* V; K3 A! ?        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);
4 L% I' F  H, A5 K; i4 a% {        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 |( |- T8 W9 O1 F6 x        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 Z4 C: A" P8 E8 r- [                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
6 \% j% g$ ~/ J+ ^9 s) Z/ L                                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;
0 @, ]8 l1 Q+ J0 B3 R+ D& ]                next;
        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
( t$ S  C# S: J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, Z5 B* O- _6 Q3 r; v: r! a                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 b/ f0 h2 ?6 d# e                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 k4 p6 ?& f9 L4 f* c0 X                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: m. Q. _' y6 T( }                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
0 l3 L+ E0 ~/ [9 _7 C! w% v        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;
        machine.label:=activityspace[0,rows];
6 J& b9 H3 T( X6 x5 j: g- W5 H* z        machine.exitctrl:=ref(leave);
1 x- s( g+ C1 }7 ?/ F$ f7 [       
, Y+ `8 U! \* W, q/ \        bufname:=sprint("BF",rows);
5 W. G% \6 `* C8 p        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]);
3 U& t% C  m/ Q' ^7 b& A( z  x        buf.name:=bufname;
8 R/ ^. P$ p) ~  t( ~: G        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
4 H8 F5 Z+ }' X8 a3 J6 y       
" |9 g( G" K& i! f        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ B. {+ A5 _) [+ }/ Pdy:=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;
- F, H! {; ~) \# H) Pend;