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

zooey

is
( _7 R* {6 W% X: b0 k        mark:boolean;
        dx,dy,ct:real;
& @( o1 n: N7 j# d' v  n' e    i,j,rows,lines:integer;
% B+ l: m0 @+ f    machinename,bufname:string;
" E9 l" Z: z( r/ _6 M    machine,buf:object;
do
- E. {: m8 i, w9 r- H9 c2 E! c        current.eraselayer(1);
+ i( V4 [4 L8 G3 d/ N! a! q/ C       
        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
; E5 M! b4 F6 \# X2 c" t+ G                        print"yes";
- f3 B4 ?8 r. }% E$ \                when 32 then
" e0 M7 L0 D8 {2 X                        print"no";
& Z5 ~8 @/ [$ c5 b                else
7 D6 _2 O( b. p& c5 r" `% A                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! `9 P1 A* {% |/ l% R% T) l        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 n2 N5 A8 O& Y9 i9 l  r        end;
* t1 |9 w' N! _+ {; u/ x+ ?3 R        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) u) k3 M/ M% l8 V! Q; O# T" I                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
& ~' V. o6 l" P, P       
        dx:=0;
        dy:=0;
, b: y, R  w; J$ m( `/ x* {        for i:=1 to number_of_machine loop
; C2 |6 d/ u6 c9 ^( g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 T  P7 C' D5 `& H$ u2 w" D) G; z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* G0 K  N; F* a9 h8 Z% A0 p5 X/ L                then
8 k2 X% @0 P- s1 P; I" j4 L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% e3 v- @& a  V                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 r9 O+ s3 B, J7 m- j. W/ Y" j                        activityspace[2,rows]:=activityspace[1,rows];
2 O& w7 q5 d0 |  y                        activityspace[1,rows]:=ct;
' W$ c5 m9 V% I# }                        mark:=true;
: T6 Y" ^- F7 b$ l% S& M( H                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
# x& A0 M( ?" p, f4 F" O/ t7 P                dy:=0;
5 B) d% p4 M/ q$ x                        --end;
! C# t1 m5 ?+ ~' g, t6 q0 r1 N                end;
9 q/ O- W, U" ^3 z/ k. I8 W                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;
0 W$ \) `# e$ u$ m            if activityspace[2,rows]>dy then
+ ]# n0 p$ q8 s- V  G! m8 v                        dy:=activityspace[2,rows];
4 z5 c, t1 b6 @' K) W$ P4 |$ D                end;
* Q& K& `$ S* R                dx:=dx+activityspace[1,rows];
  }, M9 x6 R! b% P3 m1 u( d% e                /*if mark=true then
3 t* @, U* O# y3 S& F                ct:=activityspace[2,rows];
9 t$ n* o1 J9 y) v% z6 B1 O                        activityspace[2,rows]:=activityspace[1,rows];
; V5 o" n% h8 `" A& }$ e1 S" }' x                        activityspace[1,rows]:=ct;
& a. ], i* S& ]6 a9 c                        end;*/
% u3 a# @( o! B3 T# ]5 g        next;
, b6 I' w! ]% k  g        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);
        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);
% j+ D- k  m# j9 _6 o! }" U1 l" l       
        rows:=0;
  Y" A& p: L- V' c' W1 j* [        lines:=0;
6 x9 }# u: }9 i& ?# W  M. f        for i:=1 to number_of_machine loop
9 V! l; E6 m0 z5 x( |                for j:=1 to number_of_machine loop
- A& O0 u7 S5 D% b8 h: e0 G                        if j=i then
% X# H5 ~' @# n( j1 G/ \8 U; p8 Y' T3 K                                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];
) I! b9 M/ \& v4 j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& I. W: s0 R9 B3 h! ?* n                                d_from_to_chart[j,i]:=abs(dx-dy);
- K: w( I; L) ~. _. B" Y% o3 z2 T! B                        end;
                next;
. I! O. \; n0 ?        next;
       
" [" o2 ~( n/ h$ a+ x, a3 V- J% q        lines:=0;
        partstable.delete;
# N$ O& Q0 y3 G       
& T* }( N6 X' b6 o! q( C2 Y- |        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 f. K. H  E4 Q0 J2 U9 l) Q# i                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ }+ u$ k% |0 ~  g3 M( e% F7 Y                        if w_from_to_chart[j,rows]>0 then
& f! g1 ?7 D9 q9 A% J  |                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# r' i5 O% A, @1 _8 ^3 s7 B                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 H: Z* y2 S- e                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: P% ~) b9 H. k9 Y( f8 C& \                end;
3 Z% L- o  p/ }; A) s; P        next;
1 B! }4 S& _6 H) q/ r, u' |        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;标识符未知
& Q$ i* E2 Z" m2 D1 c$ T5 v8 J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
5 r+ S, w4 C4 z9 U* C* w        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]);
8 P; C6 }/ U  F9 J        buf.name:=bufname;
- a0 S, n- Q- G! J8 A        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
5 A& j; J& U7 @& O' m1 p        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  n3 M  A* J% E4 N+ G( \/ Ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* R3 W! N) D. a1 S2 e: Fnext;
) I' y, N2 v; ^7 b1 {( Bend;
, K2 A' C3 L; ^8 n& W