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

zooey

is
% W! p! r& |% F5 S7 i( d        mark:boolean;
        dx,dy,ct:real;
/ ?0 f2 J' L5 Y2 }0 n/ _& c    i,j,rows,lines:integer;
! H4 v; f7 O* w    machinename,bufname:string;
% o/ W' h2 h8 J$ t    machine,buf:object;
do
        current.eraselayer(1);
4 \4 S" g( N! x+ N( m       
" a$ s: B9 ~0 S# y9 s+ q" l6 L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ u3 B' J' p( T6 G/ I                inspect messagebox("设施数目不对！请核查...,",50,13)
( h$ ?) K) x$ e9 c                when 16 then
9 F& S. F# h( Q7 ?                        print"yes";
                when 32 then
                        print"no";
0 o4 t; n1 `9 G: o0 p                else
                        print"cancel";
                end;
, ~, F  s( A' j- u1 K2 ~2 `                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 }- V# P9 D8 |        if existsobject(machinename) then
) ~' D" p$ a9 n  g  O  d! ^: M2 K                machine:=str_to_obj(machinename);
. @2 Z( {3 d4 r: l) B                machine.deleteobject;
" o/ Q1 C! G! X& x' u        end;
5 L1 s5 y* C4 |        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
: t  W5 T3 ^( m8 L6 ~2 h        next;
       
4 `2 i! b9 S1 z! f        dx:=0;
8 K- q  u2 g. d$ |& N        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
  q- M9 w( e. d$ x                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- X- {) j/ ?# g                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- p! _, S' |4 l. [# o$ y9 w                        print activityspace[1,rows],",",activityspace[2,rows];
, a" e8 @5 i0 B) t                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) `1 }/ ?( x1 u& a# M0 K0 _                        mark:=true;
1 L3 v  Y9 u0 \                        else*/
" ], m; J4 o2 L& S' N, k                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
; P. o: H, P% [# B% G                        --end;
7 S1 N1 g4 }+ k2 b. ~7 [! C                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;
$ h' ~* X# I$ |0 P. ~' i& {            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 h% k, b- G4 C% c' S+ n$ v                end;
/ F" ~; K- \/ }- F                dx:=dx+activityspace[1,rows];
9 |. I/ S0 W8 P+ @: M8 y" c# [                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# t6 L9 g8 U; e! u. v                        end;*/
1 ?& Y' b9 r9 J. ~) Q2 L        next;
. a( R0 S: M0 l        y_max:=y_max+dy;
: a( Y, n; n( [2 a- x5 }        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);
/ W5 D' ]1 _. a- }        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);
       
# M4 k: l  K" }$ h        rows:=0;
        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;
1 y+ R  n& Q) b$ @1 Q% t                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 U& G+ R# E6 K0 `1 V( o                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
+ w" Z. y* s3 b: M# g4 c       
        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
: L+ ]1 B9 v. @7 C% \                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# ?2 A( R7 r" \; F7 i                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 M5 M" ~; m6 d0 ?1 T! B* G                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 u9 x- Q! j% \3 e" Q        next;
        machinename:=sprint("M",rows);
/ O+ d0 `! M3 x1 F7 S        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;
/ I2 u6 Y5 J0 B) T3 B- u# o        machine.label:=activityspace[0,rows];
2 g% u/ Q# Q; B# s        machine.exitctrl:=ref(leave);
; B8 m3 ^# L/ k& O  W3 j       
        bufname:=sprint("BF",rows);
# f, P, z# p0 h' o5 ?4 T        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]);
2 K* E, E$ d! b        buf.name:=bufname;
9 ?2 G/ W# V* z        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  x% |, @* Y2 p/ H' b       
" h4 A9 L# U7 B        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;
end;