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

zooey

is
: t& E; E7 r* f( o        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
! E5 x" Q7 _# [        current.eraselayer(1);
- i: }. ]: D4 o4 Y       
0 X# ?& X( r: |7 n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, x7 U3 J$ ^2 V/ a' H, d' B4 X7 Q9 y                        print"yes";
                when 32 then
+ n9 q8 S& d$ v1 M+ d                        print"no";
                else
3 {: c2 D2 {8 d4 a. q/ ?. g5 s' w                        print"cancel";
                end;
                eventcontroller.stop;
6 C$ D, g/ c+ U5 O        end;
) L, i& T3 `/ N/ B2 F9 }       
6 Y- r+ m* T& [+ z: z6 Q8 k2 I+ E        for i:=1 to number_of_machine loop
, Z" q% W7 ^( `6 r8 ?        machinename:=sprint("M",i);
! d4 Q% K! n5 r! ~/ D        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% n" s7 r0 Z' l# F8 z4 O                buf.deleteobject;
        end;
9 Q6 V* N2 v" k6 l        next;
       
        dx:=0;
; O+ T$ m$ Y, Q- J! F        dy:=0;
7 X0 P6 a$ ?) ]        for i:=1 to number_of_machine loop
1 q+ Y! ]" N7 y: b0 F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 Z) J* V. D! I8 T                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, ?0 R. D$ N; q2 Q- i- H( x2 g                        print activityspace[1,rows],",",activityspace[2,rows];
) _- P( }& E+ s1 U6 O                        ct:=activityspace[2,rows];
: H( p+ U3 L' }# h# A1 U                        activityspace[2,rows]:=activityspace[1,rows];
; Z9 G7 I  K. e& x$ }                        activityspace[1,rows]:=ct;
% w6 b1 r+ V" y. V2 F/ z3 Z# z                        mark:=true;
) o  m/ j, [: E" z5 N5 L                        else*/
                        y_max:=y_max+dy;
0 \3 ~$ _8 U! E6 p' G; l: ?                        dx:=0;
0 n. X# Z% k- H1 r+ Z                dy:=0;
                        --end;
. m4 w5 P- |: O                end;
) h4 r, {+ M( @/ ~: i- N                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;
            if activityspace[2,rows]>dy then
( J8 x. x& y" Y5 P3 X1 T                        dy:=activityspace[2,rows];
                end;
- A6 P9 H& p8 c, \* ~# Q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& d1 \* t3 y9 {1 C9 U& L                ct:=activityspace[2,rows];
5 Z& l' W3 V& t) d& ?6 _. q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  Q. ~6 G5 @8 n) q* u                        end;*/
$ ?. P9 j: z5 C# l/ l+ Q" |5 e        next;
+ X- D1 C  C5 A( ~0 t# B( ]% \$ ~        y_max:=y_max+dy;
' B2 k4 K6 q! d. o, A* K  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);
. p1 U1 n4 Z6 D' ?2 d  f8 Q        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);
9 A. D3 D1 R0 A" v1 z, N       
4 Y8 K5 c( a( o% Q0 p$ k# t/ W        rows:=0;
* n/ k, u4 R7 V        lines:=0;
8 O& s9 ?5 |: ~: m2 @6 F, W' O        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 l3 F4 S& J1 [* L                        if j=i then
                                d_from_to_chart[j,i]:=0;
- v% j: t4 \2 M5 d                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, R4 }# ?9 R5 p8 x                                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);
8 {9 w' h3 J+ k* [$ k: V                        end;
                next;
: K8 W+ p* w8 o1 t* z# p+ T& Q        next;
& }, X  C( A& d       
4 T& c3 ]7 u* P* t1 z3 e        lines:=0;
3 x; Z: z( l9 e  K8 K; X8 X        partstable.delete;
3 N! U0 |/ p* |! {, r0 h       
- u% e! v! U# ^* W& w% z4 Z) q        for i:=1 to number_of_machine loop
: K0 U" L4 x1 E/ }' B+ l- b' n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 Y% k# q2 b. n/ I9 A  o                machinesequence[2,i]:=rows;
$ D* w7 D7 G: Y$ |                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 T% ]/ A, |6 Z/ e" n+ z2 f                        lines:=lines+1;
; J$ Q! y# |" e6 z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, [) q3 W' f. l$ S( l% T# j/ F                        partstable[2,lines]:=w_from_to_chart[j,rows];
# C& N+ d/ Q. s0 G3 J1 @0 U; H7 {6 a                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" S( \; h9 {7 e7 K                        partstable[6,lines]:=j;
6 i2 H7 w* Y1 s' [& n! T                end;
! S. c! }( K" G6 ?        next;
" }1 |% i9 C! G        machinename:=sprint("M",rows);
2 t6 b) o$ k/ d4 ~+ i% h1 E        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]);
" b( ~; N+ L0 ?2 P9 a' w( X0 ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
: G/ s$ m2 Y# v2 Y' v2 q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
0 A- ^6 I- o1 k7 U; J4 N" T       
        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;
' T% k* q3 h; u. h8 u, U% k5 ?& n  X        buf.capacity:=5000;
6 K6 d! W. r$ l+ P2 Z7 g% ~        buf.proctime:=0;
: k! `4 d' {' A) x4 j  w: F# B" L        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 F. L5 m* N* d9 U. n' h: b  vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 r6 G( [9 Y% ]5 d( k1 jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 S; B  `' [( ^- z3 gnext;
end;