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

zooey

is
) k1 B* G# F% @( B        mark:boolean;
        dx,dy,ct:real;
1 H$ I" z2 @6 m- A: ?    i,j,rows,lines:integer;
. ]8 p3 d: E; u* Q" n) }) l/ t, W    machinename,bufname:string;
    machine,buf:object;
do
6 s8 _. y" q5 {( N( S- `3 H        current.eraselayer(1);
8 C1 W8 x2 {% _5 R3 W$ A' D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& `. A# u1 c/ n8 }2 t2 q" }                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
- Q7 y4 `/ d3 `& J) h                        print"cancel";
                end;
! g6 Q- S! ]2 E8 p/ W6 |, h                eventcontroller.stop;
        end;
       
  c5 d6 v6 t! K& e. e        for i:=1 to number_of_machine loop
/ Y6 G# |/ o+ L& T$ o5 r, l3 {4 q        machinename:=sprint("M",i);
+ f# c% I* g% |* ]4 ^9 d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
( D1 h; z, K$ ^1 E+ L: U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
' C" \+ b# w- J/ X$ v& b6 O                buf:=str_to_obj(bufname);
                buf.deleteobject;
  q* \1 A: B) a        end;
        next;
       
! d, A% ?2 b3 d3 w, @        dx:=0;
        dy:=0;
3 d" U) k7 Z4 v# L+ i# A  U4 n- I        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, Y( p% V4 p0 ]$ n+ h3 a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# C! H$ A# m# x, R2 A8 e                then
                        /*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];
* J3 Q/ A( O9 @! g8 N6 G' ~7 |* g" h                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
6 Y. Z( _5 c9 M0 n                        y_max:=y_max+dy;
. \2 X! k4 s# R8 C5 B8 _                        dx:=0;
                dy:=0;
                        --end;
                end;
  N- r% h" e: d                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 s- J5 W2 s& Y4 ~2 X% N                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];
1 S' p; p% b- E: v4 {: H- i                end;
* z4 R0 Y* Z! I2 g- `                dx:=dx+activityspace[1,rows];
% C/ F5 F' ~8 o' R  C' U9 s6 m                /*if mark=true then
* ~. L4 C  s9 m4 l                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
. z+ I) F. n9 i2 L0 g        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);
  N! }0 n5 X& C. E+ N% }        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
& X* X9 G$ o3 e                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
& T( Q& m  U2 x                                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);
- Q; o9 g. V, ]5 P" @$ p, C8 `6 [- s                        end;
                next;
        next;
       
        lines:=0;
  q" a4 a3 p! ]8 w7 V        partstable.delete;
       
/ k2 v5 V, |( K( t" `/ h        for i:=1 to number_of_machine loop
0 x7 E' j9 Q) f* E/ ^$ F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, b% _/ F% g* i4 u7 N; i& b                        if w_from_to_chart[j,rows]>0 then
" [0 Y# K) Z2 G& y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. b. d* _; A6 Z' }6 H( c# b1 x5 {                        partstable[3,lines]:=sprint("parts");
  S- j6 i- }% f2 i                        partstable[5,lines]:=rows;
; `, }* c. [9 d3 A7 e" [/ T                        partstable[6,lines]:=j;
                end;
        next;
        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]);
& k) d! l$ l( Q+ h        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" a  ]: N+ f2 J. ~        machine.exitctrl:=ref(leave);
       
: F" L: o& U  _        bufname:=sprint("BF",rows);
        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]);
/ B- W2 T1 ^8 }9 n0 _6 \        buf.name:=bufname;
        buf.capacity:=5000;
& ~1 R( S5 X5 b6 ]        buf.proctime:=0;
  \6 ^& l! H9 P  K) f" o        .materialflow.connector.connect(buf,machine);
/ ^3 f; y5 N* a       
        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);
next;
end;