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

zooey

is
9 p5 H* c8 z  ^+ J        mark:boolean;
        dx,dy,ct:real;
0 Q. x/ W: [7 y8 u, B, P3 ^7 m    i,j,rows,lines:integer;
) v, D# X1 C) i" m9 l    machinename,bufname:string;
    machine,buf:object;
' [3 G! @5 ~; B7 Q1 }- gdo
, B/ D7 D( @# S8 x8 j        current.eraselayer(1);
       
5 N2 }0 [4 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
3 d1 Q8 o/ d/ v                        print"yes";
                when 32 then
                        print"no";
                else
8 R5 X" V3 A/ j( F                        print"cancel";
                end;
                eventcontroller.stop;
9 O4 ~) O' p. D6 h1 z% g2 k: j        end;
" A: \. g" n% m' z" ?, U1 V5 n. J) i       
1 J2 t+ X' H7 r" K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ l# H% o# H, T& {. z        if existsobject(machinename) then
: o2 {2 g8 X5 v. r                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
1 ~' F; _" w& Q1 R* m% s7 L        if existsobject(bufname) then
( W+ o3 b' k8 G1 H( `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
4 O# ]$ [! T3 n/ J        next;
       
1 p3 e. N8 D' q3 e# y: z        dx:=0;
        dy:=0;
$ ?+ B4 w2 ^% O2 Y; q% {9 ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 f2 [% G5 I; u/ o( f, @" }8 P( f' p4 r                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# k' d# r( v7 Q! K2 a                then
8 w! k& G; b' |! I                        /*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];
- B) `) r2 v% v, ?                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! p$ E' C& x3 `4 r' t                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
: E* o: b3 |9 @6 D: Q) @2 Y! K                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
* Q% j& U  N+ V9 b2 i                        --end;
                end;
" j1 m" T3 M/ G7 C6 J                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
( i- o6 _3 ~+ c! b" U                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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;
/ j0 I4 j& Z7 i' I        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        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];
4 S- H$ q# ], x" E                                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);
+ f+ _6 }. Q# {% x                        end;
# d  s( L  B7 H6 ]5 F- J# G7 j, P' d* Z1 T/ G                next;
; a. }3 m& D" E# I, d6 J        next;
$ ]* y. b6 X; t  b       
- \' A- ~( G8 q" e2 T  V        lines:=0;
        partstable.delete;
3 P0 t- m( N: F       
. }3 c, m0 @1 W! q7 `7 _7 }        for i:=1 to number_of_machine loop
8 \) \  e5 }% Z$ ^$ f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
9 ?- S6 I8 \; k1 D4 G                        if w_from_to_chart[j,rows]>0 then
/ E% N, Z0 I; R2 E  a3 r* @                        lines:=lines+1;
  M4 [- b( o3 O6 T$ P/ J1 R. k7 O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) Q/ J7 s2 q+ V* J0 Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" x5 |9 L7 V+ o  ~6 N  z6 A                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
/ K1 j6 H  [  p' Y/ D: z, N' S- i        next;
        machinename:=sprint("M",rows);
5 c: \9 ]! T% s& W. M: E* U6 j        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]);
, C0 `/ e9 T, u2 [: G% c) k% J4 C        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
/ c; A) A, Y7 v. C9 ^( p        machine.exitctrl:=ref(leave);
2 [$ b; H3 t" G       
: f6 x* k3 j" R. ?; u, e        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]);
; b8 P  Q  ^8 Z; y% q( R        buf.name:=bufname;
+ _9 i7 u6 w* r" O9 X  a0 ~        buf.capacity:=5000;
        buf.proctime:=0;
! K6 O) K  M! X+ M/ m/ `1 N% H        .materialflow.connector.connect(buf,machine);
# u0 ~$ m7 \+ t$ x2 ~       
7 {+ C& U5 E  j! f        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, u1 R% i) e5 S: p+ a; Ndy:=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;
- p3 {9 }" u; ^& X0 Z) Lend;