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

zooey

is
( L6 P6 ^  P9 a- o        mark:boolean;
, x4 j8 ?7 H9 \- q  Y        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 |! ]: ^  M7 w0 ^1 {do
+ R# Q- R! r4 j, c8 u- i6 {        current.eraselayer(1);
       
* a0 u' q, ~, H6 Q( m4 x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' b$ a4 F- l6 V9 D                inspect messagebox("设施数目不对！请核查...,",50,13)
9 g* a% ?: }; F, X                when 16 then
  c  C' l6 u$ R# Q                        print"yes";
3 {, N; \2 U0 z3 P2 v0 W                when 32 then
                        print"no";
6 U1 n; b# s7 I6 ]1 d                else
                        print"cancel";
                end;
7 y: `7 _( h% d                eventcontroller.stop;
        end;
       
- G* H& H5 V' U) n' [. S9 r) d        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
. J1 w4 N4 J# q  ~4 N- T2 p; E        if existsobject(machinename) then
, Z4 N" Y$ Q- x1 O( [0 D! Q! g  b                machine:=str_to_obj(machinename);
                machine.deleteobject;
* E. e& ^2 j6 A/ R! S- v9 t% v        end;
$ [) l" h5 E4 W$ _        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
- \9 j8 }* d4 s& u$ x; `9 }                buf.deleteobject;
        end;
' `9 ^2 w! u5 `' G        next;
- `- T8 C3 B. u: {       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# h6 T$ V( t2 R( j. D1 X, \                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
9 N7 t2 f/ i0 I, d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
; _* J2 C: l# Q' F5 {2 M+ ~                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( U9 a+ I5 i9 R                        activityspace[1,rows]:=ct;
2 m" {% d3 Q' k4 O  F                        mark:=true;
* ?* x" Q) W! g4 J                        else*/
, c  _2 _3 o8 z                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
' k0 o$ V* U  M                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;
  q8 i8 F& X& a. ^( x. C            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
+ t) u& F; h! E  ]8 I. f                /*if mark=true then
0 ]- [, X+ o& r! D% x4 V3 V4 Y                ct:=activityspace[2,rows];
/ L' z8 H; O# d4 v  H. C, g                        activityspace[2,rows]:=activityspace[1,rows];
$ s* K0 X3 S# n                        activityspace[1,rows]:=ct;
                        end;*/
) L  G2 m3 L- B0 B2 c        next;
* a) \4 u; |5 [5 }/ f( 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);
. j( c4 B& D4 x, \! {6 g/ V        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);
- _* ]) z4 R% ?! a* }0 Q       
& R  d- r; A% m+ p        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
- J, X; @. \! H& `- t8 u                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
$ V5 |  q+ q% b! _                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 X7 w' n2 X9 p# x+ u                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
' Z5 x9 n! B0 s' Q7 H                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
" t# {( z" I( _9 o                next;
        next;
  S/ P0 t$ T5 r- Z! ^/ q1 ?       
0 m4 x3 A/ {* M3 `& @5 U2 B( `        lines:=0;
        partstable.delete;
3 q9 S/ z3 w2 k" a       
9 w, ]& z# C1 c3 a. X; K/ k  V* m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ y2 R2 X! w, y4 R9 c9 I: R                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% H" t8 Q) I$ S& e                        if w_from_to_chart[j,rows]>0 then
5 }7 D* ]) W5 p' V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ F2 g& J4 n& u, W/ M  s                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
. {# ~( U) H( V0 [7 g        machinename:=sprint("M",rows);
/ y+ \8 ~/ E9 f/ Z. \        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]);
6 A: Q/ v0 j) M% j8 C  Z& J/ b        machine.name:=machinename;标识符未知
1 ?8 F  ^" p5 P8 E7 e3 D, t        machine.proctime:=5;
$ Z- s6 j8 e  E2 i" V: E& i        machine.label:=activityspace[0,rows];
. ?/ y  O! M( T+ w2 A9 }" G* Y% S        machine.exitctrl:=ref(leave);
: z& K6 b& }; T- T- V: ^       
        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]);
) |% u5 s7 ^% b/ F9 O        buf.name:=bufname;
0 U& y* j, a& U! K. A        buf.capacity:=5000;
$ n: y2 A. G# @% Q( R9 C        buf.proctime:=0;
( V: O# x! ^4 g+ m" [9 q+ \# Q! J; a        .materialflow.connector.connect(buf,machine);
! u7 T' x6 F, q; L# Q3 j7 k       
4 Y. t& n1 m$ S9 Y) S8 o, n        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 x1 V  Q  R2 K$ A, g+ H! {2 Rdy:=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;