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

zooey

is
% @+ D# p( g7 E. m3 Z9 W; V- h        mark:boolean;
        dx,dy,ct:real;
& R9 I$ }( T& t: {    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
4 @1 n) n8 @, k! q1 O7 U3 V4 N        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
' D/ V- [0 [+ n' B                        print"yes";
/ U& ^# b1 h& m$ b8 _0 l                when 32 then
                        print"no";
                else
$ Z% K9 {( ~/ t) H: F8 Q                        print"cancel";
/ W1 @7 F! ]. e- S1 M" _6 Q                end;
1 w6 E+ I; `6 o( R7 F                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 W" v, W, B1 A) D! P                machine:=str_to_obj(machinename);
& _* b/ U: J+ u+ z' P                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
1 ^6 A* j' {2 Z+ |: K, m' V: o9 K        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
- g) O2 V; M8 X: m6 k; M; U! [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ S  j3 y9 H3 C, f) l                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
9 F$ E  X' ^5 G. X                        ct:=activityspace[2,rows];
4 C& O  \" e* U  e5 B0 v# d                        activityspace[2,rows]:=activityspace[1,rows];
4 O1 I  p. z+ k7 [) |                        activityspace[1,rows]:=ct;
. U( i: m: W+ C$ l0 i; S                        mark:=true;
2 Z3 e1 j0 W- X9 K                        else*/
                        y_max:=y_max+dy;
3 h; |& ~4 y( H( W( I: H                        dx:=0;
                dy:=0;
                        --end;
  ^: Y$ f# o4 S                end;
7 u* e8 N! F. y5 d5 f                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 D% v8 U: n1 l* S# C6 b" C  l                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' r8 `7 j# m3 ~. N% I            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
7 _+ @) T" H; R& L* p7 v+ l( W                end;
6 B* f9 E) m" f9 }" V                dx:=dx+activityspace[1,rows];
0 r2 o6 n; b0 G! y0 Q2 a* J% q                /*if mark=true then
2 P% A9 G* N9 e7 F5 |& x                ct:=activityspace[2,rows];
; n# x3 M% j& f) ?: ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
! ]% @9 a% Z7 p) y4 T' I8 N        next;
* h5 i! N2 z7 t( d. X- Q! Y0 g        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
' w& x7 Z* }" g& x+ a                                d_from_to_chart[j,i]:=0;
  n& g+ ]* L  q1 y                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 ]9 U3 P: }2 X                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- X- B: X1 q) l' n2 E3 Q' `& Z                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# _4 J* \2 r" c8 X+ Y9 s% A8 A" _                next;
+ x; \! n. r0 |) z+ R2 F        next;
       
        lines:=0;
) h. J/ n. D2 }, P/ E        partstable.delete;
       
( Z% w. X" \' O$ F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% l) R1 x' Q% W' B% `: @0 Y                machinesequence[2,i]:=rows;
# S* n9 O1 P3 L( r# y: F$ L                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
% v/ W* c% k- P3 V" `                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 X% d% N* f% ^5 d                        partstable[2,lines]:=w_from_to_chart[j,rows];
* H; [/ A* I* c3 f* l$ Y                        partstable[3,lines]:=sprint("parts");
  f: G) `; [' ]! {4 b6 \+ ]                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) l3 I. w+ U" l- V2 S# v                end;
; P, P4 f4 K) b; V9 C) c1 |* x% Q2 O' q        next;
- K" S* t8 l- x! r% s5 `        machinename:=sprint("M",rows);
: O. z. g) S* _1 x) ~4 W7 O# x        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]);
3 x) w/ M4 P( b3 m* O, ?/ z        machine.name:=machinename;标识符未知
9 K" Q# t0 s, v1 D1 Q$ n3 l        machine.proctime:=5;
. O, F5 c8 i' A1 A, b5 t        machine.label:=activityspace[0,rows];
9 V* F% B) I9 Y$ S7 h( p' |        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;
        buf.capacity:=5000;
- Q' I) R$ {7 H  }0 \        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
1 r: m9 @2 B/ o+ P; a$ |        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* u( S8 [5 Y! P! {; }% ynext;
end;