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

zooey

is
        mark:boolean;
/ t7 {" F% [: z        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
9 f; C2 F+ L3 [2 ~! I0 F# s) w% e    machine,buf:object;
do
" q! Z+ v% J3 X: E8 P( s        current.eraselayer(1);
3 p& a0 N0 ~, d7 u2 Z! p/ w, H       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ u+ L, v  b4 z( i                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
/ I( {3 Y7 W: s9 u7 Z                else
# j/ H9 f& Y! ^  I* i" v0 p                        print"cancel";
% B, H" G. d; b5 E. x, b4 n. {& o- {                end;
                eventcontroller.stop;
        end;
/ u0 Q3 n: a8 h       
        for i:=1 to number_of_machine loop
" {1 u5 @1 m* c5 `# G6 A* r        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
/ c. O  ~7 O( B$ x  \        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, L4 j! B& E% r( t) B, c                buf.deleteobject;
: I6 B. N. Q6 K0 W        end;
        next;
% G. Y" v" A8 F: y* K       
0 x' u' m# g0 G" n! k  _. p, U        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
" b1 T, Y! Q& u" m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
4 n2 H( ~1 y, k% `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  J: [* p4 q5 P/ w2 Q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
) u4 u, f9 d) _6 H1 z                        ct:=activityspace[2,rows];
* a: j6 o4 U- ^5 r- D                        activityspace[2,rows]:=activityspace[1,rows];
7 a0 y) N, G3 ]7 T# D' p% M. Y                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 a) S9 a2 {4 s% z* T+ {8 O  \9 j1 A                        y_max:=y_max+dy;
7 S, Q+ z/ `8 j  v& [2 @9 z                        dx:=0;
+ G3 o  F, E; |" b) v                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;
1 G9 B4 `) ]6 d9 P' G            if activityspace[2,rows]>dy then
9 ]# }6 d8 Z& n5 `  J2 _                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( ?7 o- D- D7 s# j                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ k1 ^! a$ T0 n                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
2 Z6 d) G2 o8 ]- f4 K- s        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);
1 y6 v- Z% V  c2 d! u) Y0 ?       
  B3 ?6 d" l/ @        rows:=0;
$ u, E0 N$ E, X) T9 J& V- Z        lines:=0;
        for i:=1 to number_of_machine loop
! G. K; w7 s' `* \* C- T                for j:=1 to number_of_machine loop
% j; \1 T/ D4 d4 C3 ^                        if j=i then
5 b7 {( ]) s" q/ D. j. X                                d_from_to_chart[j,i]:=0;
2 k. m4 t/ d4 z1 k                        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);
# \8 o! _, t4 a0 I2 t$ I                        end;
                next;
        next;
/ w+ j) J5 J) ^& m: S& n  G$ q       
9 f, G$ @, F8 {  H0 _% }* ]        lines:=0;
        partstable.delete;
2 Q7 j% t" q, y% J# w! S, q8 A4 f# D! T0 L       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
" y/ P& j0 g) P4 t$ L& @                        if w_from_to_chart[j,rows]>0 then
3 r4 O: m( {  I& S* R+ F8 Y7 q8 T                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 O: V- n) V( W* V# p+ A" W& m9 t3 a2 a                        partstable[5,lines]:=rows;
3 e" b; K1 b6 R. N" k% F- b3 o5 H                        partstable[6,lines]:=j;
5 v% R% }% b  U1 y0 P% n                end;
2 D# _  z, ^- I0 A, P        next;
$ H1 ]5 N, w' r7 o8 [        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]);
5 M" z. h, T  O+ w        machine.name:=machinename;标识符未知
2 o, @% T- H3 X9 S1 O; J# Z        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% c+ ^5 Q% h6 A) }1 y+ f       
) g* |/ n- F: H        bufname:=sprint("BF",rows);
! Z! b& ?" m# T: ~        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;
  h5 @& z* ?5 f9 \        buf.proctime:=0;
4 Q+ s' j8 U2 A" |0 B        .materialflow.connector.connect(buf,machine);
3 T5 b  W1 F8 E       
3 j$ ~: @! z0 Y9 |0 r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 k' O3 w+ k( l; k) h# w7 l/ E7 }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, k; C; ]* w0 C: N( dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;