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

zooey

is
        mark:boolean;
! U3 O" u' M+ h: {        dx,dy,ct:real;
6 v8 I7 c$ }6 ~+ z7 f; r0 W! i. Y    i,j,rows,lines:integer;
+ y" ]; k( G+ p    machinename,bufname:string;
( ]9 F4 F- b  ]9 @    machine,buf:object;
1 R. v' Q$ T# T9 d  M* Q. Y9 ?# Ydo
        current.eraselayer(1);
" \" i/ N$ p) v- v* O       
        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
                        print"no";
9 x1 w4 \$ P' ?/ D7 b8 V  S                else
# o- d1 T5 c6 P4 q" l* z                        print"cancel";
8 V3 q( s  G: k" f) f                end;
                eventcontroller.stop;
        end;
6 d1 a# U0 m) k, z1 F       
) l! @% o, p# w4 a        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
3 ~  l# k& z' s                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
# V$ f* `6 ^+ }' g4 z9 V' ^$ L                buf:=str_to_obj(bufname);
  r7 V$ X5 o/ o                buf.deleteobject;
- f& N4 i1 t" Y7 U        end;
. B7 w8 b! F6 Q        next;
       
/ L5 g2 D& A) p7 @' v) \3 Z' i        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' n: n# y0 e" y3 _                --mark:=false;
5 Y) r  f/ N6 E4 M3 w                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 z' Z; A  B$ n8 b7 w; b                then
% a$ A% w4 Y2 p                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
0 X. f  ]. O* _! S                        dx:=0;
                dy:=0;
5 x, J6 A: B8 c# V- S" t+ j                        --end;
                end;
2 P6 d% C: W/ G) b. z) e2 ~; k' a                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; R% g2 q* }5 ^& O                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
- {* f. W1 |: ]+ S. C                dx:=dx+activityspace[1,rows];
                /*if mark=true then
2 ^& I1 ~/ ~" Y( r8 ^- z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- e3 L: V- s2 o& I4 f                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
1 D0 O& L+ q4 o        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);
( o6 Z; l4 k8 ]* V        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);
       
0 H5 I- r4 H& i0 Q; z        rows:=0;
        lines:=0;
3 o% g, t  q4 h" j/ t9 j  F        for i:=1 to number_of_machine loop
" T  d' g: u8 w  C2 K. s                for j:=1 to number_of_machine loop
" r2 _7 B9 t' h# A                        if j=i then
( L7 w) ^  p5 a7 o; W' S                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
+ k3 D' ]+ ^4 D0 f* b& [! V                        end;
                next;
        next;
       
        lines:=0;
! a% t* a7 U1 R" K& Z        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& l9 D9 l$ _6 p- A2 t/ ?; @# s                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ N7 U4 \6 h+ x! r5 l                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, X6 O  C" H1 Y" g- m                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 J3 F. ]& u1 ^* X+ S: o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, d+ S2 M% A: v$ x/ X                        partstable[6,lines]:=j;
                end;
' l. J( F1 K3 b) q! U1 x# ?1 B        next;
9 z' r# v3 i2 x  ]9 ]- Q# ?+ k7 E. K        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]);
        machine.name:=machinename;标识符未知
6 {* B& k$ c6 a' Y  m+ b        machine.proctime:=5;
0 D. n9 q% `" x& N5 ?! Y' |        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
+ Y. p) I7 c: B0 X- e        bufname:=sprint("BF",rows);
4 u9 y# G" ?* A4 ^, o% B        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]);
: L$ B& b9 C+ g1 l1 K( [2 n        buf.name:=bufname;
        buf.capacity:=5000;
% D$ h  |9 |/ O! S/ V        buf.proctime:=0;
: b1 e* o% f# I" }        .materialflow.connector.connect(buf,machine);
! F3 P1 z9 X; [4 c3 W  M       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ e8 L, U$ O! A! m; U+ d. ~dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
* Z5 m, I5 V% E) n! K3 ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
0 ?9 y" S* e+ _8 e/ _( Gend;
5 ?! h) g- b; w, }- \. V3 l