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

zooey

is
        mark:boolean;
) E+ r" {1 g3 x( l        dx,dy,ct:real;
9 B0 {6 i4 {) k: y% j    i,j,rows,lines:integer;
    machinename,bufname:string;
7 e" u4 Z2 }6 N+ t0 _) Y- K4 I    machine,buf:object;
3 `+ U0 v4 e; m3 Qdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! m+ a3 e4 N( @5 |7 t8 Z4 J                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
4 o/ N; n: D: k$ k" k                when 32 then
                        print"no";
) y7 ~" u1 u& s' |- g                else
- s7 R' K' W+ C  P" o/ h                        print"cancel";
                end;
: c0 o; v) [& U2 V. ~/ a# d                eventcontroller.stop;
8 v+ p# t) n$ G, E, n        end;
. B# \7 |3 O5 P( k4 h6 T9 D       
+ w: u* O4 P6 e        for i:=1 to number_of_machine loop
' s: h) V7 y5 J" ?        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 {5 a8 ]1 b( P8 _2 @# _                machine:=str_to_obj(machinename);
- T+ R' @, G4 {1 H                machine.deleteobject;
        end;
) U. g) y! H3 X  e) h) l% I# B        bufname:=sprint("BF",i);
1 ?& W: a. @4 y        if existsobject(bufname) then
1 v% c2 [4 C$ O0 n. P) y( W                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ F. z3 ?& z; f  E" G        end;
        next;
       
" {. T& }% `. k7 d2 D, [4 |        dx:=0;
! J6 [" L  r2 w& K: Y7 ?4 B1 i        dy:=0;
        for i:=1 to number_of_machine loop
3 y- `# \1 k; G# g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ u$ j' ]0 I  X4 p( ]                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ K; m9 s/ E2 s* L# V+ K. w( l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( M% p$ v. F' i. F% ^% {* K# Q                        and activityspace[1,rows]<(1.05*y_max) then
& s1 k" E" Y& a1 n7 w* |3 X: v                        print activityspace[1,rows],",",activityspace[2,rows];
0 y$ [1 j4 i$ o7 c5 W                        ct:=activityspace[2,rows];
, F* P7 S* S# [" B( n# F9 |- E                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
& U" G* v: U# z) i$ E& N                        y_max:=y_max+dy;
                        dx:=0;
/ g9 k7 `) S$ P                dy:=0;
                        --end;
                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;
8 Y2 ~2 r9 n8 H+ [4 y. O* U            if activityspace[2,rows]>dy then
& x, W+ _; e0 P& N9 c                        dy:=activityspace[2,rows];
! J6 O, |% c6 N                end;
4 ~2 R2 P: \# L/ U# l0 O% C% Z                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 |( Y" j$ e/ J. N6 i                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ I0 o) Z) Q% D3 ^+ S                        activityspace[1,rows]:=ct;
                        end;*/
        next;
0 M+ l3 c2 y- f) I* T        y_max:=y_max+dy;
; Q7 z' T4 J8 ]7 a        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);
       
        rows:=0;
4 g: x$ V! v( m! n        lines:=0;
! m+ c5 x! q2 r* ^; N        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
- T" U! p0 }: F8 j: B' ~& y                        if j=i then
                                d_from_to_chart[j,i]:=0;
: {0 z3 n: h$ h4 Q  @; L                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ Y+ l1 w( `. k+ ]# a+ _. Y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 M& g# V9 o0 q% |5 p. _                                d_from_to_chart[j,i]:=abs(dx-dy);
* T8 v3 \$ X3 A. q% D; _7 K- r                        end;
1 r2 z. m" v* w                next;
        next;
9 N* y- C* _5 f) h4 S/ K5 t9 X       
        lines:=0;
8 I. X# v4 }$ H1 w6 R: b" V8 D        partstable.delete;
       
3 H$ L: J3 E7 o3 I) n; m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 D* E; F3 ~) B& l                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
5 o8 @: p. E" r% I) |& \. V                        if w_from_to_chart[j,rows]>0 then
& E& N7 T& q) N) {: j$ @. ~0 {                        lines:=lines+1;
# i( I  Z* `( P% H9 g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
# L! b" k* c7 B+ Z# r) O2 l                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
2 y6 _4 s" R: q        next;
* V, r$ u  k" M; c% p3 h        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]);
! J, W! f# }4 [! P. y' T        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
; u7 ~) h3 s! v8 k: M* n0 N) h! t3 s        machine.exitctrl:=ref(leave);
- P: U% m; O  H5 t! Y5 F) ]; c& F0 o" y       
        bufname:=sprint("BF",rows);
        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]);
        buf.name:=bufname;
* W7 E; m4 `2 b/ ]9 `        buf.capacity:=5000;
        buf.proctime:=0;
6 S# b! _$ o5 p. G        .materialflow.connector.connect(buf,machine);
       
        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;
" Q1 J/ H, j. b2 t* l# ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;