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

zooey

is
( @  D% T- e/ I/ |" f& P- @        mark:boolean;
        dx,dy,ct:real;
0 u. A7 U0 b9 E  n& E0 S    i,j,rows,lines:integer;
3 R0 C% [. f& Y" X' T    machinename,bufname:string;
    machine,buf:object;
do
5 z( o" E8 V" `! l' p        current.eraselayer(1);
       
! y9 l- f0 s% K( Z3 ?0 F  ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 E8 E3 v8 o& ~3 ?) h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
: W7 ^6 B7 q3 F6 b; W9 o& x5 Q2 I1 e0 j                        print"yes";
) V( M  o' r* J+ _$ J7 D                when 32 then
                        print"no";
  l  B( f$ L, B+ m4 G                else
                        print"cancel";
7 L" U5 O. ?% J/ o" r                end;
                eventcontroller.stop;
/ T2 F' y: C* E: @' K$ H1 T/ B+ D5 V        end;
       
8 L" K. Y  x; y" j        for i:=1 to number_of_machine loop
; E2 C0 e5 a1 _0 f7 j: d# l# B- P' ^        machinename:=sprint("M",i);
* I7 L: x* S: L  `. J        if existsobject(machinename) then
9 _# `4 s. u: x. r                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ j2 G  m7 H! r. `1 Q' Q3 k) J        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
! X* }/ k7 q( f$ [        next;
# F/ U) X$ n+ e3 q3 H, ~3 B! g* I       
$ b5 T6 N( U' g        dx:=0;
        dy:=0;
; o. X) |! J; c* H6 ?$ |9 E        for i:=1 to number_of_machine loop
7 o  L3 p) S2 Y- d* a# Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) e7 `( g  s% r: b: s  E4 l8 X                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ o7 X) N, U$ ?  c/ H# }" m                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
0 \6 j/ L  l9 _+ c6 j7 }5 E                        activityspace[1,rows]:=ct;
* f) U6 H2 h( z! m                        mark:=true;
9 x2 T  h, Y, l                        else*/
4 d, N) @- @/ J: r" _. ]. {                        y_max:=y_max+dy;
* z7 Z4 L; O6 Q  l0 w                        dx:=0;
                dy:=0;
                        --end;
6 o5 M) D  ^0 h$ a, y                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];
/ E* z( P* Z+ z- a5 L! [- w                end;
                dx:=dx+activityspace[1,rows];
0 c7 n( k! g1 a# j% Y                /*if mark=true then
                ct:=activityspace[2,rows];
; O$ M: F! m- ]! R# b                        activityspace[2,rows]:=activityspace[1,rows];
, o8 t; u( [/ u8 K$ |& D                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 W& b" t6 {( B8 |0 ^" p$ D4 Y5 k        y_max:=y_max+dy;
/ f; ?% t. n2 Q# }) [  n  G6 E        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);
4 w) A% z2 y0 _- N& r4 |       
6 C* m8 r* B3 @8 a( I$ ^# p' j+ c        rows:=0;
        lines:=0;
2 y/ f- k) C) R. u- J        for i:=1 to number_of_machine loop
5 j% ?3 d* V4 {% q                for j:=1 to number_of_machine loop
3 V: d- y9 N; ~! g" \% l                        if j=i then
                                d_from_to_chart[j,i]:=0;
( M4 }( G; M* g7 k: c: q                        else
  X" c0 B! ]0 P) _6 {9 L                                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];
1 n1 ]# h/ R. b0 n$ U! A1 g; s                                d_from_to_chart[j,i]:=abs(dx-dy);
4 m" c' `  M6 ]" _9 k                        end;
! T  y5 {/ B; _  S# t0 U' t                next;
        next;
1 s3 w7 T3 h3 }7 `. ]$ c0 ?       
, v# ^& g! l$ O6 [2 Z6 P! o        lines:=0;
' V0 ]* |7 n0 g3 b5 R        partstable.delete;
0 o+ D* k3 e9 U& K4 `, F% ~+ y       
; ~1 Y" b0 R6 |3 J  I        for i:=1 to number_of_machine loop
4 V8 p4 Z- z  f& X# d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
" |; f- y+ Y2 e" z                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 S6 W8 m/ j/ Y* v8 M                        partstable[5,lines]:=rows;
/ m+ M& c+ x/ z& J( `8 ^+ R& ?                        partstable[6,lines]:=j;
# H/ o) K6 J- j+ g                end;
        next;
% f$ W1 P$ |- r1 `1 ~$ c7 i        machinename:=sprint("M",rows);
4 P( O( P% I) ^        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]);
! Q6 h* p. f. P6 r, x" }        machine.name:=machinename;标识符未知
# A6 ~0 y. u, N4 `        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
, \+ N& m, S, ^/ d6 T+ A        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;
: K- |+ }. B+ ~% ^        buf.capacity:=5000;
, u, \/ T, i$ J, k$ C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 s. \) ^6 y, h- g5 {" ~+ edy:=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;