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

zooey

is
" y3 d5 G4 [; E4 I( O/ ^7 G        mark:boolean;
        dx,dy,ct:real;
0 g- z7 z1 q6 h5 E4 K* \6 B# k    i,j,rows,lines:integer;
! t2 d9 h5 x$ ~, w' b    machinename,bufname:string;
    machine,buf:object;
- N) G: x) f3 j+ R# H* @+ f8 Ido
& P$ X) U/ h! e  n& I4 e8 z; s        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
" |: A! ~% W7 @) {9 A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
* |( Z0 H& ^; |                else
; s& ~4 K4 B$ U- l                        print"cancel";
* J( S" ^% ?* N5 S                end;
, u7 W6 G1 v6 ^7 y. {+ }- E9 p* h                eventcontroller.stop;
% a# z# E* n% H3 h* K        end;
  Z3 M# J3 [; b" s5 Y       
* m+ J% f/ U' l4 j        for i:=1 to number_of_machine loop
. J( {5 V) V8 j1 M  s        machinename:=sprint("M",i);
! @; K0 Z3 \0 P- b+ M        if existsobject(machinename) then
/ e7 k. W' c0 g- @# a                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
! {- a" V/ \; U        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  z5 Q( b  y" J- v9 k/ i                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ l8 |5 {6 k$ }& G% x* \        end;
8 y8 U7 a- y: r+ M! I        next;
+ z2 h& V7 t/ t2 ?* ]       
" _3 ]- T. I5 U+ \2 ~4 `1 O" {1 [- w        dx:=0;
# A3 @3 a8 X$ r( x        dy:=0;
, E1 H' w( n  g' I! \9 Q8 j  K& v        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]类型不匹配
6 s! |; {$ d  m4 a                then
% d1 f/ V! e- ^! H2 d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 I$ f& ]# ?0 N                        and activityspace[1,rows]<(1.05*y_max) then
3 I! Y3 Z, B& L; L' g9 Q. Q0 z) k2 G                        print activityspace[1,rows],",",activityspace[2,rows];
: O! `# I* f% ?/ T. j                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 T; q7 j  L2 ^/ Z0 Z                        else*/
8 Q$ `! f. r3 C& g& v7 e                        y_max:=y_max+dy;
                        dx:=0;
% G3 V9 S" k8 T, q/ U( o                dy:=0;
                        --end;
                end;
& e8 C$ v; e  {! e3 u0 g                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;
% U- f& K. _6 t4 q9 G  C2 T            if activityspace[2,rows]>dy then
# D% ^! Y4 |8 H2 a5 I2 Q                        dy:=activityspace[2,rows];
6 q/ Q) ~; q, K8 h: w8 M+ b                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" i5 b& B1 l. `4 r! _3 u# X% T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 ~( }/ L4 I! S. H) X                        end;*/
& i8 ~, a+ e, r& h" X1 }9 F8 O3 W        next;
4 p0 Y* q" a% Y0 ^        y_max:=y_max+dy;
: O2 S& S& ]5 h' S  _3 r! j        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;
        lines:=0;
( n2 L' n; B$ b4 d& c; _. r        for i:=1 to number_of_machine loop
( g& O8 l  z4 U% n. [% d$ n9 z" v. o                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
" ?! ?7 v+ X0 T2 J4 S! e! e                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 s" Z' l% b% M                                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;
" ^3 z* _3 q+ ~# P# P3 }% \4 H                next;
8 n" N, n- _+ l) I  k" J) Z1 G  T        next;
       
        lines:=0;
& u, {; n; b( v, t, F! j4 D5 {/ R$ a        partstable.delete;
       
1 q, ~5 f- X& T3 y# o# c2 D- i        for i:=1 to number_of_machine loop
* }1 T; K: u* ^# E+ }                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" e) h" [1 G  G1 k* a8 a                for j:=1 to number_of_machine loop
  a- x7 A+ U7 b: I$ ?                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 k2 f- {: P9 V, f8 i: N) l                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
5 q1 T) X, P: i8 H                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
5 V5 }+ J0 P4 G0 Q& Y. S; u        next;
( y' ~2 ?; B, K* e        machinename:=sprint("M",rows);
0 D6 ?$ _; P) X        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]);
, Q3 w' @0 n: D  O# C7 Y" p& U( O        machine.name:=machinename;标识符未知
. }7 p3 [; w- `! J; x0 ^# q, q  b& r        machine.proctime:=5;
( {' V" l$ \: h8 n        machine.label:=activityspace[0,rows];
2 s+ z* f, W) }5 F4 S        machine.exitctrl:=ref(leave);
       
4 s0 [7 D# L2 F- f        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;
6 P" a( s; v0 s' O4 s  o        buf.capacity:=5000;
- {8 Y8 o# ?, |+ x& ^7 Z        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;
+ h2 j* p+ g7 a9 E1 send;