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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
! o4 m7 H" B2 ^2 J+ R/ O2 _3 B5 e    i,j,rows,lines:integer;
    machinename,bufname:string;
5 c; z" T1 _& ?, S  K    machine,buf:object;
do
        current.eraselayer(1);
       
' {( b' F$ y2 L( J  H3 l        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
# J3 ?3 @" n9 c4 n0 b$ M                when 16 then
                        print"yes";
, ^! |+ l+ I' g/ D  n' E4 J                when 32 then
                        print"no";
                else
                        print"cancel";
6 t, {& `+ Y8 D7 E  K/ N                end;
                eventcontroller.stop;
: a- ~# k/ Z, _, e: G$ K) o) i        end;
9 V; ~* C/ E8 v% c& \8 I3 k3 P9 o4 d       
0 d  l9 r" n2 A( J- E2 p        for i:=1 to number_of_machine loop
. h5 n+ w' Y8 _6 j2 J( ~6 p        machinename:=sprint("M",i);
4 L0 a" j3 i7 x5 `8 x% x        if existsobject(machinename) then
+ B' ^8 X, N+ p) [* @                machine:=str_to_obj(machinename);
                machine.deleteobject;
& Z/ Y/ f1 e1 O: w: w        end;
4 Z) I- X) I% o0 Y% `( H( Q3 V        bufname:=sprint("BF",i);
8 W6 ^' b/ h% g6 {' p8 \) H, T        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
; d" _+ K' C+ [. G        end;
4 X3 k' f& D/ U' R! V2 V        next;
( y! @" i3 _. p0 |       
# w' m! M& d' H& B; b5 Y7 Y5 o        dx:=0;
        dy:=0;
$ }( ^0 q+ u& w( m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 E5 o# x3 p  V8 b; z" `0 L: p                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ s% u0 j9 T2 L5 s1 ]0 o  V  {                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  r9 t& q( E% D& F- a( i% z9 s& {                        print activityspace[1,rows],",",activityspace[2,rows];
3 z3 o# H" Q, R5 X2 Y8 H                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 ?* o# X; b5 l# \" m1 \                        activityspace[1,rows]:=ct;
                        mark:=true;
$ S. {( @6 Z) a  G' v1 q; V, K                        else*/
5 U6 g5 W, [, x- K( q+ M3 D                        y_max:=y_max+dy;
! h+ `0 \! E6 w, E. K+ i- S                        dx:=0;
                dy:=0;
                        --end;
( u+ g4 H" W, b# Z                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& J9 t, ^# p3 e. }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* q) \; n7 X7 k. Q- s# C6 E            if activityspace[2,rows]>dy then
1 [  E: B" h- n                        dy:=activityspace[2,rows];
7 I3 ]; S+ f$ a% ^                end;
& @' h- J/ a' u3 k6 O! A                dx:=dx+activityspace[1,rows];
( d9 o7 j% \2 m0 s  ~9 t# w                /*if mark=true then
; p3 a: P6 M2 a) f                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. h; T$ q5 a: Y; H. T                        activityspace[1,rows]:=ct;
                        end;*/
        next;
! j( ]% ]/ I1 q& R9 I5 J$ |- z        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);
7 f; v! j; Q0 C. \6 _# 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);
       
5 R9 r0 @6 ~. m3 X2 b; `' m1 E        rows:=0;
        lines:=0;
  v' s  b7 a2 O% y4 R$ Y7 \        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 r7 k0 N  l4 ?  M0 S                        if j=i then
9 y. Q" P5 S* r                                d_from_to_chart[j,i]:=0;
2 ~4 o. b7 N3 x0 ]7 G- d                        else
1 p+ `$ K0 p$ v/ b                                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];
( K% t6 b# \5 O! c$ I) G+ \                                d_from_to_chart[j,i]:=abs(dx-dy);
9 e+ q  I3 g! j) F% x4 o  G/ B7 K  U                        end;
' B' r2 \" ]/ j. s6 G+ ^+ M! j                next;
! C: p- A" _. R" m3 F7 C, M        next;
       
: s% d5 f+ D3 ~" N* ]! H        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! }: ]! `8 R5 u  _* `$ w- C                machinesequence[2,i]:=rows;
$ s+ G+ J: G9 C                for j:=1 to number_of_machine loop
* R% f1 N/ @' |( ~* R' }) i0 P3 `                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 d7 d* N' U( C* r9 T& p( i5 |* v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
- N% @/ ^/ r% z  m- g4 q/ a: a% _                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; p# A7 n: Z9 C4 W2 h                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: q. q* U+ F9 w+ x8 @9 ?1 @0 P                end;
        next;
( n" c- _/ D% [! a* ~+ ], I        machinename:=sprint("M",rows);
  z# ?/ F5 H+ C! Z: e+ s2 ?( K  x        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;
1 G: O" W& w( F- A( N7 [8 q, N        machine.label:=activityspace[0,rows];
; p! O" f: J+ t; c: A  f9 I6 C7 i8 e        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
, D4 n- b' @! T' J        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]);
- R9 X2 c6 _3 k        buf.name:=bufname;
) Y5 Q. ?- Z! o( I4 r7 R2 \0 E% p! c        buf.capacity:=5000;
: u6 o% v. S; r& G) p+ w. I        buf.proctime:=0;
' E# I$ J# \7 b4 k6 z. n* k        .materialflow.connector.connect(buf,machine);
2 V0 D$ q9 S: S7 \; e6 I& p3 I" c       
: k5 v, B7 }9 K( F        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* E2 ~9 l; r/ U- J, Z8 y  Hdy:=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 e( p" Y* F7 O3 Q. [3 I( u