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

zooey

is
  N% r: R1 |# S7 R- C        mark:boolean;
2 D: j: t& {( l) ]        dx,dy,ct:real;
  [0 ]6 F5 Y5 d, s& t% V    i,j,rows,lines:integer;
% Z& X! P2 t2 M2 d+ w* X; H    machinename,bufname:string;
( Y( J+ j+ e! A% r$ L  {: `    machine,buf:object;
do
        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)
2 s5 \3 B7 h% j) c; @$ M3 P1 Z1 b                when 16 then
- s. H5 t4 _$ \' V* e2 X7 B: T                        print"yes";
6 F, n4 H* D+ d8 C% [                when 32 then
                        print"no";
! x. o  T/ X0 M7 \8 `& F                else
                        print"cancel";
                end;
& W% O- E9 [/ t( C                eventcontroller.stop;
2 g& B# C! S' t        end;
! F) C" y! O  T+ a1 R4 p$ G       
8 ], |# y, W. [: R1 l8 A1 M# w        for i:=1 to number_of_machine loop
" [5 T: p- j$ S% }0 i3 s        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& ?) `. ]9 }7 S2 Z- _+ U# m0 B+ I9 b                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
$ o- R1 X" [1 u+ @0 u' `        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. E- V- A( a6 X9 }                buf.deleteobject;
        end;
        next;
/ A+ a/ T, M0 _- {       
6 P) D' ^' k! r& t+ {        dx:=0;
% Q) O! n9 l( J3 ^; W7 o5 b% V* ]        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 M, M9 I" O, P& m& B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- Z6 U0 b( p- d! f% O4 q                then
; _7 t5 ?" |! e. D                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 L- q9 {5 Z4 V$ t                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 ~3 X  J! u* q: a- `. K( S4 D  Q                        activityspace[2,rows]:=activityspace[1,rows];
! K( {1 j8 T& u                        activityspace[1,rows]:=ct;
                        mark:=true;
# W9 A1 b" h3 V! I0 e7 R- |) P                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
- }) H3 h3 Q: f2 y. t8 d5 q8 i                dy:=0;
                        --end;
  K) T2 t$ b' @                end;
% @' D' p6 t6 k1 r. P* C# Y# S                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ W2 _+ x1 |' d1 W9 j* i% D                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];
                end;
3 @# s5 ?8 K3 E  _) s                dx:=dx+activityspace[1,rows];
                /*if mark=true then
: v, B; m) @# d- o( z* N4 R& a                ct:=activityspace[2,rows];
7 b, Z( P# d7 [! h9 E1 J                        activityspace[2,rows]:=activityspace[1,rows];
/ X  p, \6 I# }4 T% ~                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
* G2 u/ ^* w9 `6 @/ U6 `        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);
, C* M, k* B2 \- H# z, i        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;
( J3 L% i8 R( j3 W. ?/ H        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
$ \& X) @7 f& {3 ?) G                                d_from_to_chart[j,i]:=0;
                        else
' c* ]; O9 I1 i: V4 g                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 t9 I  H/ B  m5 q1 Q                                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;
                next;
        next;
       
! Z  k& X  Y: S6 k! @5 m5 [9 m        lines:=0;
3 ^4 g, i* U# ^% V; Y5 X/ R8 b        partstable.delete;
, s5 u5 l6 n/ B* B9 \# x       
9 L( Q" r8 i3 D2 T        for i:=1 to number_of_machine loop
  Z# F% _: b+ D! k7 d1 y. |5 w                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- c5 K  b6 }5 n4 X/ f                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ J4 \9 k6 X9 ~2 D                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
9 @- q# \+ @+ _- r1 m* b                        partstable[6,lines]:=j;
" v6 G" \' t6 ?7 D; S: K  s. I' J3 p6 ^                end;
" A  ]( _- q. b7 p. g        next;
        machinename:=sprint("M",rows);
4 H* B3 _; V* k        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
( {5 c, w3 q8 I7 h, R' A$ q        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
! O' Y+ G7 H: g( ^3 C, V0 |: u+ i2 L        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;
1 l7 n( q" s8 K8 \% ^8 F        buf.capacity:=5000;
        buf.proctime:=0;
1 s# t9 O: y$ O4 l: A        .materialflow.connector.connect(buf,machine);
! o/ B$ g9 o( _$ z7 J- E       
        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);
7 N$ P+ N9 E& g6 V% t) m  Rnext;
! ^5 f* s5 t' {: ~: T1 p4 ^6 |, Aend;
$ u. ?/ R& L- D: x7 m0 G