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

zooey

is
        mark:boolean;
* D1 {) U: ]  Q# m5 }* G: T        dx,dy,ct:real;
2 |. e$ s6 `7 k9 a1 c    i,j,rows,lines:integer;
0 c8 o( L, O+ _* N* D7 ]# E4 r) n    machinename,bufname:string;
    machine,buf:object;
do
+ d- u5 p0 M+ x  w; L        current.eraselayer(1);
# I( X$ |. ?2 q5 `2 w1 ?0 r) B+ Y9 ~       
0 r/ J8 q& P# q4 v- J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  O1 g; O- f/ A* B# K! z( c                inspect messagebox("设施数目不对！请核查...,",50,13)
4 ^7 J5 ~  @, e( R                when 16 then
% n6 r" I( U" Y1 J% M" a+ d                        print"yes";
                when 32 then
                        print"no";
0 [8 q6 P6 V/ _- g                else
                        print"cancel";
                end;
                eventcontroller.stop;
4 @3 X3 M3 h0 }2 [5 a        end;
       
        for i:=1 to number_of_machine loop
* W% [3 i2 O" _4 |* O$ ~6 p        machinename:=sprint("M",i);
# {  Q- q- y: |9 r5 p3 S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 A- t, l8 u9 m3 A; F                machine.deleteobject;
+ r7 O6 `, R  O( ?        end;
* @3 p) |# ^6 ^' P0 P2 w/ ?        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 m' _, J/ R8 |5 f                buf.deleteobject;
& e9 G  x# i* I        end;
        next;
       
  ]/ c3 I. {( P( i) z        dx:=0;
        dy:=0;
) P3 _# c3 d6 ]7 \+ d: G3 e/ N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 `/ ^% x/ I1 i- e# C" Q$ \                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( G! v+ e/ S' M) u                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 o6 E# S( u6 W5 A7 V/ L                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 @* P+ s; G  d                        activityspace[2,rows]:=activityspace[1,rows];
7 K4 T3 S* K; S" ]. @0 Q! ]* R                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
& d% f- Z& b4 h0 o6 {                dy:=0;
                        --end;
7 D# _8 B( f1 ~5 v; l) z7 k                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 C# {3 h$ A5 i! g6 k                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
  z2 R* J/ @- p8 U6 ]0 ^5 g                        dy:=activityspace[2,rows];
$ U0 @" y* P* o1 w( z; T                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) b9 E' s: z3 t9 {; e3 z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
4 W4 W) y  V( Z/ ^, v  C        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);
       
# P5 z: ~! }* b' S' v/ r+ _$ L+ {. @        rows:=0;
9 |# L4 p$ Q5 }        lines:=0;
4 A; v& s, q  }4 c1 D        for i:=1 to number_of_machine loop
3 ~! U& h% i9 N: D* u+ B: D                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
( K8 \5 Q/ N# N5 X3 W                        else
                                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);
4 S- t# V3 `9 B) o( T& r) {                        end;
: N! Q7 q5 O: T                next;
4 i+ ]. t! q# _4 i        next;
       
        lines:=0;
8 O3 L, V2 x) c4 F. p5 I        partstable.delete;
- D8 x& {- R3 H. S       
  S  g1 B- W1 l- M! j  x; R        for i:=1 to number_of_machine loop
  l  o8 a6 v& `, f# x$ G. ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- ?, J. J4 d1 J+ S: O; p1 M, I                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) }8 ?9 E' e/ P2 n                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ q7 q) p) S2 @                        partstable[3,lines]:=sprint("parts");
" L* b. T  T9 z4 L7 j0 z/ [6 R5 v                        partstable[5,lines]:=rows;
4 F; i. U$ l3 r                        partstable[6,lines]:=j;
                end;
$ y4 a" Y0 m- c" Y- ^  m' D% H0 w        next;
/ \9 D8 _! p% l) v! z        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]);
" x5 Z, |7 F: `' `/ \. x4 ]        machine.name:=machinename;标识符未知
        machine.proctime:=5;
5 j3 T# _) V; S$ A3 F( X5 N/ g( r' D. X# M        machine.label:=activityspace[0,rows];
1 j. x1 S% q3 h# K" ?$ ^  l' c        machine.exitctrl:=ref(leave);
       
" Y$ c/ H! h, o8 P  H. B! z+ J        bufname:=sprint("BF",rows);
+ p  x9 F8 N+ T7 K. t! f! n) }        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;
        buf.capacity:=5000;
. d6 O* I9 u" `: P        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
- c7 X, G8 ~6 C. d6 S0 ~% u; }( H: Q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 d  E$ d! m/ `+ A8 G. Pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
$ r: c$ B% ^  T. o* V4 k* ~7 Hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 b" @) R$ ^! [! d6 _# `" mnext;
end;
" M, `3 P& C9 N7 [