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

zooey

is
' K+ n# @) @- _+ B        mark:boolean;
! S4 `% f3 C8 Y/ ?& b# I        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 t3 c! l. ]" O1 E7 }8 K    machinename,bufname:string;
    machine,buf:object;
; W/ P% B- h" o( J9 Ldo
        current.eraselayer(1);
       
        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
                        print"yes";
                when 32 then
1 \2 F. O; `0 \* N* Y0 g* Z1 m                        print"no";
                else
                        print"cancel";
                end;
- h0 p; c, f& J, N1 j                eventcontroller.stop;
        end;
       
3 p6 U" ~0 i6 P% t! @) T        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
" ]. z5 f  a! `                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) @8 ]! j& X! _                buf.deleteobject;
        end;
        next;
       
! I. [4 Z* e* M6 P% W4 n8 E        dx:=0;
/ R* q' v% h* ]. J0 O' w& a* K        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& V+ @5 V! X) J; f( Q: b9 R' R4 s1 B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" ?) [5 J4 K, Y# a                then
2 z) S- B$ w/ I8 Z' B9 u* X0 ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
/ u9 }5 q7 e7 I                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# j( R1 p5 k2 \  z: U" M! p                        y_max:=y_max+dy;
) t4 W' v7 G) C8 }% {% l8 D" |                        dx:=0;
                dy:=0;
                        --end;
                end;
3 [& Z( K' d3 d  U                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' V' n" N5 e; H! u! m" L/ G' C' ?                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
3 [7 o. e/ o$ r                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
8 D& ^$ j% R# U9 K                /*if mark=true then
! ]" O* w, M; S7 @6 U$ I5 @                ct:=activityspace[2,rows];
8 \4 r9 h  u4 @; h# g5 R4 \. K$ m                        activityspace[2,rows]:=activityspace[1,rows];
" r7 F  R5 n7 F* l# L                        activityspace[1,rows]:=ct;
7 ]* `: }( `4 b8 [. Z+ p! s                        end;*/
        next;
2 I8 I/ P0 ]+ Z        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);
9 e, X& @9 [2 |* Y! 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);
+ `" Y( x! p5 T, E5 G) `       
0 N8 z( n3 Y1 A! E4 n- ~! r        rows:=0;
7 s% A3 U6 J8 j* h) A, J        lines:=0;
2 o) Q: Q5 N7 i1 m        for i:=1 to number_of_machine loop
, c8 V: a- u* D" w+ x  E! Z                for j:=1 to number_of_machine loop
7 i& }9 V. H6 }$ n* ^                        if j=i then
                                d_from_to_chart[j,i]:=0;
# K* ]7 O( D, @# U% ?* F, u' U5 o+ q                        else
8 ]0 d7 T% D; J5 \2 k                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  A, m. S$ E. Z, L) ^) t                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
$ S3 W6 M* ?6 W7 v                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 N7 _0 b; P4 `4 Q2 i                next;
; N- m9 ^' ~: b8 ^# d/ d' A# ~1 Y        next;
       
. N- P6 H; e+ T  s. P        lines:=0;
        partstable.delete;
1 r3 `! @+ Q6 L5 ^  y3 P* X! B       
4 A7 A2 m" g; Q* v( E2 u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# {5 B% O! W7 X$ H: E6 v# V8 [% f% U: S                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. r- ]* W2 ~8 ?% D                        if w_from_to_chart[j,rows]>0 then
& N' A( A9 [3 P( C( N( J6 v8 t                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
( R. w# q0 ~5 v3 l# @# q                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
* X* j4 v8 [* ?' b/ O( C                        partstable[6,lines]:=j;
+ i+ s% T: T& ^' |8 D, q6 F                end;
        next;
9 S" ~! Q9 L) r; M( \  W        machinename:=sprint("M",rows);
3 Z4 A% `9 ?' X9 x9 S1 }        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]);
4 T: P. r, y; [        machine.name:=machinename;标识符未知
5 b8 o; G& c6 o( `0 {        machine.proctime:=5;
' n& k0 A1 r% b. }2 z: [        machine.label:=activityspace[0,rows];
$ c: }: p% Z2 |        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
+ ?3 m- q. C* ^8 y5 S( W& M        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;
  R  b1 ]8 }1 ^7 Q/ S; T& Y& d        buf.proctime:=0;
0 s/ ?0 v9 k: V, @4 W/ J        .materialflow.connector.connect(buf,machine);
       
+ i' H1 p4 [2 p5 X! p        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;
6 k6 d" m; n9 [' ^* C  Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
3 }& l5 T7 t4 }+ @% o5 \