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

zooey

is
        mark:boolean;
0 c& `1 O: O/ A1 [2 t        dx,dy,ct:real;
5 e4 L+ i- s  m9 V+ f8 U7 l    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
$ j+ S; S- t% Y3 J2 k        current.eraselayer(1);
5 l- B) }# |- h" w* t0 i       
) P, K$ L7 [% \0 F        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( n5 D' ^" q% B' v% x" x                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
* k! N4 W% t9 p2 q3 L' _" e! }. [                end;
                eventcontroller.stop;
# \" Q, \- ]9 T2 x. }7 J) B: t        end;
, @/ J. G. Z3 q       
        for i:=1 to number_of_machine loop
$ y' S1 [) r0 c. q, H' S' p7 d        machinename:=sprint("M",i);
6 |9 B! `$ D2 F( b$ k  j        if existsobject(machinename) then
2 F1 }4 h  {0 I. _                machine:=str_to_obj(machinename);
  P1 b7 J% D* M9 P" q0 [                machine.deleteobject;
# x9 z, b/ O1 c6 P2 @        end;
        bufname:=sprint("BF",i);
- ^8 r8 E6 R: I3 M- b+ m3 i        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 t. V  r: P( R) A. ?7 Q) ^                buf.deleteobject;
6 V1 P- U- U' a2 H        end;
        next;
5 k% M! f6 b# Y! P! I. G       
        dx:=0;
; L4 t3 Z& I: V% ^' _9 x2 V        dy:=0;
        for i:=1 to number_of_machine loop
- K" L- [& N8 c1 K2 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, W( p5 _% Q# W5 E8 y7 a3 j  c                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 v! j5 ?* E5 \$ G( D+ M* `                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ b4 c- a+ h1 {+ f                        print activityspace[1,rows],",",activityspace[2,rows];
  H$ G9 t2 i0 B7 S; @5 L% U                        ct:=activityspace[2,rows];
3 j1 {" b2 b: `2 U, C9 `8 j                        activityspace[2,rows]:=activityspace[1,rows];
0 x4 G7 o0 V& H( j                        activityspace[1,rows]:=ct;
; R' y5 a8 p! ~                        mark:=true;
& K+ l4 @, v! w" s! m                        else*/
6 `0 _' u6 D  _1 @& O' T: \, |                        y_max:=y_max+dy;
                        dx:=0;
/ r6 D" G3 s* D- M                dy:=0;
                        --end;
2 o; \2 b8 l+ X4 F6 u                end;
' ^3 z7 y" p) u) U. F                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;
            if activityspace[2,rows]>dy then
% x  N! m/ g2 t; O# G+ H& g                        dy:=activityspace[2,rows];
" t3 @2 J8 c0 a                end;
# X- y1 g- \$ Y& J2 q. k6 g" H2 y" [                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 J4 l3 v. E# d  \                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& @6 p% z) K; C- J# k# p% H) o. R                        activityspace[1,rows]:=ct;
                        end;*/
% f" ^- e; X& G3 P: ]8 _+ X        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);
* \: n, A# ]; a        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);
       
- u' y2 n+ ^% W- f1 H, A        rows:=0;
$ m% t& |+ |* [  u' G        lines:=0;
        for i:=1 to number_of_machine loop
, q+ i" L( o8 ^; T& ~: |                for j:=1 to number_of_machine loop
" Q2 i2 a( Z  n: P' c                        if j=i then
! N0 L3 R( u/ L% l8 y) A" x9 I                                d_from_to_chart[j,i]:=0;
                        else
# d; N9 f( ]$ Y: k+ s( I                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ J/ G/ u  Z; n) }) x6 x; {. \/ W( K5 Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; T- m4 m8 M1 b2 a                                d_from_to_chart[j,i]:=abs(dx-dy);
  o" e5 Z6 f# ?2 K6 f                        end;
                next;
        next;
) m4 B/ J+ f. n6 x6 @       
- M4 m/ N/ h3 O& w; y6 D' ~        lines:=0;
. q2 |7 F, f2 Z- h: e  h        partstable.delete;
$ f: e/ ?) a4 b# }; b* M       
        for i:=1 to number_of_machine loop
, h9 l) m$ P9 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 ~3 H3 n8 Q4 ?! z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& p: z2 D* J' l2 B3 l$ O                        lines:=lines+1;
; u1 g  ^% f4 l" K: Y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
  Q0 p3 G3 ?& n( A+ l                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 t0 C) j1 ~/ u1 ]7 ?                        partstable[6,lines]:=j;
                end;
" F7 F0 ^- \' N' ?0 z6 B        next;
        machinename:=sprint("M",rows);
! ?& R- ]* h1 B. p3 R        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;标识符未知
' J9 {8 a9 |1 c+ p8 `- A# I+ C# O        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
4 }' t- M: K( `/ a0 o8 Q& c& v        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]);
2 j# c+ g  g; O4 a2 _9 `        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
4 i" J8 w* y  j+ ]       
' K# \) N0 \3 D        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;
* q8 V- I+ z  ^7 I, Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 I3 F9 w7 k7 ^& ]5 q* q( \2 @5 e5 Gnext;
7 I( m: {+ ?1 b* Tend;
' P& c  @3 T$ Y( t4 E# ?