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

zooey

is
        mark:boolean;
8 o+ {) V4 J2 a        dx,dy,ct:real;
5 }0 p) V4 H1 ~; f    i,j,rows,lines:integer;
0 I6 I' ~* F3 f6 {) i0 b    machinename,bufname:string;
) j; a; [+ Q. ]( J, R# h1 K- z    machine,buf:object;
do
5 d1 V8 j5 R( B        current.eraselayer(1);
       
6 L6 l9 a( z: ?/ m! C: j, V        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 O* J3 z6 Y) W                inspect messagebox("设施数目不对！请核查...,",50,13)
# r* J  t& f3 N8 W+ e* {                when 16 then
0 r: r, E2 |2 I* Z9 }, s5 U% \                        print"yes";
                when 32 then
                        print"no";
9 Y" P! J; P  e0 H                else
0 q; W( p# a9 y+ F+ k" J                        print"cancel";
* \3 X  c- D7 `' U' ]                end;
! b% x9 M1 ]( x* p7 ~* f) N* B                eventcontroller.stop;
        end;
8 A3 S$ x! d8 Y4 L9 C, H       
; T2 F  r! X- U5 S1 H8 D5 k( ]        for i:=1 to number_of_machine loop
2 v8 @: |( |" Z; P' Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
, [' e. A$ i% D& _. R                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
, Z4 T% W9 i% s2 a+ Y) X        bufname:=sprint("BF",i);
: O6 j& D8 [7 C0 a1 Z        if existsobject(bufname) then
* M, z& u! i6 `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
) U  h2 z3 p' Z% z- a% _        dx:=0;
: J/ D* k7 a$ O        dy:=0;
        for i:=1 to number_of_machine loop
" K& B( F( R3 i0 ^. Y6 |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: g& K% y9 }- g& u; U2 B2 R' \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' r' R6 u% S0 Y                then
                        /*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];
' ^5 a5 B0 t5 N% _: c8 U                        ct:=activityspace[2,rows];
/ s" B5 \# E( u                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- o# \: \( R) g# h+ `2 ]                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
8 D2 A7 x0 n7 `: a7 S                dy:=0;
) B8 F3 l- ~7 l8 y4 S9 {4 h                        --end;
1 Z  U' w. b/ z" S                end;
) c3 N) \5 F! B! ]+ C' d                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;
6 ]4 q5 v* h$ B' f) x6 A            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
, U0 U( a6 f& K! A                end;
7 V) }3 E/ M! W/ @                dx:=dx+activityspace[1,rows];
8 F( c( p* z4 z# U                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ p7 h7 n$ M: x6 k; L. I                        end;*/
        next;
: E! q7 Y7 T' ]% v, J5 W        y_max:=y_max+dy;
: k# a9 h. S. O        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);
2 t2 `# ]) J- w" }       
6 k6 F% n, K: j        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# q- M8 P+ E! O' t5 O; k                        if j=i then
                                d_from_to_chart[j,i]:=0;
* U4 T. N# Z  T8 m1 {7 Q- G. U                        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];
& x, _3 O6 R  m                                d_from_to_chart[j,i]:=abs(dx-dy);
( x# J! r& s* }  ?) W                        end;
                next;
) }7 o) Q$ E/ `( w  ]: O1 q& d8 R        next;
       
/ |3 l( |( |; `& ^7 n/ H/ T        lines:=0;
) g$ `8 X( d8 C3 g2 y4 ?        partstable.delete;
       
* t7 G& y6 u* [. N/ J% ]% s        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
8 R' N; a: o2 C$ v9 n6 `/ b5 ?                        lines:=lines+1;
9 f( ]: x* P# O0 h( [! m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! O- F8 l0 I- S* [                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
% l3 }$ E9 _/ n! u' h$ L* z                end;
        next;
        machinename:=sprint("M",rows);
        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;标识符未知
$ ~, x+ ^0 r6 S/ z        machine.proctime:=5;
+ b# ^* S2 ^' i8 F- x  O4 D+ e        machine.label:=activityspace[0,rows];
# G# ?8 J+ r7 W; Q& S$ q+ F        machine.exitctrl:=ref(leave);
       
        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]);
. k3 n# W! J  e* O        buf.name:=bufname;
        buf.capacity:=5000;
* v6 X2 }' g0 d' i/ o" |        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 V. S. O' @, X       
$ k- z4 v4 w! j' g$ {8 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);
# s/ B& R8 {! T5 K3 a. mnext;
end;