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

zooey

is
        mark:boolean;
( j( I% q  W! x; n4 }6 y        dx,dy,ct:real;
  l' N+ E7 d8 |( S    i,j,rows,lines:integer;
( V/ V& X4 P: X) O9 P" c    machinename,bufname:string;
    machine,buf:object;
* ]2 H- ]4 f! |% Qdo
        current.eraselayer(1);
' X2 H; A: X# d6 x) C7 N       
0 X1 \% L* F$ k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: H3 @; q' H- Q  J( r                inspect messagebox("设施数目不对！请核查...,",50,13)
8 c1 r/ I4 `# C9 F' ]  p2 A                when 16 then
) g. y( X) x6 C1 U                        print"yes";
' n( Q$ Z6 w/ o                when 32 then
. W% @( P. S; [) h& o0 m                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
% o6 r- b, M6 ~- ]2 o        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 m" \  }" l% ~0 q0 f        if existsobject(machinename) then
+ I3 y( d; h6 U! l3 K1 w                machine:=str_to_obj(machinename);
1 `8 f/ ^3 W4 G' s" B( w                machine.deleteobject;
6 t! w  |, `2 h1 g' p0 q0 M4 W# V        end;
& [7 g, t  J! \# Z' J4 C        bufname:=sprint("BF",i);
4 q& B7 N/ d: n3 x! Z8 m        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  E/ q0 Y  X1 T7 R6 F0 A2 _        next;
) P/ Z. p& R% h9 ~- I6 s% m       
        dx:=0;
5 `, g. p4 C& {7 X) W0 w        dy:=0;
4 D/ H5 Y+ ^' @# d/ S$ m- g: Z( M' B' \        for i:=1 to number_of_machine loop
- H# L9 r/ t& S% ?0 i( _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
; i' Z  s) j- Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 w4 ]1 D/ n  e) L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ h5 R% F. p3 h$ _' r                        and activityspace[1,rows]<(1.05*y_max) then
/ D: `4 |3 b0 X7 W/ q" ]                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
  F) W! J' Y+ ?% N8 a8 H  [: ]9 A                        else*/
+ L. s( M2 q* c9 r9 R                        y_max:=y_max+dy;
                        dx:=0;
6 o: ?7 A* w# O7 k9 c/ [4 a6 N                dy:=0;
                        --end;
# T, t0 B$ s; D: n$ U                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 M2 G6 q" ~% x& j7 R$ I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, t& w; m5 }. ]7 @6 ^            if activityspace[2,rows]>dy then
7 Q* G# d1 L; n$ j- ?                        dy:=activityspace[2,rows];
7 [# X! A% e9 D) u0 X                end;
                dx:=dx+activityspace[1,rows];
8 O) D/ x! x. h/ Y& T4 O# f, ?                /*if mark=true then
- d8 T7 s0 {( j4 W, q7 F0 h7 g                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# p8 {! E1 R) t* Z  N+ O3 U                        end;*/
        next;
        y_max:=y_max+dy;
) H& I; p  R: I3 Z% E6 L) 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);
        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);
- H- w: S8 T: r       
" C& o' C) M3 ]7 ?8 A! z$ p! X( K# W! b        rows:=0;
' Y% L: n5 e+ J* {4 Q. N7 p& Y        lines:=0;
- X% p# ~0 R- u  p. L        for i:=1 to number_of_machine loop
# ?- ]# }. G4 }1 L4 H" R( A                for j:=1 to number_of_machine loop
                        if j=i then
% y  M7 N- Q5 [/ H                                d_from_to_chart[j,i]:=0;
                        else
6 z( f8 p2 h9 G; |; H9 m                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 o- X) L' ^' R8 @% A: @+ 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);
                        end;
/ B& D$ n. l" a" A9 d+ I3 K                next;
        next;
! w0 i( u7 ]# w/ H       
        lines:=0;
        partstable.delete;
2 h8 S5 H: `- R6 ~. y       
: C- C% r: f0 O" [+ O        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
. G# j' t! d4 c; B' J- k  h                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
$ u, B6 R! ], R* M8 k$ M' W                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 Y% n/ c4 |6 Y# t5 d9 {                        partstable[6,lines]:=j;
, E% V7 ^% t$ H                end;
        next;
( P4 {: [3 T6 h$ J8 d        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]);
% ~3 k/ J# ?2 j        machine.name:=machinename;标识符未知
# {, R9 Z; o# T. W# V        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
+ I9 Y' W/ P5 \) y- N        bufname:=sprint("BF",rows);
& v1 R4 d* W) q' N+ Y& W. y# t/ w# ^        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;
        .materialflow.connector.connect(buf,machine);
       
' C7 g" k2 j2 U' S4 @        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;
7 y$ e) s# }+ J) {% z" b( a% f3 Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
- o7 L6 S! ~) G' R1 t8 y