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

zooey

is
3 j) W. o3 _6 \* r! s. `( o5 W. e        mark:boolean;
0 ~# Z0 i$ i/ o* \0 q' W        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
( a( A% r. c9 P/ A0 o    machine,buf:object;
0 n* J+ {, B9 i' Edo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, e: q& h* t4 f+ ~! K                inspect messagebox("设施数目不对！请核查...,",50,13)
7 x4 V  P! [7 O+ z                when 16 then
                        print"yes";
, B8 A" a% b( ^1 q4 n                when 32 then
                        print"no";
) @6 m0 Z, K% J# S. d' q4 w" J                else
: g6 _  f% ^; \# c! U% M  b                        print"cancel";
( ?5 L! O* A4 c+ v; u                end;
                eventcontroller.stop;
        end;
       
& G' @! Z- H4 a- ?        for i:=1 to number_of_machine loop
, `# b" u, @8 Y0 t* v# a+ ~" l        machinename:=sprint("M",i);
  N: T) R2 k% I& V3 P        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 U1 x. T6 b1 ~. j+ Y  k        bufname:=sprint("BF",i);
. p) h6 p  g( i  p! P, C( O% R        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; z9 m+ a; p+ i* c) N+ l                buf.deleteobject;
7 Z5 w' q; Z2 g8 P1 A        end;
        next;
       
        dx:=0;
        dy:=0;
5 |5 R7 i9 X& k% Z0 [        for i:=1 to number_of_machine loop
5 C" e' m6 m: B  G8 Z) C3 _' K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# ?" }" A1 _* Z! m: x+ W                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) u2 A) D3 e! ?  g                then
0 L; _0 ^0 ]* j+ c- i# \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, H  r( r- {/ C* T( W5 H* \/ Y1 A                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) y0 \9 N( H! ^2 {, U( K                        activityspace[2,rows]:=activityspace[1,rows];
; l3 `0 h7 i# a0 O0 H- ~6 h                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 v/ t  I* w, o$ R- `( S5 z                        y_max:=y_max+dy;
8 s* ^. o7 P) L                        dx:=0;
" O/ x2 @8 v  {0 @8 {: `, J, e                dy:=0;
                        --end;
! {& C& F" U) ~1 b                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;
+ v1 n1 }+ c' O" G* W            if activityspace[2,rows]>dy then
" d2 L, r9 t1 Y                        dy:=activityspace[2,rows];
                end;
8 I3 E! R+ C' B  W! m& I5 ?5 W                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
! x, P. L- r; S( m8 l# m! G: T- V                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" i, E' y6 f) _* K& b2 X                        end;*/
* r9 E1 j* n) x        next;
        y_max:=y_max+dy;
; a5 c/ \: T" I2 p        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;
1 U! \2 }( D1 ]. y$ |# i; y        lines:=0;
1 ^2 v! `! `# p( O( ?, ?        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;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 y! N  y- d# E' c5 c: L9 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);
; Z0 r9 ~1 A# G  e                        end;
+ n3 U- S3 Y& f; e7 z5 q                next;
        next;
       
        lines:=0;
* Y% q2 l6 A5 M# _0 W' S" b        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! |, r: I  A6 w  P                machinesequence[2,i]:=rows;
/ \/ K% C/ u% f0 Y                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
3 H6 r6 y+ J  w% s! M                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 {  ~- d/ ]# z+ Z. i/ |, e                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
9 W7 M: C/ \% n6 g6 A! c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( k: ^! C6 ]. G, B                end;
2 U6 y' j' l7 @. R- W0 i( d        next;
0 Z/ R% t' f% b6 N        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]);
3 u7 C8 u5 q: c( X" P" x. O) }        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( B- a  l% |8 w, ]* B6 X       
) w6 l- D: I% V# \        bufname:=sprint("BF",rows);
9 i+ \+ `3 v$ b; T! g' l9 E        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]);
+ S6 C0 {% e" q6 ^6 i. u        buf.name:=bufname;
* _& L3 p8 F: c- h, s: s        buf.capacity:=5000;
5 Q4 c! S2 E6 F        buf.proctime:=0;
  W9 n( I/ M8 m" I9 K) c4 u( g        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, ]: c6 @4 V/ S* w% Q8 {6 hdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 i" R7 `. e5 ?) T% ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 `& L$ e3 b! o6 }% _7 _5 _, jnext;
2 C1 c2 x+ r, Jend;