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

zooey

is
% E$ j! [2 E; T- a8 n4 t        mark:boolean;
5 Y2 t) J% i7 f9 p        dx,dy,ct:real;
9 a* e6 i/ l2 m. k% U/ W    i,j,rows,lines:integer;
0 G3 h- Y+ u2 L' _- R    machinename,bufname:string;
    machine,buf:object;
( e8 H: v! R! L, tdo
# I2 w* U/ e) A$ o. Z        current.eraselayer(1);
4 s1 z' L0 e1 Q$ r- C4 M       
        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
+ J/ N1 d; j. T. @" x8 m2 P+ M                        print"yes";
                when 32 then
                        print"no";
0 j% A3 B! K  ~9 k; \; X" C                else
                        print"cancel";
) C2 s2 r' L! Z5 G! d6 ~                end;
                eventcontroller.stop;
2 }$ z5 |  i. Y, w/ |        end;
       
+ H7 E% Y# X6 M! Q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 C5 |* n3 Z; N( X3 P                machine.deleteobject;
        end;
7 E& _! W2 T: F' X& L        bufname:=sprint("BF",i);
( Q3 a+ m6 _4 J3 F+ P0 D' s        if existsobject(bufname) then
3 g; m$ X: b2 u/ ~* H8 E1 k                buf:=str_to_obj(bufname);
9 @1 {9 y* }" Q4 y$ F. T                buf.deleteobject;
        end;
        next;
8 {! f( k! @% g0 {8 }: Q       
        dx:=0;
! U" _5 P: U/ T. Y2 o        dy:=0;
5 H: Q- a& x" I' ]: z0 g/ }        for i:=1 to number_of_machine loop
) l7 G* f( }) i2 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ Y! ?- @6 ?1 b1 e* A$ ~' m                then
, J) D3 @' L- ?; I) l. k: T3 @6 I                        /*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];
4 }# q3 q* U0 }! N+ Y0 V- j& Q                        activityspace[1,rows]:=ct;
                        mark:=true;
) e" U" X: g# i0 G5 W6 }  O6 D9 a4 x                        else*/
                        y_max:=y_max+dy;
; \. a* G7 V6 F& ~                        dx:=0;
; E6 O+ S( I: ~7 F- A                dy:=0;
1 C7 f. s3 N* K, [$ x' j2 j                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 m; i7 t( `6 _  a0 S: |                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
- D. J& W4 ^: i$ M8 X! |# Q                end;
3 X3 \7 A5 V! e! p) O( }  Z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
$ C3 D# {7 u7 M! b  S( d                        activityspace[2,rows]:=activityspace[1,rows];
9 c6 }; c9 `4 u# p! w. K- N. W7 E                        activityspace[1,rows]:=ct;
                        end;*/
6 v9 }# K% V2 G" l: Y$ n* M0 S        next;
8 p- [8 ?8 G6 c* ?- {( d' d+ M% G        y_max:=y_max+dy;
' b, g  t+ c8 v( {$ `) k+ h        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);
, k! H& G% q$ R+ F2 g        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);
* X- d! A, y' h       
- X# A. r1 g+ b/ T  b  k        rows:=0;
        lines:=0;
3 u+ p9 {2 @) @; v) l) `' Z        for i:=1 to number_of_machine loop
$ w" V% z1 k& Q( `! M5 W, q                for j:=1 to number_of_machine loop
                        if j=i then
/ C/ h& K# D6 Q. F4 ?  e9 n6 i                                d_from_to_chart[j,i]:=0;
                        else
. k" q4 I# u2 ~, Q( I                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ V4 k( ]- B8 b  p- R/ |& F                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ L4 U- u" h; F( @; e# O                                d_from_to_chart[j,i]:=abs(dx-dy);
0 K+ A+ [, C" P                        end;
                next;
        next;
" Q% c) z) V# D- C$ S       
8 Y1 l+ e3 q' q8 X# X# H        lines:=0;
5 C# G3 a. t6 ?5 @$ P( C        partstable.delete;
: M# w  L' d  e0 x# j  m/ w9 R       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: V! G* }& W& u9 `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- ^  I) {3 W1 r5 @& e5 T' A. O                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
: J7 ~- ~+ f3 t/ @# E9 y                        partstable[6,lines]:=j;
$ t6 L  N7 L* h1 ?9 x; }, e  k" `                end;
        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;
9 n  D; L0 r. W        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 e1 h& F3 J0 E* i1 B- P       
        bufname:=sprint("BF",rows);
( z( m/ r* x+ c# S        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;
        buf.capacity:=5000;
6 T/ x0 y3 l2 k7 m        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
% {1 b# S! o3 u' w4 @/ K( m        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;
9 \: M3 `) ^" l- q' L3 `; q3 pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
3 p, v" t- P! g3 w! ?( ~next;
& w( ~. a. W( J- j. send;
, @, ]4 l( l% A* P5 }