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

zooey

is
) H; W6 i- Q. v# B: G        mark:boolean;
& U' t2 {) E$ _6 `" _        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
, y) r. Y- E$ c0 k0 f                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
  t/ S, `& p5 Z/ N9 f" X        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- s8 b  u- z  ?2 A4 |9 b# S. O        end;
; l, a) ]# k" w+ Q+ ~! y( Z        bufname:=sprint("BF",i);
3 q' q) d& A" A5 ]1 ^4 x9 M6 U$ |        if existsobject(bufname) then
( `0 w! s- G6 ?! J6 L4 D  M                buf:=str_to_obj(bufname);
  U: O, U) L1 n# p" r                buf.deleteobject;
2 [* G! x+ [' b# T9 o1 O( y% x        end;
        next;
8 P1 w: f+ v: t* c$ C- G) f$ b       
# q8 \. s7 L  H; _% `        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 n; ^/ M4 }5 w, O  U                --mark:=false;
% R( [# U, t% @& u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) O& {4 I% f# j                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
7 O) l2 z# X( P8 F, l# u                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
8 Y4 s! ]7 D' t( d, [5 g                        --end;
" \+ q, i- Q8 V1 H                end;
) C* G6 R; _- r; T4 C                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;
+ V. I( [  C" Z2 @* k            if activityspace[2,rows]>dy then
" J% s9 x$ ^. n  H2 l                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
7 ]  E3 `2 U- S                /*if mark=true then
                ct:=activityspace[2,rows];
. E6 _' P) w. m* M7 A# s                        activityspace[2,rows]:=activityspace[1,rows];
  N4 d( f9 Z1 ~8 I, x7 Y+ _                        activityspace[1,rows]:=ct;
9 Z2 P. H1 G% r                        end;*/
        next;
        y_max:=y_max+dy;
) }/ w) g5 h2 a6 z/ `0 _        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);
5 v1 X+ H! Y3 R4 J& U        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;
1 N7 ?; M- G" \4 R9 S, N        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
% C' J: [& O- g: \4 ?" j# u                        else
9 M' M; v& I. [% z                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# L' t& M) h+ R1 C                                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);
; V0 L, S5 S+ [4 F                        end;
                next;
        next;
7 I! D& `& L" e/ X$ @- t( n       
; ]; S- ?: Y9 e3 L+ N* Z! L        lines:=0;
3 J3 z$ ]4 H$ q8 X( K2 d. E  i, K        partstable.delete;
       
, v& J! L$ I+ t, a  d' r4 b        for i:=1 to number_of_machine loop
. D& ?+ T0 K7 B8 L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
$ K' i4 {* s9 Z, p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% o* W' k  }7 B2 e                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, ?4 B1 h. L; V& J8 {* X                        partstable[6,lines]:=j;
. b* S; B/ {: L. o$ m0 p                end;
        next;
: K" X3 O' {: m- B+ z+ j( ~        machinename:=sprint("M",rows);
0 }* Y' x6 X0 b! f% a! o$ X# V        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]);
* j) t3 i( ?8 r# E+ L0 `        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
  f' u9 u+ P4 A' u1 @( t: |       
0 ?' A/ V; A1 d3 k" y3 H9 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;
5 \6 F/ R2 v. r& S3 a6 R        buf.capacity:=5000;
        buf.proctime:=0;
7 L9 t8 A' y9 ]8 {4 }! [3 E        .materialflow.connector.connect(buf,machine);
$ {* C7 z. `7 L' p. K8 t# m       
! h7 z. X5 v. L. e        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;
7 ~3 D5 I# ~5 u4 u+ \" k7 ~end;