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

zooey

is
7 }! p% D7 a; c: T5 x5 ~        mark:boolean;
# L, j' u! G, ?: z1 Z: S6 s        dx,dy,ct:real;
$ f# a: d0 L$ I3 a    i,j,rows,lines:integer;
" X$ z9 f7 C: |% ?5 G' Y& M/ n! l    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
' ?8 R/ W; w: k1 L       
4 G& p' K( w, F0 k+ f( }$ ]        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( ]0 f- ~, W0 v7 q2 S9 s" \! A                inspect messagebox("设施数目不对！请核查...,",50,13)
5 `! l0 o3 U9 O                when 16 then
# i: `8 f. U) t% J# t+ Q  ]0 Z3 X                        print"yes";
                when 32 then
                        print"no";
$ ?* p" i4 |+ l' f. r# @                else
                        print"cancel";
! q  D  h. J! j0 ]                end;
                eventcontroller.stop;
0 S2 a+ C+ H- @& u+ z8 r8 L9 w        end;
       
        for i:=1 to number_of_machine loop
2 w7 y( M# x5 L7 [% U3 p, d        machinename:=sprint("M",i);
( i; N% c& x, q& v        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
. X* o( {0 G0 F        bufname:=sprint("BF",i);
0 Q! D/ |; Q& ]' X! ]4 B* s. m        if existsobject(bufname) then
% R* Y  p. S4 r                buf:=str_to_obj(bufname);
* n1 u* ^# R% X- v5 V                buf.deleteobject;
5 p+ V, _) z/ q        end;
        next;
       
+ e" Y8 _, c8 k7 _2 A* O        dx:=0;
& A, _. F, z2 R3 i$ Y5 N        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& }* r' e7 E' Y4 \6 V1 h                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 P5 u1 K! I- {9 B- q) p                then
) y4 @# H- |  U7 l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 R, _# u! {. H) s- |                        and activityspace[1,rows]<(1.05*y_max) then
. ^4 w* i- U5 K3 [! l                        print activityspace[1,rows],",",activityspace[2,rows];
* A: Q3 ]: h! J6 |/ S1 p" S& A                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
7 L$ `/ W4 {+ R3 s& @/ S                        else*/
- o1 }: s: {7 D4 y0 U% K                        y_max:=y_max+dy;
# \2 }9 B! F1 _& B                        dx:=0;
" b4 u9 w2 a+ @5 Z                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, _3 ?: j  J7 ?                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
8 l7 p9 n5 g& x: d) |, ^! F+ ^$ N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ @: A% }: ]* d) K                        end;*/
& z. K6 w- ]% q, I/ I        next;
7 N# N2 K* P9 J% q; @; ]8 U$ {% Z$ [* R        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);
6 g0 m9 ~' X0 k0 e8 L0 ?       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; O! g5 E8 W# Q: `8 o( p                        if j=i then
                                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];
$ L1 C6 |. j4 e                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% h' d& f- |# u3 M3 Y                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
3 V0 x* `7 I( O* }, X! `, ~& r       
1 T- w  ]9 ~9 Y. e1 c" W8 [        lines:=0;
        partstable.delete;
5 x3 v; y% F" |# W       
        for i:=1 to number_of_machine loop
: e, u: w6 x0 x$ C, X5 s; T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ ~  e" `6 w* p  U                machinesequence[2,i]:=rows;
. S0 H/ p+ \0 n! `9 M( m                for j:=1 to number_of_machine loop
- [# d  O+ Q" |                        if w_from_to_chart[j,rows]>0 then
9 z1 N+ D. c$ p2 R) X0 W$ u! `                        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);
5 U- L$ |3 M# n. ]( z6 q& v        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]);
( l# [5 j+ n4 @) F        machine.name:=machinename;标识符未知
8 L5 @4 d& M- O! |        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
0 H! O5 e( u" L; q% Q0 k( i% v; L       
        bufname:=sprint("BF",rows);
$ r, T/ Q+ I  a* z        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]);
. u) R3 |: Y$ E+ H        buf.name:=bufname;
        buf.capacity:=5000;
' I# ^- d2 _6 u        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& A# Y  v4 R" ^5 R3 g! |( J7 V7 Ody:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 r1 w& N/ z5 D+ i, \- ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;