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

zooey

is
% ^; j+ a( D0 h/ T# d6 Y3 D7 s        mark:boolean;
8 \- @2 T5 K7 p7 Q. _        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
' n: k8 ^" T0 mdo
        current.eraselayer(1);
0 P3 B% p2 x( p2 c% i# `       
3 U; r+ X; ^; a8 c, b( s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 d& J4 B7 F4 x7 j                inspect messagebox("设施数目不对！请核查...,",50,13)
3 f7 V# P; L. W2 a                when 16 then
                        print"yes";
                when 32 then
+ b: B% @0 O; k8 M- [) c3 `                        print"no";
( `1 G& x% K' X+ N+ x                else
/ o( [4 s" i7 A% g                        print"cancel";
+ I$ t9 [# {9 ^                end;
                eventcontroller.stop;
- j' M, v7 @. T% c, ]  g        end;
5 |: G4 x$ F# b5 q$ i4 f       
        for i:=1 to number_of_machine loop
7 C5 e2 }5 ]/ t7 V! R1 Z. q        machinename:=sprint("M",i);
1 g# x' K* d1 O! F        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
7 T) T6 p9 h8 f3 a- C9 }                machine.deleteobject;
) a3 R' a* {' e* U+ Q* X        end;
# t$ F' C" A( u% u+ Z0 ]+ ^        bufname:=sprint("BF",i);
) x: B, N. \( Z& p        if existsobject(bufname) then
. r. U7 q. n1 y3 z4 ?                buf:=str_to_obj(bufname);
% Z6 N* ~; g' }                buf.deleteobject;
        end;
  K2 b% f+ \6 Y+ X, L2 v9 w        next;
; F; l. Q4 Q' M8 l: y! u' T       
        dx:=0;
+ _* P' A% E, ?! I3 J        dy:=0;
        for i:=1 to number_of_machine loop
( ~; f$ y6 c1 T5 Y" g+ r- A$ n, z' J" z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 B* g1 w% m7 n8 Z8 `                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
  b( N* c, O# D5 a" O                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
# n7 w8 d+ O+ m% q% S0 L, N  h' [8 q                        activityspace[2,rows]:=activityspace[1,rows];
7 Y* i5 `" X5 B' R! Q8 W$ U                        activityspace[1,rows]:=ct;
9 ~! B( Y  d; {- s8 \2 _/ x                        mark:=true;
: [% f. m" T' F4 Y                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 q7 S. X  _- ^( h% Q6 U4 L# y& O; a8 X                dy:=0;
& {" g0 v) E: {5 S# F4 U4 p. @                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# g3 }* A9 Y5 }0 |                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];
                end;
" I) B* }- n4 H1 x6 L3 T5 ]                dx:=dx+activityspace[1,rows];
  f3 ~. G7 q* d: F                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* X: |/ K+ j2 U9 e( E9 ?! u                        activityspace[1,rows]:=ct;
. Q% n3 ~, L% R                        end;*/
        next;
2 C- j. r" O* d5 j" U/ S3 @        y_max:=y_max+dy;
! V4 c  s- ^# Y, ]% }# K        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);
# A0 u8 X' q' U$ f3 U. l6 \0 X       
/ C; \: i6 s9 P) E; t/ V* c% Q: b        rows:=0;
        lines:=0;
4 k$ o* x) ?7 _7 u+ e        for i:=1 to number_of_machine loop
6 i( H# K- ]. @7 }. F7 ]                for j:=1 to number_of_machine loop
) H% O- X( F' A0 [                        if j=i then
! ^7 R! u$ T2 G2 e+ k, s/ c2 z                                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];
  H* s/ G7 j5 p8 t                                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);
; r7 G, k7 X2 N$ h                        end;
                next;
- t4 Y( l6 E5 m        next;
       
% C* A/ ~$ K/ P0 N" J        lines:=0;
0 a7 ~  l6 y( x# d3 A3 U2 A        partstable.delete;
6 C* B3 {) g2 H- g! _. y$ ^- \' n       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
8 N0 g% M7 c* K- K+ r                for j:=1 to number_of_machine loop
: U. Q5 z$ S1 Q$ @3 C5 c                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 B$ B% f$ N2 E) _9 d/ H! {6 ~                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
$ V" v4 o: J3 u                end;
8 ~: U, \7 [0 `$ l0 g        next;
        machinename:=sprint("M",rows);
2 K/ t' k/ g9 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/ h5 e; q9 k) \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" `( |% k0 \9 G  L       
        bufname:=sprint("BF",rows);
0 K1 D0 Q' L/ q9 g0 d4 H( `# T1 k5 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]);
) K: ~( L' E& u$ _( ]# x        buf.name:=bufname;
        buf.capacity:=5000;
! Y: h. Y. a2 I6 Y+ N8 u! r) C        buf.proctime:=0;
5 I6 Q: B2 [; L        .materialflow.connector.connect(buf,machine);
2 b0 Q/ x+ ]) u; @& z       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ K: t3 o' U+ E/ hdy:=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);
& n# ]% c" [8 J; C" H) s" ynext;
end;