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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
2 ~- t; J0 k9 F: j& _) G    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
' K7 j3 b) p  x$ q0 C        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; X; q$ v, F) E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
' _) d) l$ P9 V2 D  E' k                when 32 then
' ]& [6 \* y  Y                        print"no";
1 q* n1 t8 c, b6 o7 [3 c3 L                else
                        print"cancel";
8 }& W0 G- B* O" h; d                end;
7 f5 C6 @- i  b# m/ T& d                eventcontroller.stop;
        end;
  t3 `7 T8 `+ z6 G" \       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, j& T( S7 {0 `4 |7 ?) M! c        if existsobject(machinename) then
$ n. e9 h3 C2 a: N" g5 R+ k9 }                machine:=str_to_obj(machinename);
                machine.deleteobject;
# k7 |4 N- i& [5 A' O        end;
        bufname:=sprint("BF",i);
+ W/ d/ Z7 n/ q: V3 b- c$ m* ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
8 l5 ^' I& K' V! ~# l. b/ ~        end;
: K9 h1 K* G" v% _/ K, `        next;
) _6 ?0 j9 M3 s/ s# H       
, @& [: J" D! `2 N1 o' C        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 a% N* X- p6 ~0 j                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' f+ k& X' Q/ A7 y                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
# _: c$ y  m! ?' j                        ct:=activityspace[2,rows];
# c; k7 @  X4 z" p, o: S                        activityspace[2,rows]:=activityspace[1,rows];
7 Z3 ^# t& a  E  D& k                        activityspace[1,rows]:=ct;
( ~7 ?! V2 h+ v                        mark:=true;
                        else*/
) z: m! p/ P. \& g+ [                        y_max:=y_max+dy;
4 `% k' L5 K/ Q' Y; C                        dx:=0;
                dy:=0;
0 p, j  k( ~6 f4 L' O2 L                        --end;
                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
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
9 p7 r+ z: U& P                ct:=activityspace[2,rows];
( u& b  K0 N8 B! k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
" y2 R) t& W8 G; F$ b  R        next;
, C- C9 m9 a! X& r        y_max:=y_max+dy;
8 \6 ~4 r* f& T2 A0 c        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);
       
        rows:=0;
* \+ ]' C8 k3 U' H5 O% y. o) }        lines:=0;
        for i:=1 to number_of_machine loop
' n0 [2 O5 R& C$ g  [  p3 g                for j:=1 to number_of_machine loop
                        if j=i then
1 `  f4 @& y# u2 q+ v2 c$ g9 H' A! k                                d_from_to_chart[j,i]:=0;
  M0 g8 C+ d" C/ R" O                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; y- [+ A. C* e/ n                                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);
  ^1 \/ _6 e) V  Y                        end;
                next;
        next;
3 m7 M6 q7 I% ]7 O       
" I, }; M) g, Q8 E1 Q. j# s* r4 X        lines:=0;
$ Y: O8 H, q* C, v        partstable.delete;
; g) Q8 N; X0 L       
( i9 Y* g, }, R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; z& @9 S' M0 R! I/ y9 o                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" m" }5 R7 h7 O; O                        partstable[3,lines]:=sprint("parts");
+ t( x1 K& C! ]" C4 t' T                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
- M6 I: |* I/ G& l5 t: R2 z        next;
" ~4 I& v" X3 Y) O  Z0 N" m: Z9 X        machinename:=sprint("M",rows);
$ L/ Y' S" S* v( b  p9 y" O; N" f) a        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];
        machine.exitctrl:=ref(leave);
       
6 H( N( l2 m( l        bufname:=sprint("BF",rows);
4 C5 T" q0 L2 |# `" E+ K        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);
. w$ ~0 w4 o4 Y" \% g       
6 B2 R  ]/ D/ M1 `5 }0 q        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% a% m  h* V6 n$ {- j- Ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
3 j% p0 h/ ~7 c: wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! C5 E0 Y: s2 d' M* ~2 lnext;
3 G) a) f+ W" k0 z. }9 qend;