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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
+ k4 }4 j7 }0 u8 p: Z- o    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
2 C, j) V) d+ q' t7 ]do
6 E" g* L3 H8 \        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)
! a6 F/ P! i+ ?  i9 J  n3 f& W                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
& O1 b. ?( h( I' E8 I! P8 J0 d5 E                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
) P6 d2 V1 {' s' e% M0 ]        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
3 C' a7 Z6 y1 w- t& x# B                machine.deleteobject;
        end;
  E8 `3 O  ~* B1 L, N$ T% ?: C        bufname:=sprint("BF",i);
' {2 \* H  e4 D1 Y* n* A0 r2 s: F        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% g  f7 v! E# V( {5 z, G                buf.deleteobject;
        end;
; ?) p1 [4 x4 F        next;
) B  N% n2 [7 D# w3 D) i' ~4 \       
) g% @* j' O' V  U, [        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 g- B% B) t3 ?6 v6 i                        /*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];
. u% c6 b! u6 z5 b, R                        ct:=activityspace[2,rows];
6 a+ u9 t! i3 O$ M- ^6 @                        activityspace[2,rows]:=activityspace[1,rows];
4 R4 i# Q. i) d. D                        activityspace[1,rows]:=ct;
                        mark:=true;
1 F, R! M1 x! B' I9 }" b% Q                        else*/
                        y_max:=y_max+dy;
" z8 E5 ]4 }0 j4 U0 T                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: K9 }3 a0 f1 i+ `. Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 h" d# L$ X6 @8 H' Y; a            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
7 {" X; v# \6 B, n; `* v: n                dx:=dx+activityspace[1,rows];
; F9 A, g0 C1 }                /*if mark=true then
6 {/ @/ L- O9 j# C- B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
! g! k! |2 G9 w7 h% j        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
9 n. s( ~4 n* G8 k# W- v                                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];
+ y' F( h5 X4 p  J" ]                                d_from_to_chart[j,i]:=abs(dx-dy);
% A1 B. b. ^8 M4 S+ r% H& C. ?/ X                        end;
                next;
        next;
4 v# g/ t( d, y& R; y. f2 x/ U2 f       
1 C2 ~) ~3 J) x7 o2 V        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* }" j% {& O( {8 H; S- P                machinesequence[2,i]:=rows;
" D2 l+ d6 `* }5 D7 v                for j:=1 to number_of_machine loop
! g1 i5 B; H4 d- ^) N                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) z# r/ h7 S6 z8 E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 S. E" s. J6 x' ~9 e4 C                        partstable[2,lines]:=w_from_to_chart[j,rows];
; {; X: ^; A4 S. i/ k6 ^2 o  m                        partstable[3,lines]:=sprint("parts");
- b% N# k. H! i# a                        partstable[5,lines]:=rows;
$ u, y4 a( h/ b2 Z                        partstable[6,lines]:=j;
. m. H( O" {' ^0 _4 `                end;
        next;
        machinename:=sprint("M",rows);
# W& ?  G4 n6 r- m# H' t        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 F- M+ X; p# x: z! x  D% E6 |5 e" ~        machine.name:=machinename;标识符未知
% k+ l, s7 D* u- Y8 j5 T. k        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" r' X7 H5 P* }& D8 ]9 v        machine.exitctrl:=ref(leave);
1 K" e3 g  ~, H       
        bufname:=sprint("BF",rows);
0 j& Q5 Z2 t5 T1 s) f& \        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;
        buf.proctime:=0;
0 U) X0 c- b  S- a7 i; n        .materialflow.connector.connect(buf,machine);
# @- s9 K% r1 ]. x4 A( Z       
4 z6 \! r( X9 S$ E( N8 L        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
; q, M, e: R; P5 G- P! ~next;
end;