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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
- d6 x* F# x  }( w/ z    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
% @  q$ a# Z3 U! n% w2 B/ a9 fdo
        current.eraselayer(1);
       
& E( K- P1 E( g% x8 p        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
3 M2 L9 |7 k# c. K  v                when 16 then
' Z# n% e& t& _7 O& }2 E                        print"yes";
3 T) ^% e6 l7 u' K8 v1 C                when 32 then
                        print"no";
                else
                        print"cancel";
3 h; ?" [2 ]$ N9 r; |3 n                end;
                eventcontroller.stop;
$ ]- s5 y7 |3 {7 e- i* e( o        end;
" i/ l7 d5 h4 [+ }% i       
" w  d& r$ c* H0 f        for i:=1 to number_of_machine loop
( o! z: N7 t( P/ {( U6 F        machinename:=sprint("M",i);
9 R2 I- i  `4 Y: V- e. w& u- N        if existsobject(machinename) then
8 M/ [" M3 g/ B8 `7 f" b                machine:=str_to_obj(machinename);
- E  @* |8 T) j* Q8 M                machine.deleteobject;
' \$ h& _5 `3 P1 r0 u7 z        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ R2 F) z  ^, @$ F- Y                buf.deleteobject;
1 f3 C9 ]7 F/ E7 N- C        end;
        next;
% B5 I/ r0 C7 M( P7 _3 X# Q8 E       
" G9 o, g2 N1 {) I; G        dx:=0;
        dy:=0;
4 U% m0 T/ h- T- _7 h        for i:=1 to number_of_machine loop
5 [1 d" H. {; ?8 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: V% G. w2 W% K) j+ A  l6 D                --mark:=false;
. C% ?0 u' n7 V3 y! X! ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- K+ j/ o9 |6 z( p! M0 K$ d                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
# Y& f% m2 P  ^$ J) Q0 n1 o                        ct:=activityspace[2,rows];
7 ^1 L7 g' o1 Q. ~                        activityspace[2,rows]:=activityspace[1,rows];
  }& U$ ]1 c* ]! P& a9 _- N                        activityspace[1,rows]:=ct;
7 B/ P( s* T. C5 @: m2 V8 N$ s' F                        mark:=true;
                        else*/
2 j7 `3 a& ]1 @9 [                        y_max:=y_max+dy;
1 @5 a; E6 Q  X                        dx:=0;
/ u) h  o. a- x                dy:=0;
                        --end;
& i8 d% g" j" @" |$ J+ b2 t8 |% |                end;
/ l& D7 E: W8 B                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;
' p. v4 b: z4 ?% h            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
4 q! g+ m) v# m- q% @  O                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
: \* |& l  A/ Z! `; B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 N8 [# M) J/ C! `1 I5 q                        end;*/
        next;
        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);
7 \* o1 H5 U+ [  h% G" 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);
0 d) j5 ^+ [# P% I0 P: M) `       
        rows:=0;
; |& @9 R9 T% z1 Z# `7 `% u& p0 P        lines:=0;
/ p* R* U2 N( z2 {( k7 Y        for i:=1 to number_of_machine loop
7 p- m) {# r: x  m, u1 i  @1 `                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
0 }4 W0 ^( p$ [                        end;
5 P7 Y* ?6 l  `" C$ C& N                next;
        next;
/ b1 T3 s8 Y  k% m       
        lines:=0;
4 R9 ^- ]3 I9 S        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 p$ s3 ]- m( z8 p+ I% Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 c6 {/ [% S% i, D/ r                machinesequence[2,i]:=rows;
8 i6 e" y2 ~$ ~' B6 I                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 ^9 V& G- u" @  n) c! M                        lines:=lines+1;
* b# F) H' o9 x1 T8 R                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
. g1 h; R! v7 o8 Y5 F                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; ?4 ?, r8 t6 R+ R3 c1 @                        partstable[5,lines]:=rows;
% Y3 W" E0 y  Z) l0 U: r1 o: m9 l                        partstable[6,lines]:=j;
( O: i5 z6 X7 h& w                end;
# @/ C( {7 z* J) e+ ~& C5 q        next;
, g, k6 B: Q0 t7 N! E" U+ F        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]);
# W  U' Z: w- q! y4 q, s( f        machine.name:=machinename;标识符未知
( m% J4 H! ?' e3 M9 L$ q7 q        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 Y, b' V0 R6 I  \        machine.exitctrl:=ref(leave);
; f% u' g" `4 m# l! _% ^       
& u( m5 S2 P# c9 j2 F  L# t        bufname:=sprint("BF",rows);
7 V% E) y1 U$ v  T  R        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]);
! i1 w& m2 a% M/ @        buf.name:=bufname;
' s" s3 m0 g) k3 h9 \  O9 F$ X        buf.capacity:=5000;
* b* o' N0 @* @- J+ V        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;
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;
: C) S. ^9 B( ]0 _end;