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

zooey

is
        mark:boolean;
% k! t3 Y+ v: Z( f3 }- W        dx,dy,ct:real;
1 N' |0 J# e; X! @    i,j,rows,lines:integer;
7 {0 U2 g  B0 U' v' ~  f8 |    machinename,bufname:string;
    machine,buf:object;
0 m2 T5 ?# P9 D  M2 C1 Z. ado
. F- @/ Y( u$ L( J: q; ]        current.eraselayer(1);
       
. U9 L4 X7 S6 W4 o        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
: Q6 W, K7 u9 B* h/ s; p                        print"yes";
2 j3 Q4 f0 t* ?  o/ z  |4 ?8 o                when 32 then
7 l' S  j" y1 H2 V+ ^                        print"no";
" \' S" D: J# V' E4 K                else
0 ~6 A& x2 j7 h3 X* r' O8 F$ o$ W                        print"cancel";
: ~" E  f! i$ B& b: F# P! W                end;
4 ]$ B6 _, L# R$ d$ t                eventcontroller.stop;
2 u7 F3 R* L1 N3 ?        end;
       
6 `! {* A  L" r* ]+ V- G        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 e, @4 x. {1 U( ~$ u' O; j! O                machine:=str_to_obj(machinename);
% Y9 o, B- Y; T1 s" f. y                machine.deleteobject;
6 f* W! c* n- A4 P5 \3 A6 r/ i        end;
        bufname:=sprint("BF",i);
, o; f& Z3 ]1 }, ?! r5 e        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ f# p5 h: ~2 R# f' Y& ?                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
' B# ]' v& d$ H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& I: m* m  ]: {( H1 \7 Q/ A                --mark:=false;
1 _8 n9 h8 }' |+ Y: w                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 l: m3 R: {0 j9 X0 k                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ |) ^$ L, U( n$ F                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
+ i* I) z2 @$ g: L                        activityspace[2,rows]:=activityspace[1,rows];
+ P2 l0 B) @# t1 C                        activityspace[1,rows]:=ct;
                        mark:=true;
2 Q/ }; U$ l7 D+ `% ?7 X% |! b                        else*/
0 ~* k: \: e5 _4 c! q                        y_max:=y_max+dy;
                        dx:=0;
; M9 M% L6 F/ m                dy:=0;
                        --end;
, i+ a5 L8 d  Y# @, L7 h                end;
. \/ N2 n" a! ]$ a4 y9 C                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) j& \% n  Y7 c( e+ i( p                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
) S" [/ Y6 K3 c  V/ F                        dy:=activityspace[2,rows];
' S; ^5 B; g; Y( Q                end;
                dx:=dx+activityspace[1,rows];
9 v6 ~9 t" i: l4 ~                /*if mark=true then
5 U6 @% o+ T. }/ t( W5 A                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) P3 u7 e2 q) x7 k! h4 A& ~                        activityspace[1,rows]:=ct;
                        end;*/
4 f$ J6 m- j% e  g5 q7 }        next;
        y_max:=y_max+dy;
/ b3 c6 F: P. g5 l% i        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);
5 T$ `5 x: {( i" |! z6 p        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);
       
+ {+ Y3 a4 ?; p& K        rows:=0;
/ M# l: Q" j5 w        lines:=0;
- Y9 X* U5 D  t/ \) `/ S! N        for i:=1 to number_of_machine loop
( N1 V2 h$ j5 Y/ S& g$ {! p                for j:=1 to number_of_machine loop
                        if j=i then
6 C* }5 B3 }+ k7 X  `3 T% R                                d_from_to_chart[j,i]:=0;
' D& W# F% V$ S: i: P                        else
$ X( |+ N, [6 s( ?6 m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- A$ a1 }, x" c; B( i. j, j9 u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 k6 T6 C$ p# N3 H                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 V) C- A6 m4 y9 d/ P                next;
. N3 i/ J0 [3 j- W- c1 W        next;
       
        lines:=0;
- D3 i# o7 z; E8 V* t2 @7 j        partstable.delete;
$ W# z+ f. e6 C) K       
        for i:=1 to number_of_machine loop
) f+ `3 u6 V  G2 U# Q9 @$ ]3 e" A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) m& r% l7 V1 S; b+ X, S# q                machinesequence[2,i]:=rows;
: ?( C  p, G) D3 X$ d                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# W, h5 X7 m1 `8 {9 E' C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 V3 p7 z; n0 K# X8 M  c" \* k                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
6 ]' H1 m- z( [3 y  R                end;
        next;
; c2 u4 B3 ]0 t+ N        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;标识符未知
$ W5 Q9 ~+ Q* G& ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, E2 _* T) n) _( o7 O; _/ t& l: L6 {        machine.exitctrl:=ref(leave);
* ~6 W$ p9 R0 j       
0 L9 s( _" ]6 k  V        bufname:=sprint("BF",rows);
& r& j( @: a& t* n8 {        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]);
; B) N( ~  V+ o8 \0 ?        buf.name:=bufname;
        buf.capacity:=5000;
1 ?9 I5 [* l: W2 k. u% O2 n7 K        buf.proctime:=0;
1 d( g$ L" Z# Y$ `: A3 j6 c        .materialflow.connector.connect(buf,machine);
2 [0 N$ H$ h. i, k$ m- j- |6 q       
4 D# m  K! j1 s. K- E        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
0 Z, f' T& Q" b/ Edy:=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);
, j5 b  \& n/ N' K0 U. Znext;
0 b$ w+ d0 Q9 r" ]end;