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

zooey

is
- v& G% i2 Q9 e9 ~8 [2 J) v- e( V        mark:boolean;
9 a5 U. I1 ]8 z, d        dx,dy,ct:real;
3 p  K9 b6 O! I" z$ `    i,j,rows,lines:integer;
* [. [& l3 K9 Z    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
. T1 C* X; Y- X' o6 u% l       
        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
' H3 j$ T: N( H. y' O, Q6 `2 g                        print"yes";
3 n8 r; N& H: Z5 b( m4 O                when 32 then
                        print"no";
; ^9 y! ]3 a1 K2 _1 U; J                else
                        print"cancel";
( W1 O1 _8 `7 `. m1 v2 V4 j                end;
5 S7 N, h4 U0 i* R* A                eventcontroller.stop;
        end;
9 H7 f. ~, J, u5 B- d, ]       
! R4 W: |9 p) m4 T4 P3 L( D9 d" E        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ E: p. K% @$ L1 b/ H( M        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 g) j; N; ]% ^5 U5 Z* h( u                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 h/ k. E# X+ N3 f% a                buf.deleteobject;
        end;
        next;
       
: P7 k) {9 p. e0 b        dx:=0;
        dy:=0;
+ K: e, v& [- T7 {+ u: I% i        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 q  |, k2 I) D/ ^( m                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];
) Q* `8 ^6 w; }  Q0 G* A9 {                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' l; \: x& b5 t                        activityspace[1,rows]:=ct;
- o1 b5 y, ^6 W- o4 f" m                        mark:=true;
                        else*/
; P  q+ ?( i) k3 D$ `; j                        y_max:=y_max+dy;
                        dx:=0;
( |0 c( x$ n. A0 q                dy:=0;
' i$ L; o$ y6 I& V' c8 q* b                        --end;
                end;
                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;
+ A& O+ |5 n6 y' B9 y8 d" w            if activityspace[2,rows]>dy then
3 ?- x+ t2 W& R0 c. d                        dy:=activityspace[2,rows];
) I7 e/ R$ Z4 s3 }. h                end;
                dx:=dx+activityspace[1,rows];
7 v. N# d$ L2 |/ s  \3 a2 V1 C                /*if mark=true then
                ct:=activityspace[2,rows];
  s( ?( D1 Q  _+ v; l2 o! \; Q                        activityspace[2,rows]:=activityspace[1,rows];
5 k6 Z3 D% @  Q) j- g7 I                        activityspace[1,rows]:=ct;
% G/ [; T6 l( U4 i                        end;*/
  D* @" n& K' u( O2 c5 T        next;
1 h0 Y% r+ j4 o7 H% w9 d0 ~        y_max:=y_max+dy;
+ t- _; M7 y! z- Y  c        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);
- C8 u( x1 c& W$ [8 O       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% k* J% G# f4 e- E, b                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! \; ~" E  ~) |                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- |: N( u& x  C0 g+ w( g                                d_from_to_chart[j,i]:=abs(dx-dy);
5 P. s2 D, u. o" }- }* \. D  F                        end;
                next;
        next;
       
        lines:=0;
1 S7 t6 X$ k+ q* d        partstable.delete;
       
  g/ k! [% p% q! K        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
" T$ W4 z2 k5 b* a                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ o# u8 U- Q& A                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
0 @7 Z  ^) i# t9 Y/ H4 s$ n6 V                        partstable[6,lines]:=j;
                end;
7 C4 x- C+ T1 G+ f7 b        next;
" O9 W& b) w& p: J4 I        machinename:=sprint("M",rows);
        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;
        machine.label:=activityspace[0,rows];
7 y5 q9 T2 a. R. Z& n5 i5 B        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
/ R% j: t, k$ O! n  b' v. r; W        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;
  t  P" B# y, E7 Y) z( l. b        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) e5 Z+ e& C" z/ I* K       
5 P: ~" _; T9 I        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);
next;
7 i2 f) v- i! i, a+ `( x0 H) Z7 nend;