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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 w; D# p. u, d* m- I: I    i,j,rows,lines:integer;
8 s5 y( u: _/ Y- [+ S2 F+ _9 u+ r; x    machinename,bufname:string;
2 h  Y/ ^' b' ^    machine,buf:object;
do
9 }# g; `  q2 E0 I: I        current.eraselayer(1);
& G1 `7 q/ m6 u% C  _) _       
) h7 F# {1 }) U9 B- c/ C0 J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
/ b! u6 V3 y8 I* z% P                when 16 then
& z- ~1 X+ f7 ?# \" ]" j                        print"yes";
6 S4 F$ U$ Q, O- K                when 32 then
                        print"no";
5 u0 c* t6 r: b& _. {, o4 y                else
2 K# O2 V/ D  @* l2 H) l2 s3 A2 z! p                        print"cancel";
# ]8 G. Z0 }! ^3 q                end;
                eventcontroller.stop;
2 R" X3 E! Z9 L  V" a( J& E5 _8 J        end;
, G4 a4 Q/ X5 e% }" d! k% r       
( J2 D, ?9 J2 p( N' S4 l. z0 b7 \        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 k& c6 J+ T6 N3 T0 l5 ~9 I5 z                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. h6 a* ~& f6 Z- {8 L        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
+ T1 f; z( P0 G  s- c6 _       
( \& v$ f+ c( P( M6 |        dx:=0;
. J" s7 M& ?2 z  K        dy:=0;
        for i:=1 to number_of_machine loop
4 c5 \1 Z& D5 I( G! z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 `1 B& m8 T  ?' e+ ^                --mark:=false;
  i- d9 D8 P! y6 F+ I/ P                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 E6 r/ @, D3 v1 d9 U- y6 t                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
- g* k4 k! h4 K3 s- k5 e                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ p! |' g& |( T" q6 n6 G/ K4 E- Z                        activityspace[1,rows]:=ct;
1 ~6 `, i1 a6 l" h0 L                        mark:=true;
                        else*/
8 x  l, T& Q, m7 e/ j+ R1 f) e                        y_max:=y_max+dy;
( O8 {; k0 q9 {. s                        dx:=0;
% }! g0 \; ]) \% ?7 `0 E- A                dy:=0;
! v) u9 `8 h' e, `  U                        --end;
                end;
& j9 q% W" a  v7 H4 e7 n/ I- N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 T- ^6 h% w; D' F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
0 u# ]3 q9 L5 w            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
) Z! m9 L8 M: V/ N  ]- z6 v                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
' h* {/ V) v" |5 T; n6 ?4 `                ct:=activityspace[2,rows];
: R; Y+ \; W1 ?0 @" W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 f! [- g0 l7 _7 [" _  I; r                        end;*/
/ C. p9 l: C2 n3 d+ L. c        next;
5 i, o. E8 ^; P: V2 L7 W        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);
" q" c' p$ @) a  i# l7 _# B0 g1 r        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);
       
        rows:=0;
        lines:=0;
) @6 I8 N& _; }' F. y        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ ]2 h- e" X5 l" G+ ?$ R2 _                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
1 p/ m. Q- N6 ?# O* H' G9 o# P8 p* ?       
, ^1 Q+ L, K4 Z9 O        lines:=0;
2 u" b: y7 r5 ]' S! C) y        partstable.delete;
) |2 K# h7 w# Y  R! Z% U9 M       
9 W. \( Q, O' }: t5 U6 a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* n! k) j, Z, I9 ^5 C8 E* n                machinesequence[2,i]:=rows;
- Z7 v0 g$ x2 {                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  J0 C& R6 y2 U' p& g                        lines:=lines+1;
  [" G7 z' k7 H& X1 z# e8 A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 }  @3 J( R  c! |5 p                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 S# |; k# I$ B6 \                        partstable[3,lines]:=sprint("parts");
! K& h4 [! ]$ a; M$ `1 A                        partstable[5,lines]:=rows;
% \1 H5 B5 i: u5 ^3 r3 |                        partstable[6,lines]:=j;
                end;
; f# X/ r) Z1 [; S. Q6 U        next;
        machinename:=sprint("M",rows);
( j+ p7 W& e0 u  }        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;标识符未知
& A! V" d: l7 H7 }: e        machine.proctime:=5;
        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;
: L9 }( F0 q; O  R; @        buf.capacity:=5000;
        buf.proctime:=0;
' M+ w/ N1 T+ @9 |1 W/ ]9 L# D        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 I5 f( E* w3 t5 Q1 t/ X: @. O+ ^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;
3 n3 D5 y- W7 F2 \. gend;