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

zooey

is
+ O: Y1 \& y/ G( B; {! Y- D        mark:boolean;
$ p4 K) R0 S4 C        dx,dy,ct:real;
    i,j,rows,lines:integer;
  l9 _8 K2 F3 W; Q6 G7 r0 C    machinename,bufname:string;
    machine,buf:object;
! w: b+ G) ~( w" zdo
0 ]5 B" o( G4 G% W* @2 d. ?5 X. E) j        current.eraselayer(1);
4 m; r: e9 O# r. z$ f8 I       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! J! A' w5 W: v; P! I: l+ p                when 16 then
8 _, b8 C. ~% G9 Y1 s/ `; A                        print"yes";
                when 32 then
                        print"no";
                else
7 c1 j4 G& N' @' u$ o2 F  J5 \; i                        print"cancel";
                end;
: j1 E/ m/ k9 b" J4 k                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
: I+ G0 H4 ]& F0 K8 O/ I% @        machinename:=sprint("M",i);
        if existsobject(machinename) then
6 R' T; K9 s: h                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 q) k; R! @1 _        end;
6 _) x. B: M# `+ W  a        bufname:=sprint("BF",i);
9 s& b; N1 \2 [0 H5 b/ f  _        if existsobject(bufname) then
2 x+ v& V$ i0 @# J# j4 v$ I" Z                buf:=str_to_obj(bufname);
# p8 m2 g* O& S) s3 ^$ r                buf.deleteobject;
: Z0 }! {3 X& A6 W0 ]4 s  ]        end;
        next;
       
        dx:=0;
; g. k' ]4 g% o: A4 X        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 B7 [; l. E( A                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, Q5 x- a3 e% O+ v                then
9 I3 m* S0 K; o. \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; G5 O4 D+ _& E; y$ F4 [                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
4 Y* E+ E) l3 c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, N8 P" W! L/ |) J( I) y                        mark:=true;
                        else*/
) K5 n1 h. Q8 D, q4 o# |                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
4 ?3 h. _" m: W, ?2 H/ I4 ?                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
, d6 J* j4 p, G8 G2 `; G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ G7 T4 U: h2 {) ~            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ b8 I+ `. N# S& t                end;
                dx:=dx+activityspace[1,rows];
7 l7 T7 l( V/ `% c                /*if mark=true then
                ct:=activityspace[2,rows];
( X7 S5 M' G/ h& r# X                        activityspace[2,rows]:=activityspace[1,rows];
+ D) Z$ W6 r) X; @# E                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        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);
        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);
% W1 I1 ~  ~+ ?3 }6 g4 J       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 f+ Q4 x7 x3 {) R                        if j=i then
                                d_from_to_chart[j,i]:=0;
" G/ g) Q: _4 u8 E, A! i% f                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 `% G  ?2 z, P0 K                                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);
                        end;
+ l5 i" l+ n% M5 W4 a                next;
        next;
       
4 c+ C- Q5 e5 Y5 F4 f& a* z# E        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
/ T2 q/ x3 H3 a+ I: @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% D: s" C- g1 L                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
' g7 ~- E# X. ^) i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% x7 c9 X% Z* Q4 r% o                        partstable[3,lines]:=sprint("parts");
- g+ @; o4 {6 b* S" B5 M                        partstable[5,lines]:=rows;
2 x0 D) R) K: x! G                        partstable[6,lines]:=j;
' U, l' q- j, q1 B5 r6 r7 J                end;
% L7 T+ D$ ~+ j; C! i$ X4 Q        next;
5 n5 c, f. Y& e' w        machinename:=sprint("M",rows);
. p! q; q. D: J2 L) Z        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;标识符未知
, j5 a; E7 f) B; b4 _- ^        machine.proctime:=5;
; f: h+ f. F1 g, ^# H2 H$ y        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) V. \) e/ `  v& q) n' m6 G8 i0 m       
  G3 V( Z) `. H/ O: z1 S        bufname:=sprint("BF",rows);
1 T! B! E! V: `3 O6 J2 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;
; \& A" o, M$ L, _8 z% H& B        buf.capacity:=5000;
        buf.proctime:=0;
% }- i' W+ X; C+ F0 {        .materialflow.connector.connect(buf,machine);
! W8 }( [- M/ v4 m. F* ]0 s7 ]1 H' O       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 h$ f  q+ a8 m7 ]1 D1 Ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
1 C+ G- R3 Q; ]% P' R3 o* xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
; Y4 g1 L9 o' W3 ^