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

zooey

is
  l) e# o6 K; |8 b8 b; w        mark:boolean;
7 _- y  z! v& R3 i        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
; Z* _; O: b& M        current.eraselayer(1);
! \, T5 W! J- _0 u9 @" d& o       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  N) ~- S$ v% E; C! {2 T* R* h1 C                inspect messagebox("设施数目不对！请核查...,",50,13)
/ }( H0 s7 X4 B4 o% {+ O                when 16 then
4 o  X9 r5 h3 W' r3 \' V                        print"yes";
                when 32 then
" e$ M) {5 y+ W1 t                        print"no";
                else
                        print"cancel";
5 }1 F" H1 c+ [) H+ [                end;
                eventcontroller.stop;
. l0 m/ i. y) t/ K7 f        end;
       
5 C# N/ O6 W- k! s        for i:=1 to number_of_machine loop
  U) ?# s* J. C  E4 ~5 ~7 y2 d        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ h9 K! I, o( o3 F3 y                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
& ]; z+ L; C5 V- O: q9 x; U. b        bufname:=sprint("BF",i);
$ q8 V. e. n" r* k6 g! \0 Q$ ?0 q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
! P. M+ b7 u1 f& X$ n+ t       
        dx:=0;
7 \& _& [/ j9 v7 Y& o        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# Z6 B) {. h  ~( E                        /*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];
& w4 \5 H7 A5 o                        ct:=activityspace[2,rows];
1 _$ L) Q, e8 w- m) X: A                        activityspace[2,rows]:=activityspace[1,rows];
4 S, J" o" _% y" M                        activityspace[1,rows]:=ct;
: E+ ?% ]0 C/ @                        mark:=true;
                        else*/
8 P( ?' E% y: R' ^                        y_max:=y_max+dy;
- z$ J5 f# M) G. r                        dx:=0;
                dy:=0;
                        --end;
, r  k/ X8 y7 l! g( W                end;
6 A: h2 t5 n5 W7 `5 l. \4 X2 ]3 ?, B                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
" h2 a% E% K* C1 s4 d3 U  a                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
9 R; W; B5 b# X( V( C7 d# p                /*if mark=true then
/ ^; k) h2 ]7 p" ^. W1 P                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ w  J7 ^" T, t* |* O; j                        end;*/
% Y; j; _, M3 M        next;
7 B/ O. a$ A5 d2 `$ C* @: d* f" a        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);
        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  y( `3 y& D0 g4 e; U# e       
) d8 L, c# M' I+ N) i6 t9 e2 T9 D        rows:=0;
4 o2 ~6 c6 M- P; y        lines:=0;
4 Y+ g/ G; W! w        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
0 V( m# t+ e( G5 ^3 t6 H                                d_from_to_chart[j,i]:=0;
3 D6 A, M# c& [  q; I                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ ~5 c3 ?" f: w8 A                                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;
. Z2 x& b) n( X/ G1 C                next;
& w$ e7 D" F9 v' q; w# g        next;
) W4 e+ P5 E+ }  v. C4 Q8 a       
        lines:=0;
- H: Z; P% R* w2 f) `& G; \8 Q        partstable.delete;
! S6 _2 j1 @' V4 f7 {2 Z; q       
8 n) n* \2 V2 W( B  W! |        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        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;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
4 t: S1 l* x3 E. o        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;
9 S, f: [6 B. J" e. _0 p4 K9 X7 l        machine.label:=activityspace[0,rows];
# |: u5 {& [$ P% `' X0 b        machine.exitctrl:=ref(leave);
8 ~/ q/ r" s* L9 l& V) n1 G       
        bufname:=sprint("BF",rows);
  R# ]+ }$ w! J& x. z. O2 n. E4 S. j        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]);
4 i( |( `& ]# @) [0 j7 w8 ~        buf.name:=bufname;
        buf.capacity:=5000;
  k6 w8 d. Z9 [; V) W% p        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& D' s5 X3 E+ Q. D" ]' H       
# k  e2 k, `( E1 G# R        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- R* B  d6 W' i; G1 `3 mdy:=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;
# ]# n( |( m0 |end;