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

zooey

is
  s1 u/ G6 @" p' W2 O6 D) L: b        mark:boolean;
" ~  Z' v3 B# w0 W        dx,dy,ct:real;
8 [( r4 N: `' u; O* g' \# r* G7 l    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
8 ~; N3 r( K+ s' G% J( R: rdo
2 `$ i% N4 _: i/ K- ~9 f) K9 G        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; C- g* L% b8 N5 T- W( t# b! Z                inspect messagebox("设施数目不对！请核查...,",50,13)
' S9 V& z+ _; U# F& q6 ~# T6 [                when 16 then
                        print"yes";
                when 32 then
$ w- g6 i# L# \3 D, O                        print"no";
& L. c. ^; ~! |0 |, Z5 {( y                else
                        print"cancel";
. R6 U$ n; m2 i* k% c                end;
; u9 i3 p' u4 y  S$ U' h                eventcontroller.stop;
        end;
" d+ y1 t+ d* Y# ^       
: k& z% h7 i) c, D+ n; _        for i:=1 to number_of_machine loop
, ?4 O" B. m* T7 k" H* O2 j  C        machinename:=sprint("M",i);
: `7 m* U/ C% a) l# ], B        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
- B( ^2 J/ u  `5 E! d& I        end;
# @5 o4 H; M9 {8 r% e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
( J3 v8 U! z) W        end;
        next;
       
# G: T* F( `$ r0 d5 B! z' N' |$ z        dx:=0;
. v& e- g, i) _) r* b6 I        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) D6 @" p3 D7 t- E/ T) G                then
& Q; W/ a9 S; x, i9 R8 @% P                        /*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];
                        ct:=activityspace[2,rows];
& G" Y0 e6 T  e7 w4 I                        activityspace[2,rows]:=activityspace[1,rows];
4 K1 ^! e/ u" |                        activityspace[1,rows]:=ct;
4 y' [( x7 r$ n' `" A8 \) q                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ C. I- `, {' N5 J+ P                        dx:=0;
                dy:=0;
1 R+ K$ T3 j9 R. |, Z& b3 k* s                        --end;
                end;
5 f- ^4 X, B5 e7 Z$ x: k- ^                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];
                end;
, `! n: j) b/ v# M                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ t9 E( }' v5 @! p! A( F& F                ct:=activityspace[2,rows];
& x9 Y! ~4 W- P6 z& ?                        activityspace[2,rows]:=activityspace[1,rows];
; w& [/ j) d* U% {                        activityspace[1,rows]:=ct;
                        end;*/
- p1 Q2 t# M2 Q6 b0 x% G, L, b        next;
0 O3 g; J, J" J+ b        y_max:=y_max+dy;
+ J' l5 f% o( B/ `( N; N        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);
. W- s6 a; C% {       
        rows:=0;
* \& i" }" W' a0 r" Z# v' x; n        lines:=0;
2 x) n9 P2 E, n  M  ~- c- x        for i:=1 to number_of_machine loop
3 d9 ~  U' p& q7 l; h; e                for j:=1 to number_of_machine loop
! i2 r2 q7 ?- U" F8 B5 H                        if j=i then
/ M" v) i+ F& Q( [9 {1 H                                d_from_to_chart[j,i]:=0;
                        else
                                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];
- H; Z+ t, D  ]                                d_from_to_chart[j,i]:=abs(dx-dy);
  L8 _$ W$ A* `1 @( f+ z( s/ \                        end;
! Z8 V$ f' i' {, |) L5 r                next;
# Y4 P+ ~5 K; ]4 O, V: _        next;
       
3 ^9 a* K& }9 T7 ^0 Y        lines:=0;
        partstable.delete;
" B( X& v/ u, A& H       
        for i:=1 to number_of_machine loop
" m. v9 U. J: i4 X3 j) F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 v6 h3 ^6 c3 {9 H: ?8 m                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
/ `* v# I5 {. p                        lines:=lines+1;
# W8 Y2 @" g' t# L                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ j( e  t* Q& ?4 e                        partstable[3,lines]:=sprint("parts");
( ?3 I; P, G9 X                        partstable[5,lines]:=rows;
1 `2 r% ^2 C' D7 W8 G. g+ h7 i3 H                        partstable[6,lines]:=j;
                end;
' z5 G7 C0 z. d8 J: |- C6 x        next;
: f- u8 J& K2 i- v7 b! N! q        machinename:=sprint("M",rows);
7 v% a5 z% |4 X: i& L& i: 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]);
: K4 o- `6 e9 Q4 X        machine.name:=machinename;标识符未知
( Q/ M  U0 U2 k) O        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  q% J- T# n/ m# k, ]        machine.exitctrl:=ref(leave);
       
4 v9 a4 C' W  G1 k& _        bufname:=sprint("BF",rows);
/ t2 n; U: }$ x! S        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;
7 A" T+ u% Y" _8 ?3 Q2 a8 b        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; f4 \9 {( e, O$ S. V7 w. E4 g       
2 q* k& i4 }4 S- k        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ ^; I( u7 m; w0 f% J/ y0 h+ e: D. U& R2 [dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: m0 |/ A3 Z; Z; p6 N7 hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- l* ]+ Y7 B8 U" A8 Pnext;
end;