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

zooey

is
: K% f3 Z+ s4 L- o* s+ F  B9 G        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" }- D+ g& A& D0 q    machinename,bufname:string;
    machine,buf:object;
- a8 H1 B. X7 ?- y% ]' E: ydo
1 H% v- h- q- j  i! `        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 m( b  v: N$ o                when 16 then
                        print"yes";
                when 32 then
) |2 h5 R$ i4 e$ ]9 j# R* |2 y                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
2 g0 x7 i$ n$ o. J       
+ b5 ?9 p2 d# e  x2 p        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
% @6 ?% I5 b& B* s7 T        if existsobject(machinename) then
* [" |7 ~! I" o                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
, n, P* |8 J! r* T        if existsobject(bufname) then
8 F& c8 l# @$ j& u# w                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
, m: ~$ S( Z5 p% q  c+ ~; t        next;
0 D8 ?6 F2 ^5 u* Q4 V       
! M( J) D$ b7 H! ?! n6 S        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ n2 F8 w1 P* p& k! b                --mark:=false;
) C8 ~2 G8 F5 a1 |5 @  e' m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& k, O! `. A; d  }+ ], C6 {; m                then
, |( s. S( b/ w  Q                        /*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];
. K& u; R8 @+ {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
* e. H& e# R+ W4 G$ I% M* [                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
- o+ T# W& [6 z1 E: M                        dx:=0;
                dy:=0;
: `" \" s) r! H7 Q6 l# i                        --end;
                end;
) C1 L, Y) e! Q6 K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) _$ K2 U7 |/ C* ]2 ~                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
  Z* u; |! k# a5 ?            if activityspace[2,rows]>dy then
7 w$ E" i5 Y0 H0 v                        dy:=activityspace[2,rows];
( B6 z* o3 [% O8 ~3 n1 ^                end;
                dx:=dx+activityspace[1,rows];
/ z& j) h5 |5 ~  _8 ~                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
  W& d9 Y4 J7 D4 n        y_max:=y_max+dy;
: m  j4 q. z! N1 S        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);
0 U- o$ _4 C7 q5 b0 H7 t        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);
       
6 t: C3 Q% u9 h7 `0 O" r        rows:=0;
' N" p' |% E4 n% ?        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
+ [6 y; Y& R( d* x2 W1 X' f( \% j                        if j=i then
% ?( u: Q& K) _! I                                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];
) g! j- P+ z4 e1 @- c                                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;
        next;
- F* O9 S5 l, k6 f$ G% q       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 X: v3 w' b/ v; N6 B+ S! N# T' p5 U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; p; n% C! U: {' }& [! V                machinesequence[2,i]:=rows;
. Z# y0 n# w( c* }# a' y( ]) u                for j:=1 to number_of_machine loop
0 v7 v; r1 f! l! R                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
4 F3 H1 r! R" ]. O2 T2 w6 U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 m5 f5 h# x( P. o, x6 l: [. W                        partstable[2,lines]:=w_from_to_chart[j,rows];
; E/ m6 _( z& z7 N1 R                        partstable[3,lines]:=sprint("parts");
( d2 X: e( h3 g4 G. U                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 E5 V7 L9 K; P0 n% v                end;
% C- {! M* X( I) L, {        next;
        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]);
        machine.name:=machinename;标识符未知
: g( m5 I- h- [+ d( h        machine.proctime:=5;
6 P: h, d0 `# S/ x1 y5 }! [        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
9 o8 K) F" [6 b& v& ~. Q6 v        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;
$ q! x0 u% R, i6 C: u% l3 w        buf.capacity:=5000;
        buf.proctime:=0;
8 j: O/ K4 i% ?8 m        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 x$ ^  c8 r6 ]2 K$ ody:=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;