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

zooey

is
# O3 s. \( r2 T/ M        mark:boolean;
* b& P1 g$ t8 U& Z9 r        dx,dy,ct:real;
0 P9 s8 n/ d; D2 Q: b# T    i,j,rows,lines:integer;
4 N  E# Z& T' Z$ |    machinename,bufname:string;
+ f% x8 q) G; Z; h+ E3 M- V    machine,buf:object;
do
- L( a" p+ e$ g& j+ c        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 E. y- P- G$ ~- A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
! ?/ \9 R3 z  a6 G% g& q+ [. S                when 32 then
. \) K* L  _! @: _, J, M3 |) n1 ]                        print"no";
! b3 @  W6 ], }* V. \                else
                        print"cancel";
# L1 Z( r6 E3 V8 f/ m" @' D+ ?                end;
, S! U' U7 _# R, k                eventcontroller.stop;
" }5 |8 t3 |, d4 }# m        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
: o% a. P4 Y# a        if existsobject(machinename) then
9 P# N# f4 T# p- L2 O* s0 b& r                machine:=str_to_obj(machinename);
                machine.deleteobject;
& {- h" H0 ]( F2 f        end;
7 {6 H$ X5 E5 t) N& Y- v0 U3 d        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. A6 G1 b. q8 z+ G4 F                buf.deleteobject;
% X8 z" n7 O, B, {' x        end;
  t4 w% ^" e# k& s% Y4 m        next;
* d! A0 A2 Y# U2 _% @       
' ?9 e7 \% g' i& V% A7 G4 ]" f        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& j$ P" j" V7 i8 O, }                --mark:=false;
; _- V# q4 ?: y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' R: G- M) ]& u' O                then
                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
$ |; B5 T1 o/ J9 w; u$ e: s                        y_max:=y_max+dy;
) C, F8 Y: O; L) @4 D7 P0 a! X                        dx:=0;
                dy:=0;
                        --end;
0 A0 W7 s7 K  G6 O% I                end;
+ J7 N5 d& A) `                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
# g  m1 q3 U5 p: t- [+ a: {                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
4 o1 I8 e' O3 b" b& l3 f& q                /*if mark=true then
/ w5 c$ F2 u) {1 o  E* L( `- h4 I                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( j$ A% D) Q8 x; _! j3 g( y0 d                        activityspace[1,rows]:=ct;
                        end;*/
/ A& p: \" |3 G2 M, G5 z        next;
! P6 R+ Z/ H( W$ O  C3 f: F        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);
# C5 `8 ?$ R$ @7 O/ |        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# K6 g* n6 n2 R' ?( a        rows:=0;
        lines:=0;
' n% Q  L( F7 t' G        for i:=1 to number_of_machine loop
/ }7 J! E3 W1 n1 j, |+ ]7 O                for j:=1 to number_of_machine loop
/ U6 O! d7 n- r                        if j=i then
                                d_from_to_chart[j,i]:=0;
( R1 b8 s- Z, F) K: W3 R0 j                        else
9 D( Z- Q& L, A& ]# _7 e3 \- K- x                                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);
                        end;
                next;
& H) g) H3 P+ D. `, D        next;
6 O: {# e  W# b6 i% l, x  X+ K       
        lines:=0;
* c" X$ |( S8 K5 `8 c( w# v( o        partstable.delete;
5 ?  j3 p, z' |) T1 ~1 s- L       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 M" v) I* R0 f( C                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  N$ k& O8 |- s7 l                        if w_from_to_chart[j,rows]>0 then
0 s  }) k" \& g( T/ b- y" h; X: a7 D                        lines:=lines+1;
0 ?+ W" d/ Q- _4 O* m3 w' L+ C6 O                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ ?6 t- s' N0 {- D  J% X                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 P3 E' ~( C  |5 Y                end;
+ Q7 j+ s3 ~1 j+ s! f; W        next;
! y1 G* r' A8 [" a1 \        machinename:=sprint("M",rows);
/ j$ M7 f, C/ t+ w( s        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;标识符未知
" T$ g8 Z, V7 G* o  j8 M        machine.proctime:=5;
1 g# y) |1 |* a# V% ^  |        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
, y9 N6 s# d) ]! O; W       
* o" D0 f, r8 D9 ?, m& j6 G" j        bufname:=sprint("BF",rows);
( C' F$ s, n" @( [- Q        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]);
9 `0 E" B- Q: n$ d, g) t. z0 L5 y        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& W: o2 X# }( [  F3 v4 v9 I       
' U8 q# S4 ?! A. y8 ^        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  x% v/ k% i0 j- u% gdy:=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);
3 y3 r  L# t5 b1 n) e, M: F9 S; U9 knext;
7 w) T- O0 J$ z! cend;
6 L( c' b; m1 z; J