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

zooey

is
7 t& k. V6 L! q  `9 `' |1 I6 Z* V        mark:boolean;
        dx,dy,ct:real;
$ g- B" d  v0 h, f1 C    i,j,rows,lines:integer;
    machinename,bufname:string;
8 A7 _. _4 }1 A3 b* t* z; v9 W    machine,buf:object;
8 i  u% n8 J5 ]& Odo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 H3 O1 [( R& G) `                inspect messagebox("设施数目不对！请核查...,",50,13)
. Q7 \. A* k6 z  C* {( |                when 16 then
                        print"yes";
                when 32 then
                        print"no";
+ w& K& V  C8 [/ g  \                else
, U2 Q" r* P" V' e7 K  S                        print"cancel";
                end;
                eventcontroller.stop;
2 `# A0 M7 ~+ [5 Z" q        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
. Y2 V' h8 J8 B                machine:=str_to_obj(machinename);
6 w% q. t7 N" l# p) h2 t7 A                machine.deleteobject;
# u7 E. E8 F2 q% x" }        end;
; \) j! S3 [5 S% _! J        bufname:=sprint("BF",i);
7 H1 D) W6 J) z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 Z3 w; T+ a! j, J4 T5 ^                buf.deleteobject;
# z3 |2 x! b4 a2 A$ w6 c" s        end;
        next;
       
+ E# b% n: u& N; V: \' w, C6 P2 _        dx:=0;
        dy:=0;
% p# f4 O! a- G7 M$ U5 {( E5 ]( S        for i:=1 to number_of_machine loop
8 I% t" N/ m  x( C2 T2 Z# S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* L6 F" d/ U$ ?$ n                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
  S2 q& O% e4 |. N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* y! ^: f4 N, R1 e8 R6 Q                        and activityspace[1,rows]<(1.05*y_max) then
$ }5 S% ^  A3 u5 x% {( {" B/ P3 E" X                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" m: i" K1 {" p6 f6 L, b2 n; v9 z                        activityspace[1,rows]:=ct;
                        mark:=true;
) h7 q* W9 v5 t8 ]! e/ Z# a                        else*/
% Q0 U- ]8 E" [9 Y, ]7 f                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
# }6 F1 g* A7 T- B+ n                        --end;
3 n, B! ~0 s& z7 A' O6 |) e* b                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;
; \# E( C( z" J3 e! `            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
. \3 c- x) w5 Y) r. h                dx:=dx+activityspace[1,rows];
& `" r3 p4 S# Y% V5 R% b1 b                /*if mark=true then
- V; [/ g9 k6 `9 G                ct:=activityspace[2,rows];
4 C4 h2 c+ Z! }" L' z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 U; z# G' o! O5 w                        end;*/
3 e  |1 q0 f" [8 x8 i        next;
) p8 d' F# X& J5 u; q' }        y_max:=y_max+dy;
, z' }5 q& i& n3 a; V        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);
( b/ C: b+ V4 i8 X        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);
( z! y& ^9 u/ C* ]4 b1 ?; ^3 P       
        rows:=0;
        lines:=0;
. _  p3 V- @4 @" V+ a) m4 k        for i:=1 to number_of_machine loop
* O9 P( u* Q6 {5 ?6 X                for j:=1 to number_of_machine loop
                        if j=i then
1 U: T1 [% Y- Y) e                                d_from_to_chart[j,i]:=0;
+ T, M0 w8 R* ]8 ?8 |1 s7 M                        else
/ }6 \! ^/ R" K5 d0 q2 C4 @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ ^7 K! }1 w+ b                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 j) J0 n$ K7 a! {% O" D3 b                                d_from_to_chart[j,i]:=abs(dx-dy);
; d* n- o$ ^# U2 j) R6 s                        end;
( d$ N, ^, g" N" {& u7 \. K+ r                next;
- f  }/ T9 I" ]) C( b        next;
       
        lines:=0;
        partstable.delete;
       
1 e7 Z( G8 u( p+ ]        for i:=1 to number_of_machine loop
+ z' A6 E# S4 u" o! W0 x& i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 }+ o' d7 q- B# E+ J                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( X% e5 C) W2 R9 d( V% r) i* [1 f3 L0 m                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
, c6 o2 Q6 _$ c5 K# ~  q. V                        partstable[6,lines]:=j;
9 @% p" D- n! `$ _                end;
        next;
- R' x) ?- R, y1 y        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;标识符未知
6 g8 c) F, n1 R        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
3 g; O, s4 E+ d. m        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]);
# C( O' W6 o0 }' c& ?1 _        buf.name:=bufname;
# _7 y9 A1 p' v+ j% ^4 K# T        buf.capacity:=5000;
! o4 d3 N0 v1 b        buf.proctime:=0;
' h! B8 r' h0 }$ U% I$ C4 @- J        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ B! t6 Q2 B  U8 e3 B" }7 H4 Z: @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);
next;
end;
' t: }/ `- I7 S8 V1 ^3 n