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

zooey

is
8 [" |* k) d  I7 R) X        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ u3 Y* a. Z/ I    machinename,bufname:string;
) c% s+ H- K% c8 p# c) t6 _    machine,buf:object;
do
: n! T2 k) J* v7 T9 X        current.eraselayer(1);
       
; _( P8 O4 k* p- Y/ `3 Q  ~% W. f        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  \6 ^0 f2 Z- Y* T                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
8 \) @6 i! i% o                        print"no";
9 r! u* g* C' F$ h$ _$ r- l                else
                        print"cancel";
                end;
9 h+ w) s' H( z  H  [2 W( d                eventcontroller.stop;
        end;
0 u6 Z; S( R$ d8 H, {' e+ }       
        for i:=1 to number_of_machine loop
1 t  L4 F9 s" r/ Q4 c        machinename:=sprint("M",i);
3 z# S" O  w# y$ f/ T9 T        if existsobject(machinename) then
& e5 i) U+ }6 @( X6 N                machine:=str_to_obj(machinename);
                machine.deleteobject;
% Q* m- O0 w3 j2 m1 l        end;
2 M# p( l- M$ v        bufname:=sprint("BF",i);
5 Y9 B% u  d1 k" ?# C" o$ R) f3 `+ w) |        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
8 H/ D! S  r2 W1 F  g: X        end;
        next;
       
        dx:=0;
        dy:=0;
" T2 q& I1 Z4 l- g) t# c        for i:=1 to number_of_machine loop
% K$ n' [* |" D  r# G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" l: l# E2 U2 o  Z2 F* B                --mark:=false;
/ P! D4 e. C; |8 b3 a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
. F& r2 [0 B2 x* M( R: x7 ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, g2 L% d2 E$ I5 V& i+ B4 D                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 C6 C" i* n9 f# B' J3 d                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 X! v. `6 F, l8 I; t                        activityspace[1,rows]:=ct;
                        mark:=true;
5 o5 @2 J; V8 H3 C. U, h/ f; z- O* g: H                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
- z& V% F* W" \$ z- Y7 ^                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  O! c/ L7 w! z- Q! `                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;
( h( Y# R3 U6 t                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 d, M, F5 Q0 M                        end;*/
, j0 ]+ o- B0 `* ^4 l/ s" j- S        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);
3 n! E" W, _2 M. Q- h5 Z/ j        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);
       
, w# q; |4 R2 C: x5 e" F- Y" k        rows:=0;
' |% h) n3 Z( U7 x        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# Q- `& a" \2 |9 o. t$ n$ d2 _4 g                        if j=i then
# f  B! H$ n1 b: ], z/ ^                                d_from_to_chart[j,i]:=0;
                        else
) ]8 X9 d) O" s/ v4 ?2 w$ Y                                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];
+ J5 r; }$ f: Y* O2 Z                                d_from_to_chart[j,i]:=abs(dx-dy);
9 G3 M( f0 V( S                        end;
                next;
        next;
       
        lines:=0;
' s; G# A8 Q0 W" [3 a        partstable.delete;
4 [7 C" |& _, L9 H4 S! k+ e       
        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
                        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;
* R/ r; I' Q, n! Z( s        next;
        machinename:=sprint("M",rows);
4 ~1 Q4 ]$ b8 o        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]);
; [% R; |! p4 i( \- U: {) c        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 n0 T$ _. \, H/ u4 I        machine.exitctrl:=ref(leave);
       
. O* D7 W3 x- \2 s        bufname:=sprint("BF",rows);
1 v6 }+ X! U5 o5 W6 f" f        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]);
6 o9 n& a6 s2 t. w+ e$ f        buf.name:=bufname;
        buf.capacity:=5000;
5 N6 @3 S$ T5 C        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;
1 J. V9 E: D) R/ c8 I8 i0 l5 zdy:=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;
$ \' l3 X0 s; W' d. Pend;