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

zooey

is
, z) g1 c7 A9 }        mark:boolean;
( e# u3 C# ^9 @  i4 O: y: O* R  l9 j$ o1 N        dx,dy,ct:real;
    i,j,rows,lines:integer;
# {' M3 L, c# d1 G" P* Y& B    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
4 _5 Q8 N) H. N4 Q/ A       
9 t+ k: P- R* |: @. \! `        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 x) Y3 M* Y8 r                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
1 v1 T1 l" L, Y6 i; C5 F) s# Q                        print"no";
1 O. W( ]9 k0 R& O* J                else
                        print"cancel";
. d, @9 ]* v4 ?0 x3 n  ^( B                end;
                eventcontroller.stop;
: l* O, }  G7 x6 L* S. O$ |        end;
       
- O( I% D' [( P2 G1 {8 E( v        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
# E3 y* {+ F' w& _# r& j                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
( a) c  d1 j) i        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: X+ l5 @, A. z' f6 s3 j                buf.deleteobject;
0 R3 F0 I+ I) t8 d        end;
( c+ h' {6 ]1 D        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 ^9 r7 C9 _9 P8 m1 n: j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! _: r, i) t$ _0 P                        and activityspace[1,rows]<(1.05*y_max) then
; N) M; v8 L  J/ b, E' l- L# @# x                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- [4 H/ W/ w  z9 \) s$ [& L4 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
. M9 A5 l  S* n; o- Q% f4 e                        else*/
                        y_max:=y_max+dy;
2 w6 E7 m  R, N6 ^7 q( ^! C                        dx:=0;
: r9 m8 V! l9 V+ F1 v0 ^                dy:=0;
) h4 w$ y8 Y9 K! e% K0 t' o                        --end;
* \2 T5 V* g4 q9 K: x/ S2 J! |( u                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;
. m- L4 A: b, B, b% w; [. Q4 O            if activityspace[2,rows]>dy then
; M9 _- }: T  s3 s2 ^  M                        dy:=activityspace[2,rows];
                end;
5 ?% u# n7 y/ m) F4 {5 B                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% ?1 ?6 {9 s- c9 S: e3 ~4 t- H% z                ct:=activityspace[2,rows];
7 r& V& E( r5 f2 @9 @$ H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
) f* I- y' q  G9 [. n  E        next;
        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);
+ `) t+ o* ^" u6 C9 b4 H. r        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);
       
! N5 m& C. _2 w6 x( X5 F        rows:=0;
" L- d7 F  c# d4 Z- \        lines:=0;
5 E. k% p9 C( s* p        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 W' m8 t) @# y0 l5 P3 d$ [                        else
- O+ e! u0 [8 J. Y/ ^                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 u3 e1 T! {% r" a& ~, w! U5 [                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% H5 e. f7 Z2 s1 _, ]* I; B+ L                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
4 ^4 j* s3 S* J2 G( z5 }  n; N        next;
       
. x* O1 ]  S/ y3 K0 ]0 K1 e! }* q        lines:=0;
% g( f# d& S7 _8 B9 [( p        partstable.delete;
       
2 f& X* _5 {6 G6 P6 n        for i:=1 to number_of_machine loop
; {( ?6 a; e# V, h) ]( j7 l& y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. D4 p" t$ i( X; ^                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
" n" q8 ]% b5 b9 `2 L                        if w_from_to_chart[j,rows]>0 then
: w+ E  ~- ?  Z' X6 L                        lines:=lines+1;
/ h9 c7 M8 O/ Q6 ?                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, R' t9 N8 Y7 a/ c* z- N                        partstable[3,lines]:=sprint("parts");
0 d# d8 c8 a5 }+ N% h/ T0 A                        partstable[5,lines]:=rows;
) F9 `' V& T4 F                        partstable[6,lines]:=j;
3 Z# ]2 |' J/ u1 }9 D# s( D                end;
5 X3 {, D" m, m. k1 J- q  M        next;
        machinename:=sprint("M",rows);
5 m/ X- I* U1 N2 z! M        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]);
5 s8 t! I: z# M& ~- P        machine.name:=machinename;标识符未知
: |5 O/ d( b5 r& \4 Z! k, J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) \5 F$ B% U- B0 @/ H  N4 j1 Q2 f  h        machine.exitctrl:=ref(leave);
/ x, p- A4 \6 Z2 ~       
        bufname:=sprint("BF",rows);
4 e+ U4 E3 M6 i/ I) T7 x+ P& p, h        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]);
4 V; P  P( [1 F  m1 v* K5 \        buf.name:=bufname;
. D; r6 _0 \$ z6 q( D8 s        buf.capacity:=5000;
% M, t+ i% ^/ @  D/ m- _6 r8 F        buf.proctime:=0;
# T  c' b5 p5 {& P) g# x" ^        .materialflow.connector.connect(buf,machine);
$ x8 |5 [$ a6 E5 A       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! k/ c0 ?& N: K4 q# \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);
6 Y+ t( X! Y7 O/ N7 n- A! ?2 C3 |next;
end;