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

zooey

is
        mark:boolean;
1 d' U% h2 h  E* \  m% |        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# o7 |6 K8 t( C8 i, q4 {do
6 V5 Q7 ~" _& o2 w( S7 h        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ X$ S  t5 T0 P$ K+ g  j  m                inspect messagebox("设施数目不对！请核查...,",50,13)
2 K3 f- m- `' c) g                when 16 then
$ r# }! O9 }, Z                        print"yes";
                when 32 then
                        print"no";
) B6 ]6 R3 Y8 K7 W5 @% Q3 u- P% G& e6 |/ e                else
$ t* L( d- x* L& P" M                        print"cancel";
                end;
  r" |' L1 ^3 _9 w                eventcontroller.stop;
        end;
" G  ]2 J# q; h( W, @       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  i- }3 @5 g: @" }4 m7 G; G- j        if existsobject(machinename) then
* y2 J7 S5 f6 j. C( Q+ Z7 C; Y4 u                machine:=str_to_obj(machinename);
/ I2 A1 T6 }% A( C. v* [                machine.deleteobject;
- c/ X8 |( J4 G. A, X+ n! U9 L. ^        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
6 X+ A0 A1 e& L       
) [  W- X1 |% i. }- O8 o4 l& [        dx:=0;
% g! s) G+ F/ s2 K; X' F. m        dy:=0;
        for i:=1 to number_of_machine loop
, H, M. _9 O9 Y+ U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: {( @. F, P7 Y, W# v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. l! h! u3 w7 ?6 P                then
; F/ y" F7 r, U  F0 ?# F" @                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% _0 F# G8 O8 u- `. ?: s/ |                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
- N2 N9 F% @( y9 i" I( l0 q                end;
: M& @; j* }1 T$ M                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ N3 ]6 u( ?! {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: z0 v- b9 D; I6 q0 ^. c" f            if activityspace[2,rows]>dy then
' l3 D0 d- n" @+ g# M# V                        dy:=activityspace[2,rows];
                end;
4 m, U  n& a1 M( o7 }1 l  u                dx:=dx+activityspace[1,rows];
, D) U1 I8 n1 Q6 g: Z                /*if mark=true then
                ct:=activityspace[2,rows];
" |0 P$ c! `; H  [! S" N6 p" n# A  N. }                        activityspace[2,rows]:=activityspace[1,rows];
8 t% ?& b( M0 G; W/ M& h                        activityspace[1,rows]:=ct;
5 a* C9 b% {* ~6 p  f2 G. s/ \4 t                        end;*/
; M5 I+ u' o# e        next;
" k3 W) B' x2 C" Q5 |        y_max:=y_max+dy;
- U, W9 B1 C: Z        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);
. |: e5 d  I1 m) e8 d        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);
       
        rows:=0;
        lines:=0;
- M7 X# L. m7 o$ X% N% }        for i:=1 to number_of_machine loop
) u4 G3 w! u2 `" g- L; t                for j:=1 to number_of_machine loop
                        if j=i then
; [  I3 o! ], [/ C- _                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 ~' j) V/ d( Z" G' V' B                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( \) A. _- o" H, R; T                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
' Q. ]& C# i7 L8 `' w& Y                next;
, v+ p* F3 Z- q' ^        next;
       
1 C- V5 y% u% V3 b9 s, C- W        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
( v& s% T' M& @0 a4 l9 ~                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"));
# T$ D  M. l+ {; P3 ]& C- y                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( l6 [6 j3 ~8 J8 C, H                end;
  r9 ?. Y( Y; a1 \3 |1 T" `9 K# G        next;
        machinename:=sprint("M",rows);
7 L2 S8 J2 i( T/ i: w' 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]);
8 M0 |% V  y" T* h$ O. N        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 v1 {" g7 T  \- l% ]        machine.exitctrl:=ref(leave);
* C  @% k7 z1 D6 Y" K       
        bufname:=sprint("BF",rows);
) l% q$ {: Y0 }6 C1 }        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;
1 s9 H8 ^" j5 S, q9 ^        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- u" E) f. g& L& X4 \       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 Y% L4 `% Z: q( z* Z8 u$ E+ mdy:=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;