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

zooey

is
" l: L: Q  ^$ a4 o        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
2 q# E6 G) y3 s9 I    machine,buf:object;
do
2 g9 i+ }8 F8 G! U5 d: R9 ^* d        current.eraselayer(1);
, z0 ?1 M- X0 m       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
6 c& K: Y) _% t- K0 C1 K                when 16 then
3 u; K! V. o  N; A, _- c. u4 m                        print"yes";
                when 32 then
                        print"no";
* i% H4 Z3 I8 N" ^( h* s7 \' B9 T                else
                        print"cancel";
: E+ _9 Y2 h4 }                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
# u" k3 b* l( i  i        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 t/ X* B, ]- W                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 T. N+ m, x7 B/ \% c( O        bufname:=sprint("BF",i);
        if existsobject(bufname) then
7 j- I$ q& D3 u1 m1 _                buf:=str_to_obj(bufname);
3 f" k- b6 n) I* I! D                buf.deleteobject;
: A4 J& w" Q  X! B. `$ i9 K1 a- j        end;
        next;
3 ^7 C) [7 t" E/ u9 N" A: ~' d  m% ]  ?) F       
+ q2 s* f6 Q6 c6 ]7 W) ]$ h        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 z  s: K' F% f3 d                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 S: L) u# ^" x; P( P7 E- o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
' a  x" L, \. z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, F2 p/ @" g5 }                        activityspace[1,rows]:=ct;
$ B& y1 n8 d% f+ j                        mark:=true;
                        else*/
! c. m2 _3 x% l$ `  @- z                        y_max:=y_max+dy;
  C$ z! l# ]/ v- e                        dx:=0;
- d% ~0 _6 P$ U9 g8 c/ J% T                dy:=0;
                        --end;
: N, y, x2 t8 Q; 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;
            if activityspace[2,rows]>dy then
* e8 ]0 g( ?  Y+ l                        dy:=activityspace[2,rows];
  {9 j0 q5 F4 D% v- i: B                end;
+ w8 `7 p  j7 _. J- I% |7 c' i/ H% a                dx:=dx+activityspace[1,rows];
# c/ i# I* l* ?9 Z7 D/ [0 `                /*if mark=true then
8 M( I6 H% R5 n) B/ P* C' e" n/ [5 j4 Q                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; U. |% c1 I% o; g                        end;*/
. z+ w+ B: E" m& M+ t+ @        next;
; z% q/ }9 R8 ~3 T; v- s+ O+ u        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);
( X! m; d; v7 t9 T1 a  V       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  g& y, c& n5 }! m* }                        if j=i then
( L# y" n' T& N                                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];
" t/ L0 d* Q+ Q# ]( S                                d_from_to_chart[j,i]:=abs(dx-dy);
% D* |% k  i, Y! a5 Y5 d                        end;
                next;
        next;
, _5 K/ U+ K/ E  l       
        lines:=0;
, M$ W4 R7 {5 C( \/ W/ d* G        partstable.delete;
       
# ^( ?+ J- X" b/ k0 Z- s9 C        for i:=1 to number_of_machine loop
" }# y. \4 h) O) o! H8 g9 T, y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* Y3 p) Q9 k1 w+ S5 ^( @  ~# A                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! g# s, _% o) M9 {3 X* S& O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' s5 b! P# i3 ~' @" P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
* k) M! d- v- H( F" C        next;
. _& |  p8 ^; D; D& Z        machinename:=sprint("M",rows);
! h/ u) O4 y5 z+ Q' r9 y        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]);
" E  R4 w( ]2 j/ G        machine.name:=machinename;标识符未知
2 V- H; \0 h' _2 B$ ?        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
1 j- D' b+ ^2 F" Y        machine.exitctrl:=ref(leave);
       
' t) e2 r2 Y7 }9 a2 i$ H        bufname:=sprint("BF",rows);
" {7 J* W; M9 c  N* `        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]);
; Y' d& A( n5 k        buf.name:=bufname;
        buf.capacity:=5000;
! Y3 Q& W) A2 }: t        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 z0 y5 J9 O' w# G8 c       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! {4 E# h  E$ U! W& U% idy:=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;