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

zooey

is
0 K1 a+ i8 z4 K5 E        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 Y& m6 e3 d% ?) v0 U    machinename,bufname:string;
) f4 m& L; o5 G9 g7 @2 a* b    machine,buf:object;
' q# t; H. F; `  Sdo
        current.eraselayer(1);
  ^) B* g! \' ?: K) p4 `       
! N& @/ S3 W' n( W# ]        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
9 t8 g5 Q4 ^1 ~' O4 Y+ A                when 16 then
                        print"yes";
                when 32 then
                        print"no";
5 `* E$ X+ h( P                else
$ o$ K# Z% f. `5 F  Q; f: b1 W, \                        print"cancel";
                end;
" y6 x- u0 {+ \* ?$ O$ D2 A                eventcontroller.stop;
        end;
1 Y6 e; }, y7 a1 z4 a7 j4 R# n       
" S3 l! q; b6 C8 S3 j% x        for i:=1 to number_of_machine loop
# U0 T9 _2 T8 Q- F        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: g+ v6 T! @) _% x1 x- I                machine.deleteobject;
, ^6 M- O8 N4 x5 L( Y* d        end;
9 _( W) u, F+ C: q+ I8 M2 s        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
$ F/ u$ p* i7 s                buf.deleteobject;
/ }" Q, E* J9 |- g- i        end;
* q7 d6 `1 M# W9 q4 K/ c$ T        next;
       
! b) d3 C& b5 @" u5 V2 r: I( z        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: y3 W8 d# L5 \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' C5 |# i2 X( p+ @1 O8 W                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];
                        ct:=activityspace[2,rows];
/ U- e) v1 o. Z8 m9 D9 m0 T                        activityspace[2,rows]:=activityspace[1,rows];
5 b2 T; s" S9 @+ S* @                        activityspace[1,rows]:=ct;
                        mark:=true;
( |/ e* v2 R( T& W' a                        else*/
                        y_max:=y_max+dy;
4 s/ w( m8 B! Y6 Z0 n3 e. \4 F7 i                        dx:=0;
: ~! ?& B3 m, [5 a                dy:=0;
                        --end;
) `: k8 D( K4 V4 k, n# \, g1 y                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;
3 |' ?0 ~# m0 T* \1 S; Y7 p            if activityspace[2,rows]>dy then
- H% w  R' Y9 v+ S/ H& Y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
: y! |/ T8 y4 y+ ?& ]5 A% f' t6 P; x  c                /*if mark=true then
. G9 R1 T1 D! w  n: r2 z% m                ct:=activityspace[2,rows];
; P" l( L7 n' B; W8 m  \                        activityspace[2,rows]:=activityspace[1,rows];
) w0 P: v( Q% ~9 r7 n                        activityspace[1,rows]:=ct;
                        end;*/
* |* Z! a0 z' `8 N3 g" f: Q        next;
9 m/ W) S' c* h- C        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);
) V- L6 P/ _: s0 D) A, }        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);
! m; v: u- o( j8 R1 G       
        rows:=0;
- @; T0 @, J% F/ s% t+ C        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
; i$ ]- y: H; D8 t( W                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! D  `! ?6 ~0 z5 V4 s$ o                                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);
  n3 m# F* c! U                        end;
                next;
# ]2 {, D' t; H$ E; Z" f        next;
6 `! `+ o( ?5 W: d       
3 k! g  A  s' r9 T' r        lines:=0;
        partstable.delete;
# s' O! B) i. J3 k3 U       
        for i:=1 to number_of_machine loop
/ `9 x1 A3 A& o9 U" ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, {( V  K; @3 l4 z, Z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 P+ R' x# k! `' Y8 l6 C                        lines:=lines+1;
# P4 q# _$ X  \- }# V- e( N/ u                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  ?! o9 t0 N: V2 A5 i2 t0 H9 B; ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; H6 A# S# ^# s) W4 O0 i( m( K                        partstable[6,lines]:=j;
                end;
        next;
6 o$ C8 C6 g; r7 s        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]);
5 h. J( [& M( I) }5 B  P8 |        machine.name:=machinename;标识符未知
        machine.proctime:=5;
2 Z: k6 K0 ^& R; j" E        machine.label:=activityspace[0,rows];
1 \* @3 G- O1 Z7 m  D- {: A        machine.exitctrl:=ref(leave);
       
        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]);
! I; i8 p. M1 w" R        buf.name:=bufname;
        buf.capacity:=5000;
* e! y- Y5 o* _3 _1 p$ y  m        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
; P' o. k# U4 C; o8 B- N$ kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
/ b$ O& f. x# _/ yend;