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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
$ Q" T2 p6 t  ]; m* z4 P0 x    i,j,rows,lines:integer;
  k( g" s* {' M8 ~    machinename,bufname:string;
+ N( M; j* j7 x& }: U+ e; K5 R" J    machine,buf:object;
* _5 @# k  I' A/ }do
        current.eraselayer(1);
& g3 v9 }! w8 \7 Z: A       
" ]6 N) g/ ?. X5 d1 {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# U' F: h' ~! B9 T                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
9 u, z& ^* o3 P$ H  l- {                when 32 then
0 ?# c5 \5 N2 W) |                        print"no";
; o: ~/ U9 _* c6 `( H9 c                else
; c" d7 J5 H4 q* q4 ^8 u                        print"cancel";
                end;
                eventcontroller.stop;
3 N4 A- W% c; N/ L0 p8 n- W        end;
       
        for i:=1 to number_of_machine loop
. f" p2 o/ y) g        machinename:=sprint("M",i);
* [% d# @  T6 |, o% _. i        if existsobject(machinename) then
. g. s% ^: l/ d( G                machine:=str_to_obj(machinename);
6 O0 T% k/ Y# D, J8 v3 S' Z                machine.deleteobject;
, \4 R% H% R' S* `! R) I        end;
0 y0 M: A' b$ k        bufname:=sprint("BF",i);
        if existsobject(bufname) then
+ M" t" E% M$ B7 c" m& O, S                buf:=str_to_obj(bufname);
                buf.deleteobject;
. P9 S, H/ K! P$ j  E7 k        end;
        next;
       
        dx:=0;
        dy:=0;
! s) ^% A) j0 b" T! r1 F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, F5 x& L8 Q6 S8 x( p3 A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ {6 \4 Y) R0 S6 ]2 l                then
+ U9 s5 ?( j- a" C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 S$ p- Y! b, i% V: i9 W/ f: S                        and activityspace[1,rows]<(1.05*y_max) then
) }2 H  v: ?6 C                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
2 i6 V# E3 B, l  H. c                        activityspace[2,rows]:=activityspace[1,rows];
' o' Z/ P! N9 D6 x                        activityspace[1,rows]:=ct;
                        mark:=true;
3 J# j6 o+ z1 v1 r/ D                        else*/
$ `) j4 j5 }' W3 {# `0 O: e                        y_max:=y_max+dy;
9 A. e; z; R4 I5 T: q+ A                        dx:=0;
: p/ w9 d3 D: B" O, |$ x                dy:=0;
0 h, K  |# F2 ^. @                        --end;
                end;
; v- k: W" F  a3 M* [' W' A( y- B9 H                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
' q' {1 e; L. V) _( i+ k3 W                dx:=dx+activityspace[1,rows];
7 k$ ]8 f$ n$ f' h7 a* @. q                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# }) S9 E+ w" e0 c7 ?/ `                        activityspace[1,rows]:=ct;
9 D( O1 R( N) l4 J; r0 J                        end;*/
7 w7 p% C5 K7 ^# l        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);
" x$ ?2 L, n) E6 j0 U& q        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);
       
6 J: c/ r4 a. }; m. x) u7 N        rows:=0;
        lines:=0;
. K! t8 a/ A! {) Y+ m" E7 a        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 a' c- r3 }8 t* r2 E: p+ [) m# O                        if j=i then
; Z1 M$ l0 Y2 o: d                                d_from_to_chart[j,i]:=0;
! Z3 }/ Z3 o! @8 x- c& f. y) r                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: K2 _- g( Q; i                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
. L$ P. a/ V. A9 |# P/ [, o& X6 }                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 ~2 o5 G8 c) Z: ]- n% R4 h                next;
        next;
       
% B! @3 v5 `6 j  }2 {5 Y. A1 E0 ~        lines:=0;
        partstable.delete;
5 t( _+ \2 U5 t0 M       
        for i:=1 to number_of_machine loop
$ \7 ]$ Q' m1 v6 t! B                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"));
0 I0 k$ q: r" F( ^9 R5 h& y: z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
  M/ X7 A* ?! r) z) G& g                        partstable[5,lines]:=rows;
( }! S1 A# r5 I) ?% b                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
+ g2 @# V* Y" w# j+ M% u, T$ 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]);
        machine.name:=machinename;标识符未知
- V' \$ O" H$ g# ~+ M$ o        machine.proctime:=5;
  x6 z- t; M: j9 b% r% t        machine.label:=activityspace[0,rows];
6 w. j  v+ r$ T        machine.exitctrl:=ref(leave);
$ L2 A  e- ~5 H, n1 }       
/ o; d; @, H" C0 n4 b9 P6 W- }2 C' X        bufname:=sprint("BF",rows);
5 L. S2 v0 H% p- e8 V% A        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;
6 ]3 a7 f4 `/ F        buf.capacity:=5000;
; y) `4 A, B. X' X, M        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 Z, z$ M7 J. ^" j$ M- E       
- K* A  ^5 Z* u( O        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 I' l' A) o% b# y" c" {  U, Ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" K' Q- N) H0 I' Y' C8 A9 Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
+ _$ T) {* ]& G( `' s) n