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

zooey

is
5 K3 }1 O  `0 U4 T( U, W        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
  f& Z7 D  ]  D, @9 ~( m    machine,buf:object;
- l6 Z) |+ }8 \) d8 @do
        current.eraselayer(1);
( }+ X5 M. G& z3 ~& k/ ^1 k( T0 C7 r       
        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
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
, Z2 }2 W8 J+ W* A4 L" J3 |6 \: M6 _1 g                eventcontroller.stop;
  _+ s- t+ A1 j        end;
6 |2 I! d9 @1 `! V' m3 o       
' U; E7 t" [0 c. K, a  p7 N! Y        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  L8 [0 x; r* O  I  V        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 S7 b1 v8 R' y- H- p                machine.deleteobject;
6 `2 N: R% E7 O4 `& e. h5 E! W( R        end;
2 L  D0 q8 n1 s6 g        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
6 `% A2 I* S9 f( j( y                buf.deleteobject;
+ Q0 h4 ?0 T$ y& _4 e8 _# }5 i' e        end;
- b4 X; F" L; p        next;
' C! {, n- O$ Z: {       
/ _* R/ _& `- K5 h6 J        dx:=0;
        dy:=0;
0 G9 b0 B, t% h# b/ T        for i:=1 to number_of_machine loop
: |0 y0 x4 t' A6 U! Y$ ^( Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 A  o  i, Y' C                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: V5 t* E: V/ k1 F                then
, r' l" e  p4 @/ a( t7 |/ p/ k' `                        /*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];
# V' |& M( d! d/ n                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
2 W9 r" u9 _2 r* b6 I8 f/ p* V/ G. R3 V                        y_max:=y_max+dy;
                        dx:=0;
/ k: s7 j$ S- B& D                dy:=0;
                        --end;
: s( f( R; A$ w. L+ ~0 m                end;
  V$ k4 P. o5 ^& L5 B                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' Q* R4 ]$ n8 u+ ]+ A0 L/ ?                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;
$ I* l! I  Q6 L" ~- `/ S- J                dx:=dx+activityspace[1,rows];
) Y$ g8 H0 V5 K- F1 Q! ]- Y                /*if mark=true then
% c# w5 H  K0 Q( R) `                ct:=activityspace[2,rows];
0 C" W# i( k6 r% U* |. {* T0 G- |                        activityspace[2,rows]:=activityspace[1,rows];
* K+ T- }" q2 p; @: x3 t& z                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  A- \% a; L" b" V        y_max:=y_max+dy;
  ^: ]1 k* ~. E; `' {- L        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);
       
$ p& @2 u" o$ U+ b; f( Q. Y        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ W2 j* V7 t4 r% l9 |9 o' L8 i                        if j=i then
                                d_from_to_chart[j,i]:=0;
, ~+ }) _7 h* Z6 q" d                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
. ^7 e: b" D& s6 y# T                next;
        next;
       
        lines:=0;
        partstable.delete;
# D, y; C$ e% N* f  y+ x       
        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
, v  \. K, ?/ a- }# v                        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");
3 n6 O7 ]; p: D0 D6 O% y- G                        partstable[5,lines]:=rows;
5 F8 {2 I" d0 [                        partstable[6,lines]:=j;
& S) ]! _# L5 |1 a, v3 z) r                end;
4 O  E8 T+ J$ m: o8 i        next;
2 B7 L% I/ M% X; v        machinename:=sprint("M",rows);
8 I9 H5 J7 K: W* }5 h4 _1 [6 D( k        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;标识符未知
; C: a4 i& w9 H* j& o. ?9 N        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
( G* L, v. ?" g7 v" i        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 C& o, W9 J: d+ Z% 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;
7 M# s9 y- f1 z5 V3 o  r3 C1 H, z. V/ qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;