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

zooey

is
& ]7 l; `; }/ }4 _) J) t0 m        mark:boolean;
) O, K2 ]/ k* n        dx,dy,ct:real;
" e& }6 P! z& L. T3 A4 _    i,j,rows,lines:integer;
& \8 [% Q* b  n7 C4 L) s    machinename,bufname:string;
, R% T; Y) k7 p, a# ~. [7 H    machine,buf:object;
do
        current.eraselayer(1);
       
4 I# k/ m5 Y) ]& ^3 @5 R: Q  H/ H2 a        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% C& `7 \5 K8 J& \5 A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
8 S% [! a6 L" R0 @8 D: A& |                        print"no";
                else
* _* d3 O& U$ H                        print"cancel";
                end;
- W- T7 M! B8 M2 x+ m                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
7 z: h& F) g; Q* V3 E: H        machinename:=sprint("M",i);
0 ?! {4 P- g" Q- g6 e7 V        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
2 R& u  z7 M3 J  w0 B                machine.deleteobject;
1 b! s# Q) }' y+ m        end;
4 _9 _$ C! B9 P2 z+ H        bufname:=sprint("BF",i);
& x6 _4 a& L5 B. ?" P        if existsobject(bufname) then
. j6 H0 P5 C# d: `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 |. j- U* m0 L4 ]        next;
% x3 C4 a3 P' V3 j! \       
0 B" {6 G% h5 ?# }/ C7 K/ n7 G% K9 p        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: [+ o2 j) l/ R' d                --mark:=false;
& m8 i% y/ h* v( Y                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
5 o) c+ o( d- _+ Q/ X* t9 _                        print activityspace[1,rows],",",activityspace[2,rows];
  V8 W  ~4 I+ J  R* _- l                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. B- o4 N8 M' x) u, b                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
: |* m; P1 [1 f9 ?  ^) `( C# q9 F                        dx:=0;
, {2 v3 l- B" i* r                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( C, @6 `% \' ]/ p9 F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
/ P/ \4 d3 e* G3 R9 s                        dy:=activityspace[2,rows];
                end;
' n* H3 S  b" x8 u$ }4 C( O                dx:=dx+activityspace[1,rows];
' _( v) G  O! d+ J5 S+ T' a# S                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# Y* \1 [1 |  ~; _! s$ r                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
$ ], k7 S9 p+ `        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);
       
# W1 y/ {: O7 y' k9 Z+ R5 g, C/ V        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
+ _- ?* \! m: I1 F                                d_from_to_chart[j,i]:=0;
1 G+ V+ F, ~: S5 x3 r                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
) _# L( H4 r1 g$ C: Q/ G- G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 R& x/ p, x! f                                d_from_to_chart[j,i]:=abs(dx-dy);
. R$ Y6 |! l+ M3 g                        end;
                next;
        next;
) X0 T; d% l& }7 a: c5 R       
1 z  T2 A  l  T" x4 ?# g- B: U* g        lines:=0;
        partstable.delete;
! A, h& w6 n! L) R5 e       
        for i:=1 to number_of_machine loop
8 C+ k+ M; o  E6 ?. M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# T- K# w4 q+ L3 l' L0 l                machinesequence[2,i]:=rows;
5 v9 O4 I& o) i. ]* P                for j:=1 to number_of_machine loop
. c# P2 {$ y: S9 c- Q                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 G. u$ S/ C4 j6 m; s1 N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) s8 c: |5 w! Y0 C7 s                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; M7 ^7 G$ Q! H  i! L6 E7 K                        partstable[5,lines]:=rows;
: I7 p9 R# U+ b! Y$ `                        partstable[6,lines]:=j;
( ?% N. G' z9 z+ `5 [                end;
  d5 W, @! o! I6 ~: @) D        next;
# |) d; Y. [' W% ~        machinename:=sprint("M",rows);
1 m' M. s, c" R& }5 j6 r        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;标识符未知
3 h/ o9 `: y- L, X2 R        machine.proctime:=5;
7 M; _, b  k) w        machine.label:=activityspace[0,rows];
1 K" L) w1 {( P* {7 R. G2 G        machine.exitctrl:=ref(leave);
       
/ o( P! |9 G6 l9 _4 I        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;
5 K" m1 L8 |/ W# q. N5 T# ^        buf.proctime:=0;
/ v6 t# |5 V2 {: _" K: ?$ U1 x        .materialflow.connector.connect(buf,machine);
       
: i2 U+ s" @7 p; }$ g        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;
- N1 G2 b6 y. o( Q8 m9 ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;