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

zooey

is
3 J6 J( S3 P! c+ u7 U# }# t: h        mark:boolean;
: n. U4 \" o9 n! {0 R# d8 ^        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ \: H9 |+ ~5 b) d3 U    machinename,bufname:string;
4 b5 G% K) k0 h# J6 A5 A    machine,buf:object;
1 P" \/ t1 H( _/ }- d7 Tdo
        current.eraselayer(1);
       
$ n3 w8 r5 Q/ z( J0 b% y* n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; v. Q2 ]- R. T' d$ s                when 16 then
) f# L( h/ S! e0 \9 C1 w                        print"yes";
( Z: o# f7 P1 j4 A                when 32 then
                        print"no";
* z: w7 q: l3 D% d$ G                else
% C7 Z- Z/ R9 N' E1 x9 a                        print"cancel";
0 w; ~5 i' U9 A1 Q                end;
2 }1 s2 G2 n. ?0 R9 K' }# q# w                eventcontroller.stop;
        end;
       
0 p$ @* X9 [: s6 B6 Q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 j& {5 w5 n& k. v4 d        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 W- Z& A# ^1 e# x. Y4 b. w                buf.deleteobject;
        end;
        next;
  D# n% P  j6 |" v4 P# l4 ?       
        dx:=0;
: s) ]6 N6 E4 t% z" @" y        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: m8 n) U) k  U8 t: _' H4 v6 R                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 Q6 g$ K7 \1 r4 B                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
! D$ g+ u- b# J+ z& G4 ^: I1 u6 E& A                        ct:=activityspace[2,rows];
. z+ E, Z6 U$ z' `; j& _$ y" N                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 m7 u* T$ `8 b1 n4 X0 s2 O/ P                        else*/
$ n3 y5 p  P) j$ E                        y_max:=y_max+dy;
  K; u% m* G  X' }; T* G                        dx:=0;
                dy:=0;
                        --end;
                end;
6 c9 I0 B. i* X+ |                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;
8 t+ v+ l: r1 w( n/ T            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
3 B+ N. ]1 Y, o, z6 G! J! R                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  D5 ^4 J7 O  v5 s  W6 i' ~                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# @; w- {: B+ X$ S; W                        end;*/
0 U: U" i6 X" p& @        next;
/ X# d, b: P4 T        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);
; V/ o% n9 w6 L7 x# G9 O+ j        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);
6 X; `/ o9 o9 Q+ C7 C- z3 W       
% F/ L4 s  r. d0 d        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ P* N, r+ C* l# m' O  w                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 j( ?3 n* n5 }. K, m# i( C                        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);
4 R& X% m- K7 t                        end;
                next;
* f3 |, ~& l2 I0 k* y+ s+ J+ ]8 N" `        next;
       
$ q& t$ D1 S( i1 Q6 d1 n+ Z. ~        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
' j( d% n: [) G+ q/ p- E0 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
! X8 K) _3 B$ A/ |1 T5 w( `                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 a6 N( W7 x3 O# T# B5 T                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. b2 p0 U* E& W: M3 q4 W                        partstable[3,lines]:=sprint("parts");
1 `' g0 @/ I" ~; X4 W8 l                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
3 c# w- B) w0 U$ K; [, j        machinename:=sprint("M",rows);
3 D' u# F4 A4 ]# g0 ^+ P% E        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]);
: h# a- i3 V; t3 K( z" V  {! Y        machine.name:=machinename;标识符未知
        machine.proctime:=5;
$ N, R# n: \+ S* C3 w4 [- V) Z' O        machine.label:=activityspace[0,rows];
; K1 n$ I0 [9 |# K$ d        machine.exitctrl:=ref(leave);
       
        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]);
" j4 [1 H- L. J, ^6 A4 n; e# a        buf.name:=bufname;
        buf.capacity:=5000;
5 X; p! Z! |9 Q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
4 t. N: Q; t7 p# D1 s- G, }       
/ J8 f" y! z/ r( b3 ^: v# b* ]* H        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;
# R. F! S( }8 Y. ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
1 V+ I1 V3 O% J) a* B0 m; J# eend;