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

zooey

is
9 D, X8 r: u9 i/ @        mark:boolean;
( }% X6 }- l6 c- L5 b- b& a/ G        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 ?) l3 m7 C$ R( z2 X1 D& I5 L, }    machinename,bufname:string;
) b3 s& g! d3 A' ~& S: C6 ]    machine,buf:object;
. D- I5 y; u$ g) K3 i( F1 ~( ^do
& p7 _& k# t9 s( a0 d        current.eraselayer(1);
       
) t& e0 w2 \/ {# D; X, i& k; r        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
9 q2 R; f+ f1 m" b6 I; G                        print"yes";
                when 32 then
/ ]  G/ i1 f- t                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
4 ~6 Q; z. i  T/ x1 k        end;
$ x9 N# I$ n9 ]5 S3 P       
        for i:=1 to number_of_machine loop
5 M+ z  C6 F* s" b7 o        machinename:=sprint("M",i);
        if existsobject(machinename) then
& {* u3 `3 T9 s8 d, @# I                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
5 D( J; Q" N/ R+ R( U3 k        if existsobject(bufname) then
) X0 \+ m; z- \                buf:=str_to_obj(bufname);
) H) ]5 B  X( n                buf.deleteobject;
" k( |! Q! Y: i( b, g        end;
9 m; J2 p* ~2 y! \8 _/ I        next;
       
6 E0 A  h0 ]4 q3 K* w( `) Q        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ @' i# q2 L6 k8 J$ H5 e                --mark:=false;
' S0 ~, D0 u4 U                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- l. A9 Q- n6 b6 m                        and activityspace[1,rows]<(1.05*y_max) then
# ^' z# }; t$ g                        print activityspace[1,rows],",",activityspace[2,rows];
: J* Y/ ~  Q" z! V3 E                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 i( i$ g1 A+ F& ~% f1 A# V                        activityspace[1,rows]:=ct;
) ~0 f: {+ H6 K) A0 V9 }                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
4 ?1 c1 N4 c7 G& ?# ]0 R' f                dy:=0;
                        --end;
; w2 l9 h9 R/ f5 m/ C* @                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;
5 U- n; W( N% ?& ^, T  m4 l% w            if activityspace[2,rows]>dy then
% ?; q# l7 M8 w! h                        dy:=activityspace[2,rows];
  X% L* \0 Y0 b+ }8 o0 E2 F* M                end;
( e" R/ c. j& B5 m$ m! S/ `                dx:=dx+activityspace[1,rows];
2 B+ c8 E. d2 Q1 p$ `- S                /*if mark=true then
                ct:=activityspace[2,rows];
3 T" X1 c( D2 a! X& G* A                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  |$ J$ x  `" b1 o                        end;*/
        next;
2 u+ H1 b! Z' A        y_max:=y_max+dy;
$ x4 x& l! b$ X        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);
0 |9 E3 g/ \/ d  o! j        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;
        lines:=0;
' n" H  V0 Q/ w( m        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;
+ n5 E) k6 h* g, Y                        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);
9 r# N$ ?+ Z8 |* k6 J' c- C1 m1 [                        end;
0 t. J" T  f3 J                next;
        next;
1 i) d$ A' |3 t' V       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
% U: j* O& D& Z3 t0 Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  x$ D4 F+ ~# w: O& h6 _                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ d5 f! {* h" x& }                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  H% d# q5 w4 K% m                        partstable[6,lines]:=j;
" o; D$ v& M% s; ^                end;
        next;
        machinename:=sprint("M",rows);
4 Z. p. g9 M0 I, ^- K3 ^        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]);
# ^' o% A& ]; j- S8 y/ |        machine.name:=machinename;标识符未知
* ^# V$ U( P$ U4 |. w        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 M, ]+ y4 b# D" C, W; v# K        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
& w, V# ?( k8 z) n2 }  z/ t3 c$ m5 o        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;
3 }1 T% Q$ y( k& c" q        buf.capacity:=5000;
) v5 ~! U5 {4 v0 W+ A: Y        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 z3 n2 e. k' `7 Y3 o" Q0 l5 Y       
1 n! j- \2 d2 d0 _        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& t3 e, Q$ p7 @9 Qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
+ F5 A/ s8 }8 ?1 `  ynext;
end;