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

zooey

is
( m* N% h. B- l2 C9 A        mark:boolean;
        dx,dy,ct:real;
. \8 f9 n$ T% z8 t6 }/ X' \$ d$ [    i,j,rows,lines:integer;
! ~! O) {! P8 G2 T    machinename,bufname:string;
) d) S+ w: g9 r9 g    machine,buf:object;
. U' q2 h2 q3 G3 @+ o$ U3 A. ?do
        current.eraselayer(1);
# I- V# p1 T  H       
2 c: @- S; G' N3 k6 S% _; V5 ?) }        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
( _* k& t$ ?% e# b, z% a$ d                when 16 then
/ b" }* `0 }0 Z2 q9 _                        print"yes";
  \( |  [$ D$ F0 T( z                when 32 then
6 f6 k# i6 j0 h7 c6 [0 y! L' J                        print"no";
                else
                        print"cancel";
% Z; s3 G4 r4 W; s                end;
) B$ q" X$ c: m: n; L. g9 N                eventcontroller.stop;
0 {- s$ y/ B& z( ]        end;
/ Q2 `( h! d, L" d4 i: P" K  Y       
2 c+ S$ D. r) b7 |2 C  }# P6 C9 t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 t- D/ ]4 ?0 P, E        if existsobject(machinename) then
* V5 F$ `* l% t9 i6 g( N: O4 E                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
9 ^! H! ^  o6 y, s        end;
7 Q' `4 e. I; C. a6 V! {$ P9 T        next;
       
! D8 w' A: e$ z& n        dx:=0;
# R! C; L+ U; u8 s1 W$ y8 E        dy:=0;
        for i:=1 to number_of_machine loop
2 m7 a4 l! y" f$ E8 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- ?$ o. ~% M' V" U& i                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 s2 O8 @' Y2 j2 M& W) t7 B                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% L' W7 {- [! Z1 H, }                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; d9 S8 j8 \7 u% ^                        activityspace[1,rows]:=ct;
& ]* G( \" d2 N                        mark:=true;
9 u0 ]! k( S7 `  F! t0 B5 i" P- Q                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
9 u; E) P- ^& f/ Q7 t                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' c2 ^( A% \( ]$ A7 ^  G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
: N. d; r' I4 S0 P. j& M; D- ]7 y5 o                        dy:=activityspace[2,rows];
1 w8 L% V- [+ i0 A3 `/ Z/ W                end;
% Q4 U6 p. E4 s1 V                dx:=dx+activityspace[1,rows];
- U5 v* z+ D2 I; [; v1 x& g: ?! v' }                /*if mark=true then
                ct:=activityspace[2,rows];
9 p5 `. D  t" E5 o7 V8 n; V                        activityspace[2,rows]:=activityspace[1,rows];
1 G3 c  e, G7 B/ S/ {+ Z! F                        activityspace[1,rows]:=ct;
                        end;*/
& V* _) H0 b, L; @# ^        next;
        y_max:=y_max+dy;
' i: G8 D# l. N5 \        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);
1 V9 S4 ^! W5 i- {        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);
       
" `+ {+ i& v- [6 b1 _* Q' ]        rows:=0;
! P( f! c4 @2 @& i. M        lines:=0;
2 ?3 j6 d+ |+ U( `2 y        for i:=1 to number_of_machine loop
3 f* T' M! w0 b( g/ `                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 T+ z- |$ V  c4 \* f  v                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' D, T; ~0 m9 |4 }( D0 @* L                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, q4 Z- Q' b3 l                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
4 Q. ?0 Y5 x3 g7 x7 _  ~' K5 ~       
, h/ j  D6 T0 u$ K+ W4 |        lines:=0;
+ c- H. a$ y( Y4 ^! t* `        partstable.delete;
* @8 g* D- }) d, d+ a$ w2 s       
        for i:=1 to number_of_machine loop
+ E  J5 U, F. s5 I3 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ X2 F- L7 u5 P                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  e4 P% K/ {/ `0 u% A/ A+ D, W3 d8 P: E                        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");
                        partstable[5,lines]:=rows;
; V# r2 y$ y' O! \/ d                        partstable[6,lines]:=j;
                end;
& H8 d; j, j' Q) d7 E" n        next;
        machinename:=sprint("M",rows);
" ~# W! A; n) f5 r. 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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 ~' e7 |  m* d6 l5 ~        machine.exitctrl:=ref(leave);
& N2 P8 Z; S) i5 |% }2 I1 H! e       
        bufname:=sprint("BF",rows);
' j3 r3 G8 M. ~8 M  u        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;
( T! j' T- }1 Z  Y$ f- b        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
* T0 L: M- O' j9 I        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  H) M% Y) F4 Ody:=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;
end;