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

zooey

is
: u  C( s3 y2 J. Y' Q$ ]        mark:boolean;
+ M  p( T5 q! @        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ U3 |& ]; K" _! g# W. `' z    machinename,bufname:string;
6 ^: u# z6 \5 B% V$ [    machine,buf:object;
& c" P* J& j; H! {# w0 vdo
        current.eraselayer(1);
" a1 K) x- z$ M2 _6 i       
5 q3 w( N6 X0 @9 E" Q% Y, C( {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. p- u/ b6 N, {. b% |, p/ @1 P                inspect messagebox("设施数目不对！请核查...,",50,13)
3 h0 j) B; V. Z3 }                when 16 then
                        print"yes";
* N% c$ u; U" f& M                when 32 then
, k" ~; U" J' o                        print"no";
                else
                        print"cancel";
                end;
9 C6 e% [$ Y: ^6 R* X3 h+ X                eventcontroller.stop;
* w9 A) R) N8 a; h/ U% H        end;
       
        for i:=1 to number_of_machine loop
" B  f, ~' {( V* t3 C7 W* p; r: P) y2 \        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
7 E  E  I6 m& R. s  i+ `2 ~        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- a) d% J0 q$ t8 K        end;
( @7 G+ x5 z2 S8 O! Z9 s" C        next;
       
7 u4 W, r) T& l& r" D4 F* v        dx:=0;
6 g$ m' Z) R$ u& N        dy:=0;
        for i:=1 to number_of_machine loop
6 b% `/ g, x( H* Z" q0 y* T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ }* K; `! Y5 `" ]1 W) V; D1 @3 w                --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]
                        and activityspace[1,rows]<(1.05*y_max) then
5 Q( l$ |8 R% }( E2 c2 S                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
! v- h9 L+ m8 l6 Z" Z                        activityspace[2,rows]:=activityspace[1,rows];
* g8 ^" }" E" ?                        activityspace[1,rows]:=ct;
                        mark:=true;
8 W! I9 T8 H2 u& w6 t" v                        else*/
                        y_max:=y_max+dy;
% s9 F' v/ \% H" c                        dx:=0;
                dy:=0;
$ D- T& a7 r. S( J* F. n                        --end;
                end;
& W6 m9 A2 F+ W; i  }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. {/ m, M( T1 b1 G4 s                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
5 d4 F9 u) E' o. b) Q/ u/ g$ A7 a                        dy:=activityspace[2,rows];
                end;
; H$ P% j. i( ?# F9 y, J0 d0 k                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 t7 p* N$ s; w5 Q* g                        activityspace[1,rows]:=ct;
! c5 H0 d8 ]* G3 b: v) U; O                        end;*/
% j  t. c6 {* k3 }) i/ F        next;
# f; L: p1 Z/ v7 A9 u1 m; T; s& J        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
1 V2 M, H+ A# O$ v4 [                for j:=1 to number_of_machine loop
; J( W" _1 T( D! z+ ]                        if j=i then
                                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];
: c2 ?! a4 u* q5 @4 f                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 W2 |) M# F4 f0 _- K( b5 d                                d_from_to_chart[j,i]:=abs(dx-dy);
3 F, T* {1 {- o/ I: z5 V                        end;
                next;
        next;
       
        lines:=0;
        partstable.delete;
9 {: l2 R& q' O  R       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
* P0 f: l0 ]- i( l, [  D- j                for j:=1 to number_of_machine loop
) [& G6 ^4 |1 b2 _. j                        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];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
5 s+ L4 {3 g8 b4 ^                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
# a2 o0 O4 Z9 ?' F, v- Z6 m( 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;标识符未知
  |9 [  p' g) `# v2 P        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. N7 U  J- g: b5 R' {        machine.exitctrl:=ref(leave);
       
" C) M( ]. a8 o  z        bufname:=sprint("BF",rows);
        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;
( o. [) v0 B" t" a8 M, V) s        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: R* Z9 Z/ H; c       
/ X& g% w& ?4 K4 b! H- N        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
6 Z4 k) G5 n% C$ A, ~8 }dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. ^" H$ r! O( e6 S7 \; G$ o, `0 Kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;