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

zooey

is
8 [& M  ]: T( \8 l' H! j        mark:boolean;
        dx,dy,ct:real;
) B' g0 L! y2 L6 W    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
" m( v5 z4 e' z$ B" m2 v. Ydo
        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)
                when 16 then
                        print"yes";
# p6 \# E7 f5 P/ P0 E; x+ h* c4 }                when 32 then
                        print"no";
! L0 v# H7 R' e: _. y/ G  ?2 {                else
                        print"cancel";
2 u" ^4 N3 A8 B2 X2 Q/ d  h                end;
6 v; ]  R2 w  P; }% ~                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
6 K; L% x& F, j2 R) _: N8 @& Y        if existsobject(machinename) then
/ p5 C2 `. h  n. E. M( L" J* U: \                machine:=str_to_obj(machinename);
/ {9 l7 L! ^4 F; O                machine.deleteobject;
  \" F. P  r* |$ k, w- a5 z, z2 O( J3 `        end;
0 l- U0 V. m! a% T, p        bufname:=sprint("BF",i);
" d' K$ }1 [/ l$ C* O# r7 n3 }. \        if existsobject(bufname) then
2 j* O# h4 G; e: g: O" H' V' h# X                buf:=str_to_obj(bufname);
5 j% ?1 p2 b7 J% a                buf.deleteobject;
3 `, p3 e9 F$ `! Z! Y6 Z0 {        end;
! C6 V9 r) P3 x2 q% A6 ~2 i        next;
       
        dx:=0;
+ h1 W3 |6 T9 ^/ e- J  ~. @        dy:=0;
0 q( X$ q1 C( F. `' {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 ?! H8 F( r& N) m% M: ^! Y) c                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( `# o0 \5 c) J( S6 a3 s9 W; j                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
1 I& D8 h. Z, E* T* g! ]                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! a: I! {3 z! v! A8 h6 I4 _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 u. e( }7 {. Q# i0 s! K6 U' M' |                        mark:=true;
! A& F/ w! o5 l3 b3 ?; q                        else*/
: t4 t% ?/ u1 B/ u* D, m                        y_max:=y_max+dy;
                        dx:=0;
9 ^- u/ w$ ]. i  n* p% G                dy:=0;
4 g  G: ~# {- l' A1 z$ |4 C                        --end;
                end;
# }) H$ i" N+ ~                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! d) j/ o; z% Q9 u+ h, _3 y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  @# g1 }- z6 Q( z3 u5 J& A' F3 ^- {            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
* \3 z- F3 S8 E# a/ F) p! O* Z4 k                dx:=dx+activityspace[1,rows];
- H8 G) O& L  {. ?9 w                /*if mark=true then
3 L9 u& ^  e: r# v( Y                ct:=activityspace[2,rows];
) `. a, k5 }, S4 g" l                        activityspace[2,rows]:=activityspace[1,rows];
+ d, t  _! A% k$ ^                        activityspace[1,rows]:=ct;
                        end;*/
        next;
1 W% ~$ u  j. h" ^, v8 U& d3 |: Y        y_max:=y_max+dy;
3 d+ C: A8 v# }. t        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);
( H' S* i+ ?+ C/ I" c        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);
       
. C( t' W1 C) X, z        rows:=0;
- `' X. r2 M5 @2 L, r        lines:=0;
        for i:=1 to number_of_machine loop
+ [% y2 u4 \* x) I                for j:=1 to number_of_machine loop
; e- x# ^; f# c8 G5 e, h( [. j                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
- b! {4 o' y+ c( E5 o                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ T! O  n" X! n: X& n( w                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- x  r: c0 Y# J. k                                d_from_to_chart[j,i]:=abs(dx-dy);
! j7 Y: n) s7 M5 [. R                        end;
                next;
2 a. l/ y6 v  w& R% L. s2 Z9 h        next;
0 P/ l. |7 D9 D       
: {; m  E/ S/ `  z; L5 C+ b4 Y        lines:=0;
3 W( S  K0 l* B% P6 V: v6 K        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ M  s& N5 \% c8 l$ B5 t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% S! P% y6 G9 p, s* W                for j:=1 to number_of_machine loop
5 ?: |- X1 n( g                        if w_from_to_chart[j,rows]>0 then
  q4 J" }+ F2 }7 p& R7 h8 ?                        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");
                        partstable[5,lines]:=rows;
* O. ?& V: F& n0 B                        partstable[6,lines]:=j;
# N& e+ a% @$ o" f& @. G3 n( P- l2 j                end;
        next;
- b3 R6 g; W% Y: n        machinename:=sprint("M",rows);
4 e! h# n7 R. o. t( ~( D. _% q        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;标识符未知
; x, a" H! t7 @        machine.proctime:=5;
. E& S6 O" H& o5 L4 k" F7 m0 `. Q( e        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& h! S2 y* L; J3 j        bufname:=sprint("BF",rows);
% ?$ T' w5 ?8 c        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;
. n* @) p6 z+ E4 Z! Q        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 F) M% v: f  V3 r; Y+ S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: U. ^* K, K; B/ Z8 Idy:=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);
; x! l& w6 E+ r; {7 ^& unext;
# s6 O; R; H/ o3 ~% t  A- d( T, aend;