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

zooey

is
        mark:boolean;
- X/ l! E; T+ z0 w7 {        dx,dy,ct:real;
    i,j,rows,lines:integer;
( l: N" @$ q( H3 [2 e; {6 `7 h    machinename,bufname:string;
. A+ [3 F; |; q8 F# m8 p4 s3 f: Z) s    machine,buf:object;
( R) k% K% o: W7 j" u2 ]6 Mdo
9 l$ |; L+ X) Y* `! N. n1 j( C        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' y4 H) U6 C  b5 l" c                when 16 then
2 D3 e- e) p4 q" s                        print"yes";
                when 32 then
/ j+ F5 S( W5 f: G# [                        print"no";
$ g$ B' o& o( S7 q                else
% W0 B' H6 k5 J6 |  j9 q                        print"cancel";
                end;
4 {' Z% ~$ x5 b                eventcontroller.stop;
        end;
* m. f2 [8 V: x5 B" s       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
! X3 B5 o' \4 m* f7 i                buf.deleteobject;
+ a9 `/ M- M  h, }; j: B        end;
% D" _! a) G* V" `0 y0 B5 T7 z4 P: p        next;
4 h7 P; x( d  X! I5 n( n       
        dx:=0;
) P5 p1 `' A& H2 ?        dy:=0;
        for i:=1 to number_of_machine loop
' d  i" [' @9 b( X                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
. w5 x  U8 H" s4 s  Z, m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" f4 b9 W0 i1 U) v# N# x                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" j6 t  n0 l7 `1 O. L* b$ b7 I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
  B+ N. H; l1 w0 e* F) P2 Q                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
: m  t: p" y, K# q" j4 E                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];
" u6 G+ `" y* J) K9 c) G  y                end;
                dx:=dx+activityspace[1,rows];
  e; {" z+ `5 q6 g7 M                /*if mark=true then
                ct:=activityspace[2,rows];
+ A2 U7 Z+ F- v! b6 [6 M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
4 I: w, e) m# o4 G, D: ~2 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);
3 P2 s4 t! i( D  p/ E        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;
# l1 Y2 s) @, B) f: _; {        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
; j8 |2 s7 c/ _- Q                                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];
                                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 }* B" C, q! f6 y                next;
        next;
       
0 E/ l! s* E/ ~        lines:=0;
& W1 H8 t. E6 w5 i% n; b        partstable.delete;
) ]6 V3 `9 N& g# C, a       
/ z" q6 [' q5 l/ d: e        for i:=1 to number_of_machine loop
& l! Q1 |8 _# @" H4 d) w2 A5 F. [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, P4 W" p6 A2 i: C                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"));
! d( w0 R$ q& R                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 V" r% f- f4 ?2 f# d& y  _/ F" |& G( _2 L                        partstable[6,lines]:=j;
* j; }  u3 I) i                end;
( r% S& |+ c, }$ n        next;
1 x: Y* n6 Z  m7 I        machinename:=sprint("M",rows);
( n- F; _& H4 M        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
( p; w5 u' o/ k" L        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;
, [- I" i+ X+ S# z        buf.proctime:=0;
! M( P- i; P/ u" T  \3 c' C% d        .materialflow.connector.connect(buf,machine);
( C" X4 _/ m( s& j8 j. {       
* S9 F. a5 {( W# F) @        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);
* d" n* ~' j% i/ ynext;
: s0 x/ C- |% ~) H+ {3 U% ]end;