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

zooey

is
/ t9 d; D' s' A7 w: B7 t! o$ X# k        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 c0 u* D* Z& b! w/ |/ O    machinename,bufname:string;
3 G1 X/ ~: P& s% W& [    machine,buf:object;
do
+ ]" h6 J$ ]) a        current.eraselayer(1);
1 @: \8 @9 q+ g8 J       
( _* q9 c3 k; o% M. o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" c$ Q5 A6 W7 k0 R6 m                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, s4 |" q: [3 m6 w; F- G                        print"yes";
% I, t/ ^0 l" f7 j: [                when 32 then
                        print"no";
$ D# k3 F! w8 H+ s                else
                        print"cancel";
( I7 \: E, u- ]9 p6 }3 {                end;
/ M2 y  x/ ~2 R5 s7 Y                eventcontroller.stop;
        end;
* `3 Q! B  w& o" j6 e- y( i       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
# W6 n- n; p! ]) h# R                machine:=str_to_obj(machinename);
5 ~  G! Y; e8 k8 j                machine.deleteobject;
        end;
9 Q+ ?- ^: I! C  u) j        bufname:=sprint("BF",i);
6 Y9 X0 k1 ?) a" |        if existsobject(bufname) then
7 d' _5 R- |. i; {, y# A                buf:=str_to_obj(bufname);
                buf.deleteobject;
, ?5 x. q2 P( \) H        end;
        next;
& k9 j1 g9 V( B( ~/ m4 L& i5 ~" Z! n       
        dx:=0;
        dy:=0;
6 \, N5 r9 I* d/ M" n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# K4 a4 [) M0 L" N2 E3 M% t& M                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: G% T3 l8 L5 r1 K) R- j0 W: ]6 O                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];
                        activityspace[1,rows]:=ct;
7 j- J+ A: x8 U: N/ F" }                        mark:=true;
4 O. T* @6 X  O                        else*/
                        y_max:=y_max+dy;
) t5 |/ f" P7 _2 D4 @+ B                        dx:=0;
2 E) N: g+ _7 B4 ~; Y  F5 h                dy:=0;
                        --end;
6 [( G: [: `6 i* }, d+ J1 g: I  a. _$ i                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;
' E; b6 k; d# ?1 Y  s4 t            if activityspace[2,rows]>dy then
- k  @& D) Q8 d: Y* o                        dy:=activityspace[2,rows];
  }5 G; m1 s) |0 w' z                end;
9 K5 D' l+ v5 M# K7 k( \                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" G$ W/ }: N/ ^9 k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 o. G  q9 s* |3 B' S8 D                        end;*/
        next;
        y_max:=y_max+dy;
' Q; D6 H, u' `& I9 g, `* D        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);
8 _! x9 y& `1 D. r        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);
+ A( Z+ a* M0 I. _* R! v       
' i1 t1 [" v( @* b        rows:=0;
        lines:=0;
+ g! V& n; t! v; Z7 |        for i:=1 to number_of_machine loop
5 v8 [, O& r5 h* w8 j                for j:=1 to number_of_machine loop
% [/ j# B, P: F5 I' ?1 v                        if j=i then
                                d_from_to_chart[j,i]:=0;
( i( c) C& s7 N% h' I& J                        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);
- U3 y7 A1 ?! S% H                        end;
3 C+ x0 e' }1 {1 U- R                next;
+ M4 u3 o  \5 q8 p; G+ n        next;
       
; q' A/ I+ d+ T        lines:=0;
. m, i9 Q. Y  j        partstable.delete;
       
        for i:=1 to number_of_machine loop
" n' z" X9 x4 \5 K, P: g. K  Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ ]. Q. I1 b8 o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ X" C2 I; e# F  ?# G4 p7 o                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& i2 F  C! }& N* s                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: [# s' z1 P1 _4 `0 |                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ Q$ g3 [$ L+ h                        partstable[3,lines]:=sprint("parts");
% ~+ p. ~/ Z1 e+ M9 _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
# k& a. {0 _6 k0 L- S" K+ |. L                end;
        next;
0 V, G$ y' w! P: @        machinename:=sprint("M",rows);
0 U' K, n3 ^& X. C4 F        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]);
6 K; U9 y  |; w: T2 M" H7 F3 ]  k! R2 s        machine.name:=machinename;标识符未知
2 q+ D' b# R; \- f1 H, L; L1 q1 Y1 S        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 n) c$ u5 @6 O, a- u+ D( n       
" G" r# t$ ?& Z7 w( H( ?        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]);
8 ^, w$ W5 r/ F# @* O        buf.name:=bufname;
        buf.capacity:=5000;
        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;