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

zooey

is
        mark:boolean;
( C7 A0 w( F+ A3 k% x        dx,dy,ct:real;
" [- L1 L8 z% T# b: o    i,j,rows,lines:integer;
; J2 \, ?. M" U: m4 u    machinename,bufname:string;
    machine,buf:object;
( t1 s. d! v: g, l4 Edo
        current.eraselayer(1);
       
% z* ]( @8 x; O) y* C        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& [& V" v7 `9 M: e                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
# Q) Y3 {6 F! i# q+ Z4 J! V$ Z% g        end;
* ?; B* R. a, K3 z       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
( J. c( c9 R! T3 H& ?                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
6 K" w" E/ A+ V; j8 P        bufname:=sprint("BF",i);
        if existsobject(bufname) then
" I" F4 E2 h% Q. s3 E) d                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  V8 P3 Z( o, \        next;
       
' u  k: U5 {* G        dx:=0;
0 }1 J7 P; j8 ]0 Y        dy:=0;
$ G# O& y. m3 k+ [% U( `5 w8 ^        for i:=1 to number_of_machine loop
2 ^: q8 _, c# @9 H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) I4 U. \: Q* @  ?) F                --mark:=false;
' S8 v; N" i" F, l% S# P                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 S8 {' e/ X: Q: J9 \$ F                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, Z% F  z0 n; t5 }9 W2 |2 d' o* u/ M9 V                        and activityspace[1,rows]<(1.05*y_max) then
6 U8 I: G1 R! U9 S- u                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 D4 {3 c5 B( o- g9 K8 }                        activityspace[1,rows]:=ct;
; w/ [0 r: V- U# u8 R- G* l5 m2 }                        mark:=true;
: N& x( V/ B( D$ X) g3 G" l$ Z% J) w                        else*/
8 G9 F8 H" E0 \& ~/ {' r; a& r                        y_max:=y_max+dy;
  z% S7 Z1 N; e0 k7 l                        dx:=0;
, p3 k* q9 ^' a, E& F5 B                dy:=0;
                        --end;
                end;
7 B1 _0 T( i/ I$ Y) w                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 J# Y6 H# [" o$ ~/ r& i                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
% x  q% {% t% l- i8 {9 e/ ^: Z  {9 L! i            if activityspace[2,rows]>dy then
9 \1 o) `% v4 X/ E# d6 v                        dy:=activityspace[2,rows];
                end;
7 y7 G7 r: f: N9 S1 a1 g% D9 c                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 i0 G9 S( D% `                ct:=activityspace[2,rows];
$ p& d! V  L1 D2 _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( E3 U4 v4 B! \% y# ^                        end;*/
        next;
- d$ c: W3 g+ z        y_max:=y_max+dy;
+ V6 M1 z+ [, B        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);
6 s# O$ k4 h  R        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);
       
, B. Q+ G3 ^+ E4 q2 d        rows:=0;
        lines:=0;
0 m) K2 ~, |" {+ I, X% G2 L2 t/ \        for i:=1 to number_of_machine loop
( r) P+ f! e; L" l4 L- J                for j:=1 to number_of_machine loop
2 z3 p4 n2 H8 Z$ L0 U& }                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 {( Y7 e6 ~$ S' I  E' Q3 o# \7 _                        else
, B) a$ @0 Z3 \4 b7 o; `                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ x/ h6 Y6 B2 C3 m6 Z                                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;
       
        lines:=0;
  ?9 A* s1 [$ g  ?' Y        partstable.delete;
1 f3 t! j  D* Q9 ^. H% [       
/ V, ~! v* |( D5 r6 C        for i:=1 to number_of_machine loop
" v. x# A3 l, l" I2 w& N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 N* l; Y2 Q' L* g                machinesequence[2,i]:=rows;
5 G" \" h3 P. q3 f+ a7 Y0 N% \6 Q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
/ H, L0 \3 ~! P2 Z5 V3 q- T" o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# T/ P  t1 _2 Y7 F% R                        partstable[2,lines]:=w_from_to_chart[j,rows];
. a2 I) ?4 g) J# M& q: `) p                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 @1 @) @7 t5 [/ g9 S                        partstable[6,lines]:=j;
# Y& ~  e8 r& O& H: |" D                end;
9 \; M. z6 V3 V! h8 U        next;
* ]& A& f  r. ?        machinename:=sprint("M",rows);
0 W. [6 v& U$ t        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;标识符未知
6 Y! L' `/ d- L( l7 i- b- v        machine.proctime:=5;
6 `. K+ U$ P, E7 D# W# Q        machine.label:=activityspace[0,rows];
4 g: B/ z7 A8 W        machine.exitctrl:=ref(leave);
       
5 n/ v( N  g+ \1 p' X; G$ w5 ^# ~        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
; O1 ]; o+ G7 b        buf.proctime:=0;
  w. H4 }+ _2 K; V4 h2 j        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! H4 D) P( K  G1 L$ ^. Ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) `  I- n" m1 l2 J7 ?( b& h% Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* b% G$ G# J/ m2 l# g% tnext;
end;