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

zooey

is
        mark:boolean;
. V; O- \5 _% E% E$ {$ ?1 }        dx,dy,ct:real;
& ]4 B8 ?& Q& Q+ Q! {7 _    i,j,rows,lines:integer;
    machinename,bufname:string;
5 @( o  w+ X6 ~8 M& l% r    machine,buf:object;
5 }( G3 \8 e: Z$ W! H5 [; S# j$ Rdo
        current.eraselayer(1);
# I. L0 b! d; h( G       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% T" f! S: m* r  M3 k( B2 o# x                when 16 then
                        print"yes";
                when 32 then
+ n7 d9 v. ]2 S+ a$ I" P4 q                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& X2 V: v" x! ]: \' F9 c        machinename:=sprint("M",i);
# b: J. C6 g  }- r. A, K        if existsobject(machinename) then
! s6 s$ A! P+ Q3 J8 A0 s                machine:=str_to_obj(machinename);
1 P; Z9 l: K5 \                machine.deleteobject;
        end;
9 `& ], K0 e5 p        bufname:=sprint("BF",i);
) S- H( @1 H% ?; u        if existsobject(bufname) then
+ j7 x) j5 y. x- x7 w, y                buf:=str_to_obj(bufname);
- f! f' j# [$ K! F, l9 K' r                buf.deleteobject;
        end;
. _2 s& r  V8 K5 K  ~. L$ p        next;
8 u4 j$ E/ }: n/ T       
        dx:=0;
8 C& ]- }5 ^: ]: |9 y        dy:=0;
        for i:=1 to number_of_machine loop
. ~/ A1 y5 C: {( Z5 L4 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*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];
' ^2 ]$ P- W$ I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 ]( p$ \. b3 u0 n" p' q, c4 C                        activityspace[1,rows]:=ct;
+ ^% C0 n; K# ]6 i$ E, t  ^1 A& |) e                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
& z2 J% p, }! p! a5 W                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. }1 P7 D. B3 ~8 }                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 Z9 t. X5 s) [9 g            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 A( [8 e6 j7 R1 }0 Q                end;
$ G7 c7 j; w8 o, i                dx:=dx+activityspace[1,rows];
3 M6 m, d2 g2 [% e% D- I7 M                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' [$ D  |- m0 D) |# p1 O' R$ ?* ^& L                        activityspace[1,rows]:=ct;
) ^; P) q$ S4 ?' v                        end;*/
        next;
1 J3 K& ^: a: g. Y        y_max:=y_max+dy;
* ~$ J- [2 P2 u  d% S( T" ]        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);
( \( P( N' l9 _7 p+ [) U, l4 I8 ~        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);
- A  C; x: z9 e       
        rows:=0;
        lines:=0;
" H# b( o7 X! Y8 n  V        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
" J# P+ G. ?  t" d3 \                                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);
0 r- |1 Q  F) h+ g. D  t3 K4 F                        end;
                next;
        next;
       
3 G2 ?% i% ^1 F        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* {2 [2 V+ ^6 F2 p5 V: V$ b- H                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. B2 u$ B* j7 H# M7 r9 k                        if w_from_to_chart[j,rows]>0 then
- `" `8 u( l* M7 _                        lines:=lines+1;
# B) N% o8 M3 u2 C4 ~& \1 Y0 n                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. h* t4 _- ?' _% S* x3 G                        partstable[2,lines]:=w_from_to_chart[j,rows];
" s& [/ Y' i# G# X+ X  C6 k                        partstable[3,lines]:=sprint("parts");
( Y- Q9 W. T% A  J$ S                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
5 Y2 R: L0 x' i        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;标识符未知
* ]( i# a/ @; A( N        machine.proctime:=5;
/ R: k, I! s# f. L: c) a. {        machine.label:=activityspace[0,rows];
- T$ E, ^4 G/ `) D        machine.exitctrl:=ref(leave);
( [4 y- a+ m$ G; T       
        bufname:=sprint("BF",rows);
4 n' z* {1 E! z: f0 ^. T; l! Q        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]);
2 f( p9 ^$ Y: `. }4 B# s  L' a        buf.name:=bufname;
        buf.capacity:=5000;
. C/ i  e4 _7 e, d' \. W        buf.proctime:=0;
* Y8 M/ ~( z- J$ G8 t* ~        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) e6 P/ [! j& s% Kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# n) z+ b$ u# A; kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;