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

zooey

is
& q; l: g9 ]! D% @        mark:boolean;
- [/ ]/ }4 m' ~& ~: e8 C, I* [$ E        dx,dy,ct:real;
/ y$ _' O( J: z  C' _( ], S0 [    i,j,rows,lines:integer;
- D& @  A4 b% e6 N    machinename,bufname:string;
    machine,buf:object;
$ g6 l# `8 X$ r  g( q6 S1 E3 kdo
        current.eraselayer(1);
5 a( ~1 H( u! j$ f! @, t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
/ j' c2 D) `0 Q7 d: C                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, i3 D2 V6 l+ y                        print"yes";
                when 32 then
                        print"no";
2 q+ R" r$ ~# r                else
                        print"cancel";
2 I: X$ S0 Z! @( l& b! ]$ w/ n                end;
                eventcontroller.stop;
' ]+ y* w+ G+ W  G1 Q        end;
/ @& L: P! b: {: C6 X% v       
! w/ |& X( L* K9 y9 z0 N3 V        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 m0 \5 S. F+ v+ {. A        if existsobject(machinename) then
' h2 _. @, |5 u. D, B) {: E, R                machine:=str_to_obj(machinename);
$ t- ?' H1 p5 s, j9 i                machine.deleteobject;
        end;
9 c" m) K/ J* D0 }        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% G* O( J7 f& b' U  |) d                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# c! r5 A" v4 S0 P$ J! W. l$ s: _        next;
       
        dx:=0;
        dy:=0;
6 {3 {$ ?# }% V  W; A% x. F        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! [( Y' L$ Z# p5 L% J* Z0 ?                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 P  P, @( ]8 o$ M6 }1 f# ^. }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  ?: `% D* ?: `4 w. ?0 ~                        and activityspace[1,rows]<(1.05*y_max) then
% q3 M3 j+ @" y/ ]( J- m0 }1 h                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
  F# G) C" f  r! i, Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! ^& ~  x- k9 D; w7 H, k$ \% s& T                        mark:=true;
6 {: d* H4 W2 v8 b                        else*/
" u6 N# Q6 ~( A2 {% w* y: n. Q                        y_max:=y_max+dy;
, R* o4 Q4 w) F0 l' C' A8 r) s8 X# f                        dx:=0;
                dy:=0;
/ t& Z7 \# O) D1 P2 ]0 S                        --end;
                end;
5 t% H# d% d; n) R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( ]6 e+ M+ g, L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 b, k9 o4 l6 a* y. o8 I            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
: q7 v8 n9 z4 X* h                /*if mark=true then
; @! e; p- \+ R" v% W" |5 k                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
# g* J, U+ Z  b; d$ r        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);
- ~/ p4 V& q& x+ b# ^0 G5 ~9 ^" K6 Y        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);
: [* r7 f6 D( D9 l- o! s3 A) l       
        rows:=0;
. q; Z1 K9 }: f1 c. d        lines:=0;
. p1 p4 }  {7 T# h        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
8 c5 b, k7 p+ h3 m, u! t% h                        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;
                next;
        next;
) J* c1 D1 W: Y9 F, K1 h9 x8 G; A       
        lines:=0;
        partstable.delete;
       
        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
' z3 j% D& c4 \% u& B, n5 [                        if w_from_to_chart[j,rows]>0 then
! X1 }* o; f$ H                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) f1 B0 u  q2 Y. K" c& N                        partstable[2,lines]:=w_from_to_chart[j,rows];
( D9 v8 ~& i2 L4 I6 O* p* [- R, X                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
7 D2 G! G5 O: F+ P# |9 s, r4 n        next;
        machinename:=sprint("M",rows);
4 r! M: J$ [2 X5 L' f7 Y& I0 v        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]);
  Q1 k; U+ Z5 b3 l0 s( W        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 ]) E/ @/ \' v9 K        machine.exitctrl:=ref(leave);
       
. `0 O3 p# E1 l* |; L. B3 E/ n        bufname:=sprint("BF",rows);
! p, d" c9 d# @8 P$ @7 Q  n        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]);
0 N6 c( I) W5 |5 X1 X6 W        buf.name:=bufname;
/ Z1 e% z% P) t6 e        buf.capacity:=5000;
% `2 Z3 {" {4 Z' A" T        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* b: c1 Z/ U' N       
! ?, h8 h( e; F  V- B! y, p        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; \1 @* H2 i% j" L5 D/ r) S  A( ]dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 X/ T. M7 c! ^( l% F4 u- Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
8 P( g! `8 i9 d: `