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

zooey

is
) p; s9 A3 Q7 V. t! E" W. x# }        mark:boolean;
        dx,dy,ct:real;
# i" D/ s& ]1 l9 A0 V/ p4 h' h    i,j,rows,lines:integer;
3 @" U1 ^/ H9 V    machinename,bufname:string;
+ f% h* {7 L$ i    machine,buf:object;
  V1 z7 @* P9 T- ]6 Tdo
2 `' e9 y( x; |. y2 k3 D$ Q6 o        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 q6 V! S1 C" c+ \' b                inspect messagebox("设施数目不对！请核查...,",50,13)
7 M: j9 I& P4 J  R7 N2 w                when 16 then
                        print"yes";
                when 32 then
                        print"no";
9 O8 O9 M2 ?& u- N                else
                        print"cancel";
                end;
, T; H+ h& A3 t2 i& B$ [3 ^                eventcontroller.stop;
        end;
* q1 g1 Z: \( G4 H; {       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
; i4 W, u; x  w        bufname:=sprint("BF",i);
% l4 Y2 Y: d, x+ y+ S$ U        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
2 H9 H/ o* N( e7 [        dy:=0;
        for i:=1 to number_of_machine loop
% K# ^" Q4 ]- F4 y7 \- ]+ `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- \! G9 G* {/ ^% |3 B! [: e) J                --mark:=false;
% C, f# q9 L2 S* k6 F+ A1 G                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ ~% V" o4 I6 ?# ~7 G: p' P+ J                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ G$ X0 P5 Z% M2 ?; O) Y# Z                        and activityspace[1,rows]<(1.05*y_max) then
9 i- K. d. Z, c$ E/ U+ Z                        print activityspace[1,rows],",",activityspace[2,rows];
1 ?1 w7 V6 @, W                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
4 ^' p" e; _+ {6 m. R                        else*/
6 j7 l1 N, v) e9 w0 H! x: J3 [                        y_max:=y_max+dy;
" d5 V5 K4 c2 }: m  M+ W                        dx:=0;
                dy:=0;
                        --end;
' e/ H) |7 Z' M, k4 G                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
, x; P4 t# e1 ?3 U            if activityspace[2,rows]>dy then
" p) ^6 a6 m/ t# [                        dy:=activityspace[2,rows];
* R/ [3 H9 N0 a* [                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
- F% g' m" K2 G1 @# R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) ~) f( G- J5 |0 E5 K                        end;*/
        next;
1 W9 [8 W% v2 ^3 f9 j        y_max:=y_max+dy;
! I( @: ~6 I5 q) T2 F$ A        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 L: M  @0 q* O' m2 H& i0 B4 o       
        rows:=0;
        lines:=0;
! A; C6 b9 H/ b        for i:=1 to number_of_machine loop
- N9 ^; n9 m' t8 [2 T$ a                for j:=1 to number_of_machine loop
5 b! M( X) T" G  l3 E  E                        if j=i then
* X5 ]' g1 y8 [% S: w                                d_from_to_chart[j,i]:=0;
9 ~6 a; G8 g; P8 G# N0 ^: U; J$ j                        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);
, X3 Y. P7 |" X. z* r5 i! X! o                        end;
8 x9 i/ g8 Y5 K) ?5 s2 y0 c                next;
; c  g! i+ t8 G; _        next;
, I- \! J/ k# n3 O0 j1 [! X       
1 i8 N& j* h" d% q. y) A        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
2 U* k+ X4 h5 f$ N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* T  c( o1 T, q  i                for j:=1 to number_of_machine loop
* `: a0 L, e- g( i  u; C/ L1 }3 z                        if w_from_to_chart[j,rows]>0 then
' S$ h" \$ c4 A5 ^) c+ O4 h+ n                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 Y  S) [: Y+ ?/ X; c& p                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  K: ^/ C! ?% ~4 k* G' F2 M, A3 z9 {                        partstable[6,lines]:=j;
                end;
        next;
: G5 y4 m8 M7 n: x2 g1 U        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]);
6 c8 m) o; U( S# P, z" U% B, \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
7 l$ C9 L6 Y8 E) m! p) x8 b       
  V% H8 K$ o5 B; Q" \9 _        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]);
, R, Q5 B, _( t( ?: E7 Y$ v2 C5 R- O        buf.name:=bufname;
+ Z* p. K% e4 x" d- l* L/ M4 @5 M        buf.capacity:=5000;
3 T( b7 a% r4 Q' }" c) x7 }        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: N4 d4 j" e" O% Rdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 {% j6 e; A/ Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
/ ?! u( x6 U+ `4 A) ~next;
end;