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

zooey

is
& w1 ^' g* C+ J        mark:boolean;
        dx,dy,ct:real;
5 }9 \5 f; `8 ^: x) @# q' V    i,j,rows,lines:integer;
    machinename,bufname:string;
) z7 t2 P1 ]( P. h8 A    machine,buf:object;
do
        current.eraselayer(1);
" h. j- {' P  B* v       
8 Q6 T( C' w6 c' k        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 t* G% M. F% d$ Q; @                inspect messagebox("设施数目不对！请核查...,",50,13)
  n7 L7 u; {/ w                when 16 then
3 f1 u# |) Z! f7 Y2 I! u* s                        print"yes";
                when 32 then
7 W' n8 Y& L: g6 \+ M; t; Y* w                        print"no";
0 K6 }2 S' O' H- y3 T5 k                else
3 G* P4 P6 }  _$ I, U" k4 q                        print"cancel";
( D2 D8 t% P6 m: P# x% _( r                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
5 G/ t# y. W* B5 |1 T* h, J2 {  R        machinename:=sprint("M",i);
        if existsobject(machinename) then
. r, g- q! [3 W5 e8 K- z                machine:=str_to_obj(machinename);
/ ^; ]1 V6 u8 H8 Q# F                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! \( q! s' z/ C: o5 {2 Z' F        if existsobject(bufname) then
( d* M' ?1 [- o, l) {                buf:=str_to_obj(bufname);
( t) V' d9 ]' |+ m) W  B                buf.deleteobject;
( R  b1 W# ~) J8 X1 [        end;
        next;
6 R9 f  `& T8 {3 }+ [       
        dx:=0;
% F3 G: f+ r6 Q/ C        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
- D* X+ p9 s$ W' m' h! m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 m) Y) c' N: D8 p" P$ n  ^) @                        and activityspace[1,rows]<(1.05*y_max) then
  k3 `6 O+ O  e& I- T0 W4 x/ O1 y2 c                        print activityspace[1,rows],",",activityspace[2,rows];
; e% E! }/ K& D5 T) G: G! V                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
  V! x0 d( f% U                        else*/
6 p( I- O. w  g  w                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
: H- _5 w0 {: f1 E3 ~% y' y# N$ v4 [                end;
& W/ ]4 s$ k/ J1 Z  W( T; x, N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
( n$ ^+ \6 v: s. V' W                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
" K* m. z# X% ]/ @) d; x9 O0 g1 k                        dy:=activityspace[2,rows];
7 X( h$ ]* X6 p+ S$ d! g2 t, O                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% Z( P. I  ]; Y8 I5 C                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ R  ^  c" E& ?9 r4 a; }                        activityspace[1,rows]:=ct;
& M6 |6 {; {4 a5 X; L6 L( }                        end;*/
        next;
% j; F& ~1 A: Y7 |        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);
; q  \3 [/ R3 f. L        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, c( {2 G# p  i6 H6 }- ]# R1 I3 h: c$ Y       
        rows:=0;
        lines:=0;
; K% ?/ n% S7 r! u, G5 D9 W        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ f# r) `, d9 U4 O- z5 y                        if j=i then
- i0 i: L9 w/ m$ d7 o                                d_from_to_chart[j,i]:=0;
                        else
  D8 }, d$ D/ z  s                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 n# ~" k1 w: w7 T" V% [                                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;
' `$ V5 W  z$ e) e, N4 y        next;
( N  v" M3 o! ~3 r1 U6 n. n% o       
        lines:=0;
0 a9 |! }1 M% W        partstable.delete;
       
, i) L" I/ H; h* J0 e        for i:=1 to number_of_machine loop
  j# Q. E; ~5 B; z4 ^, R: D* L5 ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( W# ?2 p  e6 ^  z& r# r                for j:=1 to number_of_machine loop
; i0 |. T/ t- A) ~8 G  Q& m) \                        if w_from_to_chart[j,rows]>0 then
8 |, \. }0 z2 |! V4 E: Q; p& T5 s) r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 s3 `) v  Z  y7 T! X, ?  E                        partstable[2,lines]:=w_from_to_chart[j,rows];
) v8 x5 n. Z3 m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
0 j9 a- u! `/ O: v. ~- V* I# U0 F                        partstable[6,lines]:=j;
% t" }  R- F" |2 u4 {7 U                end;
        next;
        machinename:=sprint("M",rows);
( A& f& q" z( a- u# @        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;标识符未知
, g( g4 F! F, C% a9 x+ i        machine.proctime:=5;
" d1 J/ n7 o' c        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 ]* }" v& E" {: Y. o7 }% F9 `, A       
        bufname:=sprint("BF",rows);
) M/ t/ Y, ?7 V- p6 W1 g        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 i2 b8 g  ^# Y        buf.capacity:=5000;
- y6 N+ ?2 ~" P! F/ c/ m        buf.proctime:=0;
) v6 `3 G7 z* C& Q3 L        .materialflow.connector.connect(buf,machine);
       
9 R  V' G/ O. j9 D        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;
0 ^& Y1 \' l, G' Mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
, v( @. P, }) |end;
1 b( M" s- r% n2 t) D; }) `