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

zooey

is
        mark:boolean;
! ]% I: q1 |; T+ D) ^; {        dx,dy,ct:real;
) _/ J; ]9 M  g" C0 c6 Y1 p    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
. j+ d. Q* G0 I* n0 u; _! qdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 \6 ^: ]5 I& Z+ s& F7 y8 P                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
6 P3 Y$ e: f6 R6 d* t! G& Y                        print"yes";
                when 32 then
                        print"no";
                else
- G* H& t  S6 E; t                        print"cancel";
8 e9 d" d4 H% H" A+ q! S                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
# u) }" S8 Z0 h' K6 C; ]        machinename:=sprint("M",i);
/ A, Q' [5 l  ?' D        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
$ g+ ^! C- w2 i% E                machine.deleteobject;
        end;
6 V0 n9 O2 \5 F4 b* h/ \        bufname:=sprint("BF",i);
: C4 u/ r  S' P$ i* a        if existsobject(bufname) then
5 q, n. s# e* m( v                buf:=str_to_obj(bufname);
6 n  @) H) i' I5 y- g  L                buf.deleteobject;
        end;
" w8 q; k( X  k8 O        next;
+ B9 {, Z3 _9 u9 ?. i1 v" g       
        dx:=0;
. I1 W- M5 h; J* d: O: r+ R        dy:=0;
# h/ d% t, Y% q; M/ v! O4 J  ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, E3 K! n0 w1 a, G* ~! Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; o; k4 K& b$ ^. W+ q& @' f4 V                then
' s3 Y1 o; J7 ?* B& Z( A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% r" f- i& |* V$ P                        and activityspace[1,rows]<(1.05*y_max) then
- ~) z8 y4 p! }: \% D                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
( A0 C% H: b  ?8 y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 s% ^$ s" N9 N8 Q9 r* G5 M                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* e* K6 m. x! C% d! D$ k/ b                        --end;
                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;
4 I2 L- t, P# r6 X" b4 U  g7 n            if activityspace[2,rows]>dy then
2 c6 H% Z, E. w: E- b                        dy:=activityspace[2,rows];
+ ~% v; {8 ~. q$ S& N                end;
                dx:=dx+activityspace[1,rows];
. a$ q; |5 n$ a( V! K! h; w9 P( O                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
+ c  _& w, w/ M' W" ^4 C        next;
        y_max:=y_max+dy;
        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);
% H5 e* I7 T" H7 b7 V) k        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);
" r9 U7 C) H2 q  Z1 a       
        rows:=0;
1 i' i) l* g) A) ?        lines:=0;
, N. |( f6 h, ?( l+ @        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
9 M6 N6 x6 u+ [2 h, \                                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];
4 I+ n8 R, c) C. C6 x+ M# d                                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);
2 Y6 a% i9 v7 N  t" k                        end;
8 B! r6 _3 w4 Q- U6 r% d5 ]! X                next;
* H/ C. v- `  v5 H/ V3 Q        next;
       
        lines:=0;
        partstable.delete;
; q: }3 _1 S& X7 x       
- b8 h4 Z3 g3 b9 n' {# ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- F* O- `% r. o0 l                machinesequence[2,i]:=rows;
3 ?; Q$ T+ g% f0 R                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 m+ m- E' V+ I6 G- v                        lines:=lines+1;
5 ?" g0 s4 c; W2 L& s: O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
! N: |) c. u5 G$ }                end;
! o# b1 n! R9 g* r0 M7 u- ~! e        next;
( M) _$ B: l/ J/ [        machinename:=sprint("M",rows);
2 {2 m" P0 @/ X4 ^) H8 q) C- B/ ~        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;
  S, \5 s7 |3 O- t, h7 i        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
# e0 q% k$ A7 |7 M- x' o       
3 D6 T( K- O& [, f0 F$ @% E# n        bufname:=sprint("BF",rows);
  ^  p4 \1 C( S% R! _1 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]);
0 R2 r3 k+ W& v3 `  n: R        buf.name:=bufname;
, V+ Q' p9 P" x& v        buf.capacity:=5000;
% B' W0 Q. C8 X$ M7 v( ^# T. h7 b5 \        buf.proctime:=0;
" @5 E. t2 E* b" X. i$ n/ E8 s        .materialflow.connector.connect(buf,machine);
       
7 X) X8 _! R" [! z- b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ X  R  Z. e# kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, T1 v4 G5 r2 ^5 z# l0 _' Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% P* D. B/ Z6 i* Bnext;
+ L+ P& ]7 H, s0 Z$ i% H1 Fend;