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

zooey

is
4 G: Q) y8 A5 D: U# o, V        mark:boolean;
) D+ I( Z7 d& }# k- v8 `# a        dx,dy,ct:real;
* D" x( i1 {; u. e4 r9 Z/ h. b& p; |    i,j,rows,lines:integer;
$ f( F# \1 Q- `+ z6 n9 h    machinename,bufname:string;
. @! S$ }4 Z9 g( ]/ j8 u    machine,buf:object;
do
9 u( m- `: N- i+ o        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";
* F4 C* L8 z5 i3 t: _5 P                else
                        print"cancel";
                end;
5 b; k/ m. a8 f                eventcontroller.stop;
% p- Y0 \, N' l  a' u        end;
$ P: H& T  }6 ~       
; t+ A; a. X5 E0 |        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 P( }' i, K9 y8 J5 K( `                machine.deleteobject;
        end;
- L2 l% Z! ~% J' B0 }        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% V* r1 ~* Q" D1 E4 c; e% w                buf.deleteobject;
& h9 p7 b( X6 l! i( d        end;
        next;
9 X) a0 s9 ^/ E6 ~/ n6 u7 i       
4 `9 k! F3 N/ v) d. O% j        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
' m, ]4 E+ l9 u3 C) V* d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% s+ o& f4 k$ p3 l1 C! X                --mark:=false;
# P% h( i) `9 X0 ^0 F, l: `8 f1 ~                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! s5 w+ g  P9 y4 r8 u2 [+ E                then
$ m1 ?% }9 @' \- [: X' |                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 c& o" j) p4 h$ @                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
# h& z& |8 q4 q3 y0 m                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 Z. T6 S2 A' I                        activityspace[1,rows]:=ct;
$ Y) o! k1 V( ?' X4 r% F                        mark:=true;
* p2 \/ W1 y. Z8 x; Q                        else*/
                        y_max:=y_max+dy;
- O  {; i( ]' ~" k5 \* G                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% b& M; ?0 o- f% J& s8 ?1 ^                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ l, v7 Y7 k3 J5 @            if activityspace[2,rows]>dy then
. z# E- n& ]9 t. l$ k! S! V3 q                        dy:=activityspace[2,rows];
3 r* x; `* U0 P- K* M0 U3 n5 `, w" k                end;
/ S% b" N2 ]5 K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; Z0 \/ G% i& m" n5 @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
, |# L7 l& H, l4 m        next;
" G" r) W( ?0 w: d) o' D8 J        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);
  `8 i8 Y  b" J! M$ M        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);
/ V% z! w4 U( O( o' ~6 q       
& F' Z  j- y% R7 N9 P! a        rows:=0;
1 R% f8 v0 y& Y% s        lines:=0;
( e3 a+ E  ?8 V        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; P6 X2 G4 z, I6 F1 M                        if j=i then
                                d_from_to_chart[j,i]:=0;
) w+ f: `% `# Z                        else
" ~6 P. |4 h9 A) O                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ }: X( \$ x; _  }7 V4 k$ e  U% h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' }4 m. ?7 }) P$ ~. M                                d_from_to_chart[j,i]:=abs(dx-dy);
: i. }9 M; ?4 t) |  `3 G                        end;
+ o& G/ b6 c- H! H" a& c4 i: g                next;
        next;
       
- {( m& Q. f" J3 @4 ~3 P        lines:=0;
        partstable.delete;
( F+ u5 g2 h# l# {1 z, c  |       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( Z8 M0 G& Q  A8 m                machinesequence[2,i]:=rows;
% s' _+ h0 K1 Q; r                for j:=1 to number_of_machine loop
; V/ t" \5 [! _                        if w_from_to_chart[j,rows]>0 then
  q# i$ ?% `& \- _" e2 a4 I! N                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) V$ ?2 Z8 L8 _# s                        partstable[2,lines]:=w_from_to_chart[j,rows];
( b; z! @. R' }8 C) {: A% w                        partstable[3,lines]:=sprint("parts");
+ n7 W! u! V" f/ X  K* H' N# ^0 y                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
6 X! t3 Z9 f4 `8 u                end;
' A4 @' g4 l0 {5 X2 |        next;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
5 m0 G3 _3 M7 T! l6 a7 S( U) s       
  R8 L0 ~4 e) E8 I, g7 [        bufname:=sprint("BF",rows);
5 z) k" g& D; s3 U  z) M0 S7 Z7 }        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;
        buf.capacity:=5000;
/ B# G- ]( U5 l* C: U! d        buf.proctime:=0;
; R; n3 y1 R# [) i( i* l        .materialflow.connector.connect(buf,machine);
2 H8 m6 t! P( P  ?# U  f       
        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;
; U+ v  z4 ~+ ?5 K; e1 mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 P1 T) m  \5 snext;
end;