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

zooey

is
4 ?) M" K' T" [, K1 F% S        mark:boolean;
        dx,dy,ct:real;
* m; g, N7 F5 f9 D# q    i,j,rows,lines:integer;
    machinename,bufname:string;
$ r' G& Q! y- K, [# ~" q& [* R    machine,buf:object;
do
        current.eraselayer(1);
* J% h  T+ D2 G! I9 j. b       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ i& W$ Q: |; m) r                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
3 Q9 j* a/ B7 x; {                when 32 then
                        print"no";
                else
                        print"cancel";
# ^. L  y6 g8 _* N                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
7 r! x5 f. Q7 c" _" S        machinename:=sprint("M",i);
, [4 ^7 u: q* i- u. F2 [        if existsobject(machinename) then
; T2 l$ U8 B5 r                machine:=str_to_obj(machinename);
+ I" g  W4 R/ o5 @" Y4 h6 _                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 Q3 F8 }+ p. E" X) F, D                buf:=str_to_obj(bufname);
2 Q! f0 S0 X' c# A6 z( y                buf.deleteobject;
        end;
        next;
7 v" A( z) A2 R       
) T1 b! p1 @7 K( y. X# Y5 e        dx:=0;
        dy:=0;
& `9 P% p; k" O3 K  P% ~# V9 Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 _" c0 r# _. v: q( a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 n" j: l) ?" d1 ?' S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 ]. r' {9 F: T8 ~5 F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 V" R. S* Q2 X9 k1 E' M0 Z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ ]4 j/ M0 {) l- O5 j) c                        mark:=true;
                        else*/
# `) o# n/ y# A- O6 X5 N                        y_max:=y_max+dy;
                        dx:=0;
' D( M- ?, I% l$ A0 F* i                dy:=0;
                        --end;
                end;
4 O( Y) v' t9 y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( q- P4 r: r4 n% L6 ?1 b& {/ D$ Z" e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 O9 ?# f' z; q; n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
. l2 M2 O6 c1 j- e1 ?3 q; v                end;
! L0 S. Q" ?3 e3 V                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 S  V  k3 v! h* d/ X0 M% A: f                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ e- [0 w/ R, s  G& C* }( n                        activityspace[1,rows]:=ct;
9 C) D- q4 O/ a: d                        end;*/
$ x1 T9 n3 G/ {! [5 h# I        next;
        y_max:=y_max+dy;
  s1 w' P1 @4 u/ V. s1 a. c/ `        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);
8 b- g( C! Q+ x  [) \       
3 |: }4 V: K0 E6 Y3 i) \        rows:=0;
        lines:=0;
3 N) e0 J* z) }1 ~! S        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
) L8 f- a! X9 J3 C; y4 x; g                                d_from_to_chart[j,i]:=0;
6 N0 z- Y( m0 O: N+ L/ E                        else
% Y- z5 j3 m7 T; G% @                                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];
  L1 J7 i2 ^8 U: M. c                                d_from_to_chart[j,i]:=abs(dx-dy);
7 p" r" Q) `' a& F                        end;
. f# W5 k3 z) y: C                next;
' e/ _1 }9 E9 O7 k% D, W3 G        next;
% s0 f& m7 w$ A9 ^( C; g+ \       
' ~( |, ?8 m3 I' I* V/ L        lines:=0;
6 s7 k7 c% ^9 o. ~; y4 T+ @        partstable.delete;
2 W5 W$ n/ D0 y4 X- {0 ?* B) h3 {       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% A8 O: W/ g( y9 j5 F. b' |+ X                for j:=1 to number_of_machine loop
/ L% j' {3 e; p1 L! Y6 {                        if w_from_to_chart[j,rows]>0 then
0 O: d3 u* H/ c" P3 i& `+ r                        lines:=lines+1;
' X8 i  S( _2 j$ T% C- t* K* A+ R  s                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 @6 S# E! f. y/ `8 X                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, ^& i0 [+ W, ]* p9 T9 p6 |  c                        partstable[5,lines]:=rows;
# C1 Z; U( E  T                        partstable[6,lines]:=j;
                end;
        next;
# ?5 M$ f' w2 e3 Q        machinename:=sprint("M",rows);
' R% G' b. g- r. i        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;
! m5 r0 W' i8 T3 T        machine.label:=activityspace[0,rows];
3 Q3 Z) r3 y8 v7 m* k5 ~7 u. [        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
0 X$ u0 [7 v1 q$ h" W) R1 P# r! b        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;
' f5 m/ t+ L9 s        buf.capacity:=5000;
7 x# B# s; s$ Z. J. s& j' A        buf.proctime:=0;
# F/ ~% |" O, L$ c" C( y4 @( {* a( x        .materialflow.connector.connect(buf,machine);
       
5 B. q( \& l. Z0 F- G$ P/ O9 G! |: P        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( P+ X+ [# N  J. k; Zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ F  c- f! O; ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" H: q. m( h, o$ m$ H% onext;
3 A" Z( ], c. ]. n/ bend;