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

zooey

is
9 f( \  o! }9 t        mark:boolean;
0 g4 T5 b. @1 ], \        dx,dy,ct:real;
5 Y8 Q& a+ }$ L  i! {    i,j,rows,lines:integer;
% u0 G  Z( v# j& q    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
0 D, ~9 E2 m" V       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
( O! W: z6 H" H0 J8 v! D                when 32 then
. {* {! L" r+ k3 P1 S( A/ I                        print"no";
! ?8 h* m( H2 H/ S$ T                else
" ]  S$ l( e+ [2 d                        print"cancel";
6 l! v$ d4 y/ n* M$ ^                end;
                eventcontroller.stop;
        end;
       
7 h# j8 r' e% l. @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! g5 m9 T1 |, G0 h        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
8 O# d7 c7 Z! R7 Y        bufname:=sprint("BF",i);
9 [6 L: C! o- h  ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 C& v, `+ i- G' _/ h                buf.deleteobject;
        end;
+ N2 C: ?0 p$ C& d6 g# ^, h/ e: i/ _        next;
& z' S3 g- V$ |/ W/ I! X2 ]       
% T1 m& n% P" p7 G! |2 u6 h        dx:=0;
6 t' e- k8 X% x( h' w  b, b% i        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! `+ |+ t, j+ v+ K8 R: }! G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
; d6 J' u) B8 t0 J$ G- S0 ^                        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];
' P  x& j' f& A, o, U3 y  |' H, r                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
3 e1 `' v' q# |9 g                        y_max:=y_max+dy;
/ ]; C/ ^1 S- |" i8 Z- r9 ^                        dx:=0;
2 i6 f2 {. N4 M  [1 r( B                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 X4 c- P" L7 q- L& w& m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
! ^- @. M& v6 ]/ u                        dy:=activityspace[2,rows];
2 t9 O* b* y  J                end;
                dx:=dx+activityspace[1,rows];
; S: c. [5 d3 i5 ~8 H, D  v. L                /*if mark=true then
                ct:=activityspace[2,rows];
; s2 ^/ }- x; n/ }& M* y$ C4 f8 K8 b                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 P* c0 l5 [1 \1 c+ a  g                        end;*/
        next;
: c/ v1 i7 y* \, o3 S* C& y  {        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);
        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);
& V. |% F1 a5 I4 \* b" m       
        rows:=0;
9 q, d8 E! e5 N% e) d# C1 F        lines:=0;
        for i:=1 to number_of_machine loop
3 K! g" t2 W: W* P+ y) t$ j                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
5 ~: q5 l$ S0 s: Y  {                                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 {) k' _, d  d( r1 F5 [% k& D0 e3 X                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
: v  r2 {" L0 I# y- t/ L' Z. \        next;
       
        lines:=0;
        partstable.delete;
2 C; g0 c. k. y$ j8 _9 ?       
/ U1 D8 D/ G8 H9 P3 Z6 o        for i:=1 to number_of_machine loop
9 J- V5 {: Y! S' {* w                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 {3 F* [) B. w1 M: |* m5 k                        partstable[3,lines]:=sprint("parts");
5 F8 k: _7 s- l) ]                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
) [# d) }  ]6 G8 X        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]);
/ E3 V! S0 I6 r. P! F        machine.name:=machinename;标识符未知
/ Q* c4 J& \9 `4 _' [        machine.proctime:=5;
8 |  s, j! M9 A& ?        machine.label:=activityspace[0,rows];
# d! M+ V1 ~4 x' F3 @        machine.exitctrl:=ref(leave);
  N# {# c- P+ v1 {# c       
        bufname:=sprint("BF",rows);
; @7 r7 A) V5 }: E( [* R9 w        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 v/ p- e. k2 q. ^) t        buf.proctime:=0;
1 B0 J! Y" K% f6 M3 W* ^0 k        .materialflow.connector.connect(buf,machine);
       
7 V( A0 v: Z7 H4 L) J! X: e        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% D3 Q& d# M! n# r# zdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; N1 V, c, n. V) R5 b$ x& W8 V4 hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 M1 P5 E1 _: i+ p. S: n5 Fnext;
end;