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

zooey

is
; J5 }0 w9 c: y* L( ~        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
) W6 N( W8 E4 \do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, @* `5 y; v6 _  D/ W! L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
' x$ G! f# S% R- s6 R                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
- j( [8 U' Q8 d. x) ~                eventcontroller.stop;
        end;
0 a" l0 n8 Y' a( l0 l$ M       
, D5 Y$ ?$ ^9 a& N2 s2 ~) e* d8 d" A        for i:=1 to number_of_machine loop
/ L- W2 S+ N* u0 j8 C5 x        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
) T4 h: ]* V; t& u! l& n' I        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 ?8 f/ J, l; \                buf.deleteobject;
        end;
        next;
. D) b6 k! I& {* j* x8 I       
        dx:=0;
+ I+ U7 k8 W6 H- |2 ^; ^# {% d' @        dy:=0;
        for i:=1 to number_of_machine loop
  I+ I6 K1 ?' Y! u6 P: y" ^2 j7 W. A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& F4 Q( L; u. s& G                --mark:=false;
7 k2 ?: O, H, S2 e6 L, m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 M" A' L& v0 s; N& ^% \/ \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; T3 d' E  t5 s2 c6 F) y                        print activityspace[1,rows],",",activityspace[2,rows];
# N, z8 W% Y) c8 N6 s                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 f; F# l3 i1 ~$ v0 k                        activityspace[1,rows]:=ct;
. ?5 u: Z$ @5 ~) t% ]6 C                        mark:=true;
7 }6 J9 P3 H$ }- e* J                        else*/
                        y_max:=y_max+dy;
. W/ z$ z4 E7 ]5 u# A                        dx:=0;
: M9 i+ a; U: u                dy:=0;
+ B7 @, x5 B- G7 w& B& O8 J, v& O                        --end;
8 o0 j) s: `2 v& C2 A! g                end;
2 Q. J; \4 m* \9 l7 o6 I                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;
, F: Y$ @9 n5 H2 \% p/ n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
$ U9 b2 I4 N2 T  H. C1 K: j5 X$ N                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# N" s/ x: z- l  s5 n' D8 f7 A                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ ^/ a! c/ j% O2 d  W" v) R                        activityspace[1,rows]:=ct;
# B! A' I( T9 I2 X/ j                        end;*/
        next;
2 V' ?- y1 z9 a+ e: w        y_max:=y_max+dy;
  {' b: T' _1 c" X7 c        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);
/ T7 a) U$ B) u$ a5 p" O       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
" n% |- h3 v& ]1 N& C- P                for j:=1 to number_of_machine loop
                        if j=i then
. N7 Y+ p+ g9 W4 D5 p7 I                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 K& j7 k" X- X# L2 }, P/ ~) V                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
3 O  }1 z% p" U+ r( }$ |% Q        next;
0 s& x# Y, w9 x* m; ?       
        lines:=0;
4 E& i9 `6 T' C6 x* z0 v7 z0 U        partstable.delete;
0 Z4 [- @, O# E& C7 t3 y5 w       
" I$ n0 i# J  D4 \7 d, z1 H        for i:=1 to number_of_machine loop
, |3 U) k8 ?5 v4 j0 s, Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- z1 a" ^) Q) r0 ~; {                machinesequence[2,i]:=rows;
2 }% d8 r4 k3 D2 H' b# I                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' u9 q9 F0 c, r" Y* A4 C/ k9 ^                        lines:=lines+1;
/ D! I6 R; r$ J) M! I" _                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 \  e$ `2 t' J6 ^  t+ |! X# \) a% q% V                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 a: s( I6 A+ R9 i$ P. H                        partstable[5,lines]:=rows;
+ H( Z" H: M4 {* d: o, U9 ~. l                        partstable[6,lines]:=j;
- K+ i, v8 |7 M                end;
* k6 k% R. u/ G. j6 i* l        next;
        machinename:=sprint("M",rows);
" y% N, e% V" H) {        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
9 v9 ^% v- z' O- P0 b  J. _        machine.exitctrl:=ref(leave);
5 q0 e* j. r* H: q& N       
        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]);
0 Q7 D" D5 N3 A' c9 Y: C$ @        buf.name:=bufname;
: ?6 Q$ ^' ~) s! \        buf.capacity:=5000;
8 l. ^/ |; ?( X4 b( c2 B        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
  ^  [& I1 N9 O) T* p1 S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ X/ Z; _0 i" C: edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# e' |7 T* i5 I' h" s9 _1 |current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ O7 T, A$ x' Dnext;
end;
8 U) o- v. q( B! g3 y