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

zooey

is
. @1 c/ J9 M! S7 V& Y7 S        mark:boolean;
; ?7 O/ d, J6 \% `: Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
: J0 S2 z/ e+ G) y    machine,buf:object;
do
5 l- j$ t$ t6 p4 x% @        current.eraselayer(1);
4 m  j. ?4 W: c: q. U3 I) |0 k       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' \& U: d) k. u; P                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
" d- M2 g3 S( f2 G6 I  O( H                        print"yes";
                when 32 then
5 y" }8 G) ?( L                        print"no";
* Y- m, u( Q) X+ z                else
+ C4 @# U4 o+ g9 v: ]                        print"cancel";
                end;
                eventcontroller.stop;
        end;
. u1 p  y8 H' Q8 U- m, U5 L' |7 U       
2 c0 I& [+ S* g4 r4 v2 e. }        for i:=1 to number_of_machine loop
. C* o  t% N' g: e2 m# S        machinename:=sprint("M",i);
7 r; {& |$ j: t7 I5 z$ ^( \        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  t3 P7 h8 b. c$ n5 c2 Y9 e) W1 C                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ k) K) c# N( ?0 L8 f6 F. {: w                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# L" [$ E  S& n0 J: {5 d9 k        next;
  c, F7 o# p. {+ H8 B' s$ E/ Q* H       
) y8 d# K8 J  N1 n6 {/ L( T: e5 {& j        dx:=0;
6 p0 c$ _* r" h/ b! t% s/ `2 B        dy:=0;
8 {% q( V( m; S( ~  a  g4 j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& A" h5 _* q  ~0 i1 t5 l, K1 n! a8 W                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. b: ~4 \% X8 b3 p% L' [5 {6 ?                then
2 W- w' x, d& H$ a' c; R                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; P. r+ O- K% B# g( d% X                        and activityspace[1,rows]<(1.05*y_max) then
2 T: D9 a! k2 `) c                        print activityspace[1,rows],",",activityspace[2,rows];
' p; _  w; D: T) ?                        ct:=activityspace[2,rows];
2 F; u% b; j7 K$ j                        activityspace[2,rows]:=activityspace[1,rows];
. C( [: g4 e, H                        activityspace[1,rows]:=ct;
" F5 d/ j5 Q. z- U! g                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ H& a" `0 k. t; d3 N) i                        dx:=0;
6 T" L- Q* Q; C                dy:=0;
                        --end;
$ h" ^! ~7 ^3 @% e( ]2 \( L8 v' h. P+ r                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];
& n. D3 y: c3 {* q" \* D                /*if mark=true then
                ct:=activityspace[2,rows];
' C0 x: a8 N' j$ v6 ]/ H2 x% R                        activityspace[2,rows]:=activityspace[1,rows];
  ]2 ~. R5 \+ z- I% D/ t# j0 {# M                        activityspace[1,rows]:=ct;
5 I0 u1 ^. \3 h& l0 E- z; b5 G( A                        end;*/
# d7 K" Z3 a* o# [+ h0 h        next;
        y_max:=y_max+dy;
7 L6 b) R7 |# W        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);
$ ~4 G7 D+ E3 C1 B1 ?; ?9 ^) X       
        rows:=0;
3 o0 S1 r4 t9 A  ?8 J6 ?& t" H        lines:=0;
) K0 r2 q5 Z8 M. X: c5 C1 \# E8 C        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
* d: i- j3 F( W8 o2 X# C                                d_from_to_chart[j,i]:=0;
2 C: ]* s' k/ I1 s                        else
! U0 N- t; d* [                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' ?2 l5 P6 D/ e9 D$ G                                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;
' b2 Y% k/ H, ]+ T1 H                next;
! D$ ~3 z4 e: a. c; ^3 `' l2 S        next;
       
3 g" e8 n; O6 T7 N        lines:=0;
9 s1 K8 q1 n$ @  `6 b" s  D        partstable.delete;
3 [  L0 k4 w4 c9 {* D5 ^       
        for i:=1 to number_of_machine loop
& ~( _7 Z- H8 v9 F                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
; q+ S# o# d$ E# L4 j                        lines:=lines+1;
9 b) N2 l, X5 B  q$ `7 ]% T/ h/ z5 L: I                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 F9 q, W" c& }1 X                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
3 B9 Y( u5 s6 Q3 i& t7 A        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]);
! G  d& D8 u; J        machine.name:=machinename;标识符未知
0 R2 C* h- O2 g+ P, Q  F6 V& M        machine.proctime:=5;
' u) W! F/ m! W* i0 g' O        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
. J7 J1 n" h* R: O7 S; o& ]       
* p2 E* s- M8 E3 b- `8 p        bufname:=sprint("BF",rows);
% Y/ Y8 m: l9 q& q0 C1 e. J2 B        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# k7 R( U/ x6 I+ d        buf.name:=bufname;
. z9 [$ U# Q; A5 u$ g& x0 T% F8 v        buf.capacity:=5000;
4 X: `: ?8 K: o, O        buf.proctime:=0;
& R: n' h" E" Y" }6 O        .materialflow.connector.connect(buf,machine);
       
4 q9 K& L2 ^$ z' g8 K  V        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: u( a' J3 \1 k: Y' i: ^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);
next;
end;
3 v2 `9 H4 n; Z( f