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

zooey

is
; @" Z  V! X6 D; C0 m        mark:boolean;
        dx,dy,ct:real;
" V7 j6 j# y5 }$ c    i,j,rows,lines:integer;
" K/ |$ i& e5 S    machinename,bufname:string;
: E' P, T+ ^: @) X9 ?    machine,buf:object;
0 z- O. S& R' x- I- b2 ndo
        current.eraselayer(1);
       
" x4 u- z. b) r) Z& t3 c3 x        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 Y! n3 U- a* e" w$ O) m                inspect messagebox("设施数目不对！请核查...,",50,13)
3 F2 j! |8 {# N                when 16 then
                        print"yes";
; g6 b- l/ ^% c) D- i. t                when 32 then
                        print"no";
. |8 x* [6 {# ]2 Q, n                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
( G* }: a4 ^7 R- C& r' v! G1 H        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
: J0 n  Q3 C: F" u$ D                machine:=str_to_obj(machinename);
' G3 M8 W/ |' i) }4 a                machine.deleteobject;
4 q2 D4 u* f# p" R3 U! [: J        end;
  r( Q1 Y$ d$ R; L        bufname:=sprint("BF",i);
4 q1 c1 V; i; ]( I; w& q+ n* Y        if existsobject(bufname) then
4 I) @1 _- r4 h. S6 I% ]6 l. \' L4 c                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 M) x5 G! e. m. G1 ~* s        next;
       
        dx:=0;
* ~4 V* Z/ E8 Q        dy:=0;
. G# @" |% ]& j2 ?, Y* J8 G        for i:=1 to number_of_machine loop
4 i( F4 ?5 J8 Y" n5 i+ r$ n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ @* S3 [- X" J" D3 R. ~# U                then
5 b) i: H/ ~: y5 F5 j  d                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ Y* I4 f8 \( d1 F2 Q* V0 s' h8 |7 `                        and activityspace[1,rows]<(1.05*y_max) then
2 L+ G6 u% @3 Q9 I6 h                        print activityspace[1,rows],",",activityspace[2,rows];
: e1 T8 G0 u9 t/ W                        ct:=activityspace[2,rows];
( P& M/ \& c; Y3 V& j: A/ O2 Y                        activityspace[2,rows]:=activityspace[1,rows];
8 G. n' D6 O0 a5 Q3 F/ i7 @                        activityspace[1,rows]:=ct;
                        mark:=true;
2 j7 X3 W, L1 K                        else*/
+ B" X/ r0 ~+ m                        y_max:=y_max+dy;
  v" U0 h8 H7 C7 I" y" r' T                        dx:=0;
                dy:=0;
) ?0 p4 ]0 \8 `5 l" L                        --end;
6 t8 m9 p2 a5 ]% k: S7 i7 h" W                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
0 W/ R* L& l( l3 |" u                end;
3 g1 K) W( `. u1 F  B                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
( |7 W6 Z7 N2 }2 I6 i        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);
( @. S) `( A/ @$ M5 z       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( r* |! [0 o3 T* f, B, F9 t: [                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
4 L! U1 e% U: x6 r  I# S                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
0 Z0 z: A3 ?- r# n3 j                        end;
                next;
        next;
       
        lines:=0;
) l  T- P0 A: D4 t        partstable.delete;
       
        for i:=1 to number_of_machine loop
2 O1 U% Z3 C) V. E. @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( r, B. S+ B+ u' q  h$ C5 e! q% ]+ k                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  H" I  O2 }. g, h2 c  w; \                        lines:=lines+1;
) s. U7 @. C' J! }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* p% T' g7 C9 m5 M+ p                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
: O: \+ v/ V/ A8 S8 `                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 }2 ~, L' ~: v                end;
# Y) x7 I. e' o. B2 Y( r* Q        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;标识符未知
% p" N% W& e9 v% m9 V$ S        machine.proctime:=5;
( p- m: e: T% g        machine.label:=activityspace[0,rows];
6 [8 T/ P/ ~2 o        machine.exitctrl:=ref(leave);
$ ]' d* s" n5 a3 K       
5 H- y3 |% ?( i2 c# H        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]);
  b. W: I( k1 d+ T3 h; H        buf.name:=bufname;
" r6 J; y8 ?! m, W# t        buf.capacity:=5000;
        buf.proctime:=0;
" J2 T1 o9 T% E' v$ r4 G; J        .materialflow.connector.connect(buf,machine);
       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) ?2 E! V3 P  p' ]next;
end;
, ^2 ~) K. ]. T; g# A( C