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

zooey

is
8 @+ j7 L9 a) x4 P" Y) @* p; }, L( c        mark:boolean;
2 s5 r( }2 g# {. m        dx,dy,ct:real;
    i,j,rows,lines:integer;
: @1 p" U# P5 U5 Z  i& k: f4 x    machinename,bufname:string;
, x% V  Q! B* j( X- K7 ^3 N    machine,buf:object;
8 H* b# S4 e6 ~( Q  Jdo
: J" k  Z4 f6 @1 z        current.eraselayer(1);
. m4 P8 P7 P: M/ o* M6 `       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 P* p5 A9 p! r# c. @. [  t9 B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
- _, Y/ r- y% H0 c% @$ \                        print"yes";
5 F9 f( g& n; n" G                when 32 then
                        print"no";
1 r" g9 X/ e" R# f3 u$ `9 S9 Y' D& I                else
( s; x8 c/ {4 y- r6 h                        print"cancel";
                end;
3 |9 {* N8 t2 S1 m6 ~, u- R3 ?                eventcontroller.stop;
& [6 c3 q7 \7 n! g        end;
" g2 ~. Z' O$ T- `0 O, ]6 F6 @" x8 C       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 u7 D/ h# W" y& n( G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
1 ~- Z- p0 T  H* d2 l+ W        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ K# c- h# F% h! z                buf:=str_to_obj(bufname);
/ \0 b: m3 C. ^6 I. D9 |, D                buf.deleteobject;
        end;
$ j. c0 N- h, H. A- t        next;
3 E6 k4 C( l- b* D" f  W       
) m" U2 J9 h% J! n        dx:=0;
        dy:=0;
( X/ q9 J3 l1 y2 |- G& Y4 n        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ }6 Q* F) P6 L0 X/ q) [7 X' ]                --mark:=false;
1 {/ z) u* s% z: H% N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  v1 Z3 D! o+ a7 @! W8 N                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 ?! ~+ A# P1 h5 n6 r! Z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 P3 q& ~" R5 B' z! g' b                        mark:=true;
                        else*/
- n8 d" k5 G1 E" \* ^7 |; c0 P                        y_max:=y_max+dy;
                        dx:=0;
2 k2 ]8 a; c2 c4 k5 w                dy:=0;
2 A- l( C% D2 \/ S$ ~; a6 A                        --end;
; D+ v, e* M  A6 P/ N- w                end;
                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;
                dx:=dx+activityspace[1,rows];
/ G" V* \& ]  _/ P9 B4 L- y" d                /*if mark=true then
                ct:=activityspace[2,rows];
4 f* m; o& W7 I& e2 e) b) C- D                        activityspace[2,rows]:=activityspace[1,rows];
! {8 t! i1 |* l2 f$ T( s) X                        activityspace[1,rows]:=ct;
$ [" @) ^: `2 M9 @7 l                        end;*/
& T* u* s/ u& Y: r8 @4 F& ?        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);
, g; x& Q3 v  g* X& x# w4 G        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);
       
2 q0 A! Z4 V3 g% {4 C0 l        rows:=0;
; m- m" O1 _/ U- \" c  g! y        lines:=0;
* N8 B# O: ?; n        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;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ S+ D$ `; ]1 \                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
5 b! y; w- s" H( E3 Y* }                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
/ ~4 }# Q. x, P6 x0 ?                next;
        next;
3 F' h; T- m' s" Q       
- ?% Z' {1 w+ P3 k  C        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
; {# w- a( h4 P                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"));
6 V5 T# {( d. r7 ]" D                        partstable[2,lines]:=w_from_to_chart[j,rows];
) ^" [3 t, v* c+ i1 G                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  p$ p" i, `( k/ x0 |+ |        next;
        machinename:=sprint("M",rows);
        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]);
+ Q4 {0 Q1 K6 n/ O$ e2 R        machine.name:=machinename;标识符未知
        machine.proctime:=5;
; i' ^3 b( e& p. o9 U5 o+ H        machine.label:=activityspace[0,rows];
+ E' q& E: H7 ~2 E6 I        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
, Y0 ~! e3 x+ {        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]);
. O( D/ z% ~# |% \5 E% s! P6 ]# `0 D# J        buf.name:=bufname;
. ^. ^8 l  p' n5 k4 }, [/ a/ T        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( `, p  r/ J$ f* q; x       
% S" Y" A1 a- f9 Q; @2 k- ~        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; h% z+ I6 P& O4 o- Z) P& `dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
1 \) y# c  |$ X3 F# \& g$ xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;