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

zooey

is
& F7 Y! ?3 V3 E4 {* D% ?: G) V        mark:boolean;
        dx,dy,ct:real;
: y7 ^. C2 Z" ~2 _1 T( R+ V2 J- [6 N    i,j,rows,lines:integer;
8 X1 H- i; J& h/ \, k    machinename,bufname:string;
" t9 r: Q6 |4 w, }1 R5 G    machine,buf:object;
do
        current.eraselayer(1);
* |5 s! F/ _. _       
# }, s; j$ }2 M2 D        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 w, P2 L9 n1 ^( H1 h6 T; Y                        print"yes";
, Z  `, W' n0 Z! n) f( X* z                when 32 then
4 \9 A# C/ C/ z7 k                        print"no";
                else
                        print"cancel";
! V* v: C: i  w4 }                end;
! V3 c/ j) y9 n$ j                eventcontroller.stop;
/ r/ K2 t. C" M+ h( L        end;
8 F2 \2 z, N% N: Q       
        for i:=1 to number_of_machine loop
3 k6 U- Q0 ^3 F; q' B, r4 c        machinename:=sprint("M",i);
7 J% j3 M. F% J% S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 O# G. i) `) J/ I+ y                machine.deleteobject;
        end;
, I* _  R; K6 d+ x- q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, ~8 w! S& y& t; H( B$ T                buf:=str_to_obj(bufname);
                buf.deleteobject;
  A, W! L# ]: ?- K- s3 ?; ~5 V        end;
& }# U1 f) x) D; }& m+ ^        next;
( p0 L7 n" ]6 h5 P       
        dx:=0;
7 I+ @4 R& t! L8 n7 L        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. \- l/ S# d! q7 P: m                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# R+ l$ N% k  L+ s9 k- n$ x                        /*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];
5 A( T' \; O6 ~8 S. G% k: @                        ct:=activityspace[2,rows];
3 S  X+ q  F6 O                        activityspace[2,rows]:=activityspace[1,rows];
$ R. \. n& N' T* k$ j                        activityspace[1,rows]:=ct;
- p" C! C  d2 O4 W, L6 H* O                        mark:=true;
                        else*/
1 V& t" B% P6 \! I# a; G+ \                        y_max:=y_max+dy;
                        dx:=0;
! w/ Z: N0 d) \% F                dy:=0;
                        --end;
8 O8 \! d+ w* Y+ q' F                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' K- d5 x1 A% M0 K+ M9 R; x                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
( g9 M' b" m0 A8 r7 V$ H$ n                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" D. V6 U9 q# I+ U0 E. ]/ F; d8 q! F                        activityspace[1,rows]:=ct;
; l! _+ \# F% s0 O4 H; J                        end;*/
& k% i: ~0 {' d! _' Y5 H2 ?) h        next;
        y_max:=y_max+dy;
2 \6 [1 d8 X$ b0 [3 V/ p        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);
        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);
% l" s" I. z( R% p# b. c       
$ u) k& u6 E, q( R# T" Z! y        rows:=0;
, [6 W: |% s4 E  r        lines:=0;
        for i:=1 to number_of_machine loop
! p0 o2 {% U9 l8 P                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];
                                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;
2 [7 x8 p+ @; ?9 }6 E; Q6 s6 k                next;
        next;
( R5 ]6 k- m0 f& A' j/ L% l       
        lines:=0;
        partstable.delete;
       
8 W/ u# i4 L3 ~2 i/ T* i! O# l        for i:=1 to number_of_machine loop
9 D! U: K+ O* E$ v5 g, M4 J5 s% y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% b' N' d: d( L9 _& K  v5 h: C$ P                machinesequence[2,i]:=rows;
% H3 S: O( x! E5 ^0 V; W% ?                for j:=1 to number_of_machine loop
4 \2 u6 F6 y6 i0 u; Z; A/ G. [                        if w_from_to_chart[j,rows]>0 then
9 g& M* m1 y3 [0 A$ h6 O% h6 a8 p                        lines:=lines+1;
/ t  j* q* c2 K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  ^. x6 G; I' h+ D: w                        partstable[2,lines]:=w_from_to_chart[j,rows];
' F* G5 D) N+ T5 T* b2 S                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
6 O8 H! \% k: x3 H1 w$ C# W4 G                        partstable[6,lines]:=j;
+ p8 b/ D$ c: ]! B: W                end;
1 y' t& g& Y" k        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]);
        machine.name:=machinename;标识符未知
4 f( _$ [7 o- i, R7 Q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" E5 \0 h5 d2 [' v1 P) d" n        machine.exitctrl:=ref(leave);
4 _; I8 I2 R4 w+ O( k1 p# T' c$ A. S       
3 ]/ I2 G* R8 J# x* s        bufname:=sprint("BF",rows);
) P5 T1 w% x0 B$ _$ y. g: ]        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]);
' R% V2 }3 Z& O1 p        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
! u8 I' _+ V' N        .materialflow.connector.connect(buf,machine);
       
6 ~+ T: Q. u7 W5 b        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 X( }" s0 R4 Y/ U% 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;
0 p8 `6 m& H* N2 M+ `# q# x( [0 b1 x# yend;
& q8 `) F6 k/ ?: h) S) {