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

zooey

is
2 f9 P' u" n6 L5 R7 x" x$ e8 U        mark:boolean;
        dx,dy,ct:real;
' L$ m; n( g/ w7 U7 L& u    i,j,rows,lines:integer;
    machinename,bufname:string;
3 x6 B' X/ ^$ y0 ^  @- c: f    machine,buf:object;
do
        current.eraselayer(1);
! r4 s7 n* [! k/ z. [+ R9 t0 f       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 s% p0 f+ @! [1 d+ n6 J. e1 D                inspect messagebox("设施数目不对！请核查...,",50,13)
# r8 {; B5 @& c/ k6 E1 \                when 16 then
: c: }1 R% D( ^" H2 b                        print"yes";
" u) s4 O1 R  Z) V7 Z                when 32 then
                        print"no";
+ ]$ c. [9 V) }) v% c# T/ I                else
3 Y7 a; A9 v. K' a9 p- o                        print"cancel";
                end;
/ t/ W6 P( h0 [/ Z4 B                eventcontroller.stop;
        end;
7 n' Y' J+ k) M       
& r" j7 Q7 D: d$ T& ~        for i:=1 to number_of_machine loop
+ Q4 w1 [! E) q% p- K        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
3 t& {# }; r$ }3 O/ X        if existsobject(bufname) then
8 Z& q8 l  A. O- L( `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
8 p# O( y  ]. L0 S' z        next;
. g& f8 ?- f0 v9 I       
2 I. ^2 }. P* x8 C6 q+ z* B        dx:=0;
, _$ `7 G& U6 [        dy:=0;
        for i:=1 to number_of_machine loop
2 ]" d8 y: G( h8 K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ i* r$ W" W/ ~& \% m: _                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! L. P# c6 t$ @$ B                then
3 i% }& z+ e: A" e( V+ `                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
9 m% @. Q/ z4 J7 ^0 h4 H                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% A2 K, f0 {, c9 a# a# p, o: g; ^                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
' P5 r0 \8 v+ M& J                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
( F' L; Z9 b; Z2 p                        dy:=activityspace[2,rows];
& j" {; E8 _9 ?" `                end;
- t9 E/ B: p% G4 Y                dx:=dx+activityspace[1,rows];
. a5 K3 F3 F2 `$ q' R; U                /*if mark=true then
                ct:=activityspace[2,rows];
/ J2 V3 f9 T+ D0 S! E& M. h: h                        activityspace[2,rows]:=activityspace[1,rows];
  L* ?1 v, I$ I% w( w; ~+ C                        activityspace[1,rows]:=ct;
% _; j3 ?% X+ p3 }, R                        end;*/
! L6 k4 D( N, L. O0 z# f        next;
# i* f. B+ `$ E9 F, w/ d        y_max:=y_max+dy;
0 \1 _) M1 A# `& e; w        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);
* W# [: ?" k0 Y: h5 N9 L: ^       
        rows:=0;
        lines:=0;
3 \* H$ N* r  v) d" L        for i:=1 to number_of_machine loop
  b3 d* D' o  h4 c/ }) p* ~% Z+ Y                for j:=1 to number_of_machine loop
                        if j=i then
8 S" W$ j' H  n& Y7 A                                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);
                        end;
                next;
5 v3 z; X% {" N- V0 m1 D        next;
$ E$ E: H( h) a7 j- U2 o! [. C       
        lines:=0;
" c  R/ o: z; F! n5 t* p- S        partstable.delete;
/ S% r  X: |2 p9 f9 ]4 ^. O       
' e1 C. ^# v- n+ h: G. d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 r# M- q- t5 U6 a1 ]                        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];
                        partstable[3,lines]:=sprint("parts");
+ K/ a' p# ^; \( J( }2 Q                        partstable[5,lines]:=rows;
) a4 n- ]( ~2 t" X                        partstable[6,lines]:=j;
                end;
* k% @% `0 t9 L; \# W        next;
        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]);
% K1 J) R$ l2 _& Q- j        machine.name:=machinename;标识符未知
3 l1 h2 `  A1 _        machine.proctime:=5;
$ t8 P# H8 e- J  W        machine.label:=activityspace[0,rows];
! o7 \" X" K5 W2 M2 n$ O6 Y7 v  s1 a        machine.exitctrl:=ref(leave);
       
! S  G, m3 M& m6 d        bufname:=sprint("BF",rows);
; |0 p% m- y+ R) Y! A6 @* A. i        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;
, U% ?7 H6 Y  G: K1 L: x# B$ H        buf.capacity:=5000;
' C. ~" b5 S: ]- G- k' w+ y6 s        buf.proctime:=0;
: B/ x" D8 R2 j6 I5 v2 @( G        .materialflow.connector.connect(buf,machine);
  l- i! D7 U  B% l. E: U1 ]5 r9 A       
( n$ j  M+ r, g* ^- [: ~! G( A        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 @9 t2 c. N) w! s1 ?+ I% ddy:=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;
5 T5 k1 B: l3 e- Z  Q5 D8 _end;