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

zooey

is
3 K: ~. @- M2 |  I8 E+ k1 h' N        mark:boolean;
" A7 a0 ~) a! o+ B5 i$ g        dx,dy,ct:real;
    i,j,rows,lines:integer;
, C) r: Q. M$ T5 j    machinename,bufname:string;
3 x6 Y+ p/ S$ s5 u' t2 ^$ t    machine,buf:object;
do
        current.eraselayer(1);
  F) Q  i; W* Z2 a8 f9 f6 T& H       
1 A: B5 j  Y! _4 }, b1 ~0 ?; ?. _0 B' g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' Z5 ^$ e7 Z& `3 k! R, R+ Z                inspect messagebox("设施数目不对！请核查...,",50,13)
5 b2 ], h) A. O                when 16 then
                        print"yes";
                when 32 then
% u4 y% C7 s8 p                        print"no";
                else
5 G# Q1 Y: c; W                        print"cancel";
                end;
                eventcontroller.stop;
        end;
: R/ J6 C1 ]8 O5 \' P. G" Y       
- a( O( P* Z) s4 X6 Y8 K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ _5 u3 S% X: d; f( x3 \7 L# V; _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) `* b! C% _1 \                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
9 k; c; s1 G2 v: V) [                buf.deleteobject;
        end;
& D8 g3 a  R9 C        next;
       
& F2 Q7 ]) h$ j! B- ^9 U* g0 d        dx:=0;
* L+ \5 z  J6 U3 b! Z" n" \' X8 M        dy:=0;
, R' g2 w" e" m" F# @4 o. s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- z1 R' h; p, b7 h3 _; a; ~4 M" p% W                then
9 F# H* l& M: E" A3 ?                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 m* z# }- P7 H  }3 g* Z                        and activityspace[1,rows]<(1.05*y_max) then
8 @; S! `$ x. V                        print activityspace[1,rows],",",activityspace[2,rows];
# B5 K0 {% v* D8 V; S/ X0 t                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 q8 K2 R7 Q& Q6 P1 Z& J                        activityspace[1,rows]:=ct;
8 {( |) n( j( |                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
" Z1 j3 B+ |7 ?5 U( f                dy:=0;
                        --end;
& C- g  L. ~8 G& H7 V( {                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
( ~7 ^: ]- e2 Y                end;
* ^) {- l0 C$ {/ t4 e                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" h& O1 }4 @3 x% |( J, L9 ]                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
  o) p: j: B, U8 {2 y" S: B        next;
        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);
1 ~3 |1 ^0 O- S! u       
        rows:=0;
        lines:=0;
- n% p$ B4 ^! T. v, l' x        for i:=1 to number_of_machine loop
' w& N* O. I, L2 G! j* S/ }                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) o4 d7 q6 S& n8 x2 I6 _7 Z8 ~1 n' q                        else
  _: u2 h  r% F- p                                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);
* {. ?; \4 q, E, @  b                        end;
' t$ u, z5 x! c" c                next;
) T5 q4 V1 T# [  q        next;
0 T2 C- b: d2 q4 I) a       
; L2 m3 Z$ x) {/ N        lines:=0;
        partstable.delete;
# N9 L+ G& ]% y. q% I       
' v, o4 ?/ A, Q+ m4 l* v* ^        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
" a% Y0 x2 `+ t1 W' U, f4 M2 h                for j:=1 to number_of_machine loop
) p4 h2 N6 Q7 `8 n- N2 L! s                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  R4 A7 `8 }+ ^) O/ `9 ]/ g' K$ a7 w                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
2 d5 ]7 s: {; L. f                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
1 P) O8 Z+ V4 M! U        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;标识符未知
! B3 R9 W, V7 J' H8 m+ ~* D* U        machine.proctime:=5;
7 V8 s4 E8 C! k/ R) t# ^1 Z        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
4 v+ \3 u' Q3 C* |& a4 J% O6 G        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;
6 g8 m7 U2 @* m! z% b, s6 \3 }2 H        buf.proctime:=0;
+ \% @2 [; @) r: Y2 \0 Z# @        .materialflow.connector.connect(buf,machine);
9 l3 D7 f( a3 m       
' @9 A6 l- R0 |- r% N5 T        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; S/ Y0 m' `1 C5 z+ kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 P5 A# W! O  _: ^) l( m4 ~- vnext;
end;
- I, w  N. S3 e5 G+ j7 M