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

zooey

is
7 T. L6 V# l! c4 A' F        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
* U0 m9 R! r( z    machinename,bufname:string;
# g4 o# I9 B& ?3 `    machine,buf:object;
* f  l$ H$ Y; J8 E9 ado
+ [) l' q. P. x        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- E7 F; J* Y/ P, V                when 16 then
                        print"yes";
0 ]  x9 b* `: G                when 32 then
2 @4 d* _. k* n; `                        print"no";
7 D5 T# K; H2 ~' ?4 h                else
1 L" W2 L1 X3 I. m- o4 i                        print"cancel";
0 P4 @# t* O) w+ s$ v8 V' [                end;
# I8 s& ]) y9 X) [                eventcontroller.stop;
        end;
) _2 Q3 x6 t9 C* Y  j       
5 B, T) D1 h% B& a8 a2 I: C9 W        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; C% \1 t% o3 e4 _. a2 E        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ |- D' J9 X" r0 o5 p        bufname:=sprint("BF",i);
9 h% q' s' b) E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
- I) ~  K. _, v7 q: T0 o9 _6 C        for i:=1 to number_of_machine loop
% M# E" U* x% Z' S3 k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* _" q, k# Q5 s% t) x  A5 ?                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 I6 z4 Q1 s& M+ W2 \                        and activityspace[1,rows]<(1.05*y_max) then
4 k. E( o, N& [, o" U9 ?                        print activityspace[1,rows],",",activityspace[2,rows];
; C; X5 y2 Z  a3 `. p0 A' s" {                        ct:=activityspace[2,rows];
4 f" R3 ?/ I# u9 N1 g                        activityspace[2,rows]:=activityspace[1,rows];
: Q* h: H* e& a. d  S/ U                        activityspace[1,rows]:=ct;
4 r6 s& c' w3 z& D% g5 m                        mark:=true;
: V- f' w0 R( D) G$ N# P$ M                        else*/
/ C! i/ E' i/ n( H. Q                        y_max:=y_max+dy;
$ l$ A' h! Z* X$ l                        dx:=0;
% a: \2 d, a( [# A                dy:=0;
  @, N1 w( @$ r2 ?1 d, g% n                        --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;
" O- p# ^$ v% P6 O4 l            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
/ s* k1 c/ `; r                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 Y2 g' z! U5 j3 _) B                ct:=activityspace[2,rows];
( G7 X/ v1 n( g- z; K, f                        activityspace[2,rows]:=activityspace[1,rows];
7 q/ y# X2 V# }7 o) N+ A0 c" n                        activityspace[1,rows]:=ct;
. i/ }2 W* n" s                        end;*/
: w$ T4 H0 I& d& l. e- o/ ?. w        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);
        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);
$ Y: z, i8 o6 F  l4 g       
7 |* z, B' ^. y1 h+ n' t        rows:=0;
        lines:=0;
  ?5 Y5 w2 Q7 t        for i:=1 to number_of_machine loop
* @+ @) }  N; k+ A, t! J                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# |/ X' g; }6 X1 D+ Z9 j( E% [                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
$ t$ V( n" Q- v  @' b        next;
! h7 @5 q5 j+ ~5 @       
        lines:=0;
) j$ \; g2 b( _" h, p" i0 h  c2 K        partstable.delete;
       
        for i:=1 to number_of_machine loop
8 S0 r* f- o: O* N  L! c) E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
) x/ D; }6 {' Y3 g1 W- I4 z                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
* I7 z4 L/ {2 t3 N                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% m# L. W" D5 h. E, _' d, o                        partstable[6,lines]:=j;
# i& v( d) n6 C: A  ?                end;
, R! B: w, `) ~9 u$ L; E5 G+ V        next;
( e' w) W- ]) H! s+ f" m, Z1 F- O, |        machinename:=sprint("M",rows);
# o. s9 b: j1 b4 W# j        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]);
7 A# b8 x+ b! R) @5 E! h: p0 k        machine.name:=machinename;标识符未知
        machine.proctime:=5;
) U' }& l  I; }! n& {: Q        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        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;
3 Q/ x, l! ~; P0 X% `        buf.capacity:=5000;
" J, X, V+ Y  Q0 f: q4 q3 C* G        buf.proctime:=0;
/ b8 n9 |9 i5 s# m/ N  H        .materialflow.connector.connect(buf,machine);
       
        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;
$ N& h: s3 j. X, K. A6 ^9 |current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;