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

zooey

is
. T* z8 R5 E, ~- A" b* C0 s        mark:boolean;
8 ]% x( r# t9 u4 l& i        dx,dy,ct:real;
    i,j,rows,lines:integer;
: l: l2 U& o! g/ w- W& Z7 _  g    machinename,bufname:string;
8 W1 \* o* T$ I: }3 E    machine,buf:object;
; M5 p: S  \! w/ o3 r2 Jdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" ?9 M# {- _, G3 F2 ~                inspect messagebox("设施数目不对！请核查...,",50,13)
, x9 l! U' i& q                when 16 then
% q, `) h9 J4 ~. l/ [                        print"yes";
                when 32 then
+ n( T) K1 w& z0 k3 e% L% w                        print"no";
                else
                        print"cancel";
1 X0 E6 ~8 f  |( S1 s+ q. [                end;
                eventcontroller.stop;
/ G- j- G7 j3 W) {9 ^6 q0 Z- R        end;
) ]( ^" W3 j( E       
( D( N) T) q) _        for i:=1 to number_of_machine loop
& p' U& L* ~: w. K/ Y" l! W        machinename:=sprint("M",i);
9 |) r# r) p# {/ ^        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, Y4 f' q: A7 `& n6 x4 C, [$ H' i  b" N                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
5 E7 C  l# l6 j- c8 t3 [                buf:=str_to_obj(bufname);
% f5 c; l9 v% w1 U4 l                buf.deleteobject;
        end;
        next;
       
. I$ X1 ?9 N4 q, b3 N% o# G        dx:=0;
        dy:=0;
, R1 u+ K: g  [$ H3 @1 L2 X        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! j) K, L, }% ~* {                --mark:=false;
/ p+ v+ u6 ]% ]6 z! s                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 f* u+ I! l6 G% j                then
                        /*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];
- H. z7 M. v& s1 S# q6 ]                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- A; f+ n/ z! w                        activityspace[1,rows]:=ct;
                        mark:=true;
# b" @7 O' T% G( W5 P                        else*/
* p9 ]4 }! ]2 P( z: N% ]3 @                        y_max:=y_max+dy;
                        dx:=0;
: ]5 u' [) M; @7 J) I5 q4 A8 K: z                dy:=0;
# N: ?( l) \2 ?& @8 s                        --end;
0 P( z( s% H2 ?                end;
& }. s/ Z" Z; z* B                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, `; u" V3 E  n* [: U                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;
% T& d, O' V8 K% X) q+ P; z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; H1 V. A# T! {# w- k0 E                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 u. V& Q2 M, \" y$ }                        activityspace[1,rows]:=ct;
, |+ i; ?+ N/ O/ r/ T8 c* U. P# y                        end;*/
/ y5 P! k* T6 u' E+ g; e        next;
  l& ]7 H2 @1 ?9 b( m9 B! ]        y_max:=y_max+dy;
; C! d; Z; Z( V, O        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);
       
/ p. h0 ^. ~- M8 N& F, ]- S        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
% Z+ A& {& }3 V+ W7 Q6 h                for j:=1 to number_of_machine loop
% |( N- s4 Y+ W  O7 h4 \) x                        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];
; |. a! W* }( K                                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);
                        end;
3 h* i# r  V9 }8 z                next;
        next;
3 \) U9 ~& i. v" }# B, v       
        lines:=0;
        partstable.delete;
. t8 X8 s! }6 g8 D( ~4 @4 t       
4 V$ v! c( U: a# T) _- }! \* [& @        for i:=1 to number_of_machine loop
3 b0 t8 h0 Y- ]  R, K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' ^; a2 M0 @4 o4 \) E5 m2 L                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 P. r0 U- a4 n" j' D                        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");
3 ?+ `- `4 Y1 j7 m( k                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
! i. h& k: _* E" }' E4 t  A' t8 v                end;
" c0 O& ~3 U6 F% D  g0 u6 \6 ~        next;
        machinename:=sprint("M",rows);
9 q9 d4 @5 B& A# W, t! z$ B/ p        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;标识符未知
+ p  E# L3 y: M9 j& _- r3 w* H        machine.proctime:=5;
5 J, L; r. ~- t/ T9 H        machine.label:=activityspace[0,rows];
0 f& @, [. ~. d2 O. u* N! i        machine.exitctrl:=ref(leave);
( c4 r* O( v0 G+ m: Y6 w2 ?       
1 P4 N7 h, e, I" W( L0 o        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]);
: a7 `$ T0 [$ c5 r% X- p, j        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
9 B0 i6 g5 i: X( V5 e( H/ q# A        .materialflow.connector.connect(buf,machine);
  u/ j8 ~3 T" v! q- w# V& ^  E       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* i# S5 P% l! N4 t5 tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' a; I- C3 ^) t  Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 d0 \8 a0 S7 Q4 U- onext;
end;