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

zooey

is
; u& `  p% Y$ x. v+ \/ Q2 j        mark:boolean;
! B( R1 L$ O, k        dx,dy,ct:real;
" o- ]( Y- e8 M- [* v. [# H    i,j,rows,lines:integer;
" c8 n* t; y8 r/ e$ V2 d    machinename,bufname:string;
1 k9 t+ P! E9 z5 b0 X    machine,buf:object;
do
# P( J9 g( {+ h- _$ d- m        current.eraselayer(1);
       
: m$ {2 W( e4 g: r6 S5 B        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* n; f6 D( H; i' T  b                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
1 U5 i- J$ f/ W) N9 C8 g                        print"no";
7 G" W% R$ [6 r6 G5 w+ o0 @                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
. n8 v8 t- {# d0 M* a       
( c7 n% J+ V, m7 N& d        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
! @1 o, g. C# r        end;
  K9 v" F4 G% d6 K  {% n' L        bufname:=sprint("BF",i);
1 m; |& m+ M. T        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 A' ^8 S& ]9 S                buf.deleteobject;
        end;
        next;
  X9 D9 H/ R* n+ @/ c/ z: o6 R       
        dx:=0;
9 O. O3 k. H. b' V, q; Z6 P0 {* A        dy:=0;
6 Y: V# I; E# i6 J        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% q5 z8 I+ N& i5 S" Y. z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                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];
/ H* U" c. V( s0 v                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! ]5 T, ]2 B, V0 ^, J  R3 m8 D                        activityspace[1,rows]:=ct;
) F+ {9 K5 M# e7 O/ N# G- E  k                        mark:=true;
                        else*/
) x- D: }; ^, x' O" E2 ^                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                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;
7 H* S- O; l0 ]: Z3 T# |5 F            if activityspace[2,rows]>dy then
# j% D6 U! ?6 q/ ?2 T                        dy:=activityspace[2,rows];
8 \' S6 s% T7 ?0 A                end;
& i  J$ k/ _3 e$ ?: @: k, B                dx:=dx+activityspace[1,rows];
/ b! y; X9 v" @1 Z% L5 X- B9 Q% ]                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 u5 [0 Q' ^# M                        activityspace[1,rows]:=ct;
                        end;*/
) |7 v3 {( j2 q4 o! u$ a( a        next;
7 Y/ H, \) l# j4 w        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);
$ M1 P; A( ?% {* B) ~+ [+ x  c& 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);
& q+ ~; W. n) y" l$ z( Y       
1 @4 q3 G! q# v% A        rows:=0;
        lines:=0;
8 c, {! d8 ]) Q7 [4 e8 A        for i:=1 to number_of_machine loop
. B, h: e! n# j( B                for j:=1 to number_of_machine loop
                        if j=i then
! G; a  v- `% R. T7 t7 z* t, @                                d_from_to_chart[j,i]:=0;
                        else
. f% y1 h) y' N2 l/ D0 `; `, \, g                                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;
+ \. m5 a- |" ?2 t0 I5 ]2 c; ?% `                next;
" P* ^9 C& ?) B* w, u+ F        next;
6 J/ i1 @" T) J0 c  u( u+ V! r       
        lines:=0;
1 o, m2 Q4 T" H  }( v        partstable.delete;
       
        for i:=1 to number_of_machine loop
) p) \: I9 J! o: C$ F                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
- F4 g; C. U: f; U$ B3 d                        lines:=lines+1;
: i  _6 B* a3 y  e" j4 R- y1 q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: K4 X( Y- z  n1 i+ {1 t0 j7 {9 ^3 r                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, r0 `, ^+ J. V3 {% X% q. C                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
/ [$ W# [. V, V. x        next;
. t! }# z2 w2 f        machinename:=sprint("M",rows);
5 h' w, u' D' |1 u' P" E7 x        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;标识符未知
8 U. t4 p; U4 W5 G        machine.proctime:=5;
& f& [% \0 x" W' l6 v/ w# F( N        machine.label:=activityspace[0,rows];
' S$ ?( Z& Q0 b+ x. X- j6 s        machine.exitctrl:=ref(leave);
$ p, o. U& T* P5 G8 P- u       
        bufname:=sprint("BF",rows);
  }# {7 l( C1 }        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;
: ?. u# u* Q+ }2 B) s( k6 Z( G        buf.capacity:=5000;
; C9 @+ Y' g  w1 e; H2 {        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. n+ ^- v9 Z$ n: {       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) {& K3 c- [* J" k/ Udy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
7 K# G0 X' @7 p/ N  \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;