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

zooey

is
( u9 M/ p+ _% p; Z6 \. A        mark:boolean;
2 ~0 o$ _3 e7 \: Y+ |+ Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
$ [; ]8 `) }4 t' q1 w       
        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
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
) b9 T3 K: }0 l                eventcontroller.stop;
3 k' ]0 [6 l/ N6 G8 V' ~6 U3 u/ M        end;
       
        for i:=1 to number_of_machine loop
# K) j( p$ a; T        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 v! n9 k# x. V        end;
        bufname:=sprint("BF",i);
. s  V2 g  e" g4 w1 o% e        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ P2 S0 q2 @$ @4 ]; e! L        end;
        next;
       
        dx:=0;
6 {1 d/ }. s- b: r6 }" S) y- q- M        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. D3 d0 R1 L/ c8 \) H+ u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
1 ~2 p1 V0 l7 ?  q* Y- ~& J                        /*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];
( [* H9 b" j$ |- W5 Q2 F1 d                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 g% G; @$ o" I$ G                        mark:=true;
8 o5 f. }( [/ A                        else*/
" r! Q( f/ C- B2 j) H2 }1 {                        y_max:=y_max+dy;
, n: G9 z: G3 G' Q; Q) W                        dx:=0;
; E" h# K) F8 U' s# m! G                dy:=0;
                        --end;
! m" h; G  ?7 M2 A. w                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 w# ]6 Q: y0 M, H8 Z$ \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
5 j4 G! T* H+ y4 B0 H+ B                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 ]3 s3 E8 J* \5 \7 K" E, Z9 z9 ?5 X                ct:=activityspace[2,rows];
0 Z7 V1 a6 h& b' s- @" x                        activityspace[2,rows]:=activityspace[1,rows];
" s% v+ e) r; G* f6 ~                        activityspace[1,rows]:=ct;
                        end;*/
  U2 F# d" I9 H1 U. o# s        next;
        y_max:=y_max+dy;
3 C5 I7 o( ~- P. f        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+ F2 e& d: Z. c3 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);
2 Y" M* o9 t9 m/ j8 \       
& j) u6 j' P' o; w9 v% X  l! K        rows:=0;
        lines:=0;
! J9 l. r8 ?6 k1 p        for i:=1 to number_of_machine loop
. k  k' E2 b, R" F7 a                for j:=1 to number_of_machine loop
                        if j=i then
7 m& q: k6 k: e                                d_from_to_chart[j,i]:=0;
  }! c1 a# t8 }                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& h# v- _9 r2 u- X9 Y                                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);
$ c4 g0 B, h  z                        end;
1 L# z& d, I) m, q                next;
        next;
       
0 x, N" O+ H5 t8 z& S        lines:=0;
8 e  y) Z: i  s; E% J; D: s' ?        partstable.delete;
       
        for i:=1 to number_of_machine loop
) J& q5 D4 H" \4 K- T) T) i4 p                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- P8 X1 B. R/ W% `( }9 H                for j:=1 to number_of_machine loop
" d! y$ {0 O8 b8 a                        if w_from_to_chart[j,rows]>0 then
; ~' M4 h( ^# Z. E; h                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' I' X1 v9 D; f( n, Y9 }  b                        partstable[2,lines]:=w_from_to_chart[j,rows];
' r/ h- n0 O3 o/ @4 w2 h+ z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
$ d" O  [3 M9 |1 i# k8 |1 X                        partstable[6,lines]:=j;
                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;标识符未知
4 O4 Y5 \( X7 X1 N" j' V6 u        machine.proctime:=5;
: m" {5 s  g. ~" L        machine.label:=activityspace[0,rows];
9 I* ]; k* s, }* S6 ~        machine.exitctrl:=ref(leave);
9 R3 x' {7 K; s, l5 ^% c. G       
        bufname:=sprint("BF",rows);
& u" Q- ?9 D1 q. ~( n! F        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;
$ O4 d  [# F! M; q% m2 Y4 y        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* L, G( V, o, }2 C: d, D: h; k, N1 ^       
5 S- T7 ^. j; W        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;
" [5 l' K0 {' s2 v9 k2 nend;
% J/ c$ g; s/ t