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

zooey

is
! p/ ~8 H/ b( r( v" }        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
0 Y$ E7 e4 x- p$ ]2 f' I* \" q    machinename,bufname:string;
: q# ]; v# R* V; A: S    machine,buf:object;
1 G+ @1 y" B3 {7 }  n* o1 ndo
        current.eraselayer(1);
+ W& R) H. t0 K8 B# f: }       
! m7 `4 H3 l' n$ x4 [1 V. Q        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";
                when 32 then
  j' Z' |9 a" s; K                        print"no";
                else
1 J2 r2 i: ^1 c3 r" q1 h* f                        print"cancel";
                end;
                eventcontroller.stop;
        end;
$ Y2 z4 j, f9 [4 b/ o# T) @' N% A       
        for i:=1 to number_of_machine loop
# x8 H" A# }! T' @- d. v1 I8 J        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' i! d$ U4 S8 A) r                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 e5 a$ e; _1 q5 X  k% n& {                buf:=str_to_obj(bufname);
" [1 v# Y4 J, ]" i- ]* }* J8 p6 p1 {                buf.deleteobject;
- n9 f6 ]7 `- e2 Z) @4 e$ x% T        end;
- n1 z& ~. t6 I7 ^9 C8 E% O$ w8 L        next;
       
        dx:=0;
7 o" T2 q& x7 N+ M! r  M        dy:=0;
7 }5 a% [/ O; k5 M. G5 k        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]类型不匹配
. R8 H. T/ q  c" ^, _( B. l# K                then
3 c, l& B' Y* r, K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: z2 f3 c% q) e8 x: {                        and activityspace[1,rows]<(1.05*y_max) then
& S7 E" S1 V1 K                        print activityspace[1,rows],",",activityspace[2,rows];
7 ]1 g/ N- m% X                        ct:=activityspace[2,rows];
9 h. y; k$ U  v& _6 z6 o                        activityspace[2,rows]:=activityspace[1,rows];
* a% L( O6 [, @                        activityspace[1,rows]:=ct;
: F# K6 t8 d' s  W# @/ p                        mark:=true;
8 F- d+ i. v2 k& y* ^6 ~- t/ M                        else*/
                        y_max:=y_max+dy;
) o) a( d$ p; p8 U                        dx:=0;
; T2 B1 P  r6 S! W                dy:=0;
                        --end;
1 e' n0 x$ Z. b/ o; M8 K                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. d# s0 w) A3 {; \) N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
7 y8 [2 C2 ^8 g7 q* a+ ~8 b) L                        dy:=activityspace[2,rows];
; ~+ D# Y% P: r: k/ F$ ^                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
, g, Q4 m4 L. `  F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 o+ V1 P- ]8 ~  k, T; v6 M5 ]0 u                        end;*/
& m2 b6 ^! f  V, g$ Z& F# 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);
       
' n8 K6 U) M: m$ z, k& q9 V        rows:=0;
        lines:=0;
- I' p- w2 R) v+ M! `- {+ n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
6 h* }5 m0 A0 i1 N                                d_from_to_chart[j,i]:=0;
                        else
0 r0 g. ~2 f  j' k! ~% k& a, h                                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];
" e$ j! ]4 e& \' n- g; r2 j4 A. [                                d_from_to_chart[j,i]:=abs(dx-dy);
( k- m% H8 g+ p0 N$ K                        end;
                next;
        next;
       
$ h( V" ]0 u+ b0 ~        lines:=0;
/ T- |6 E* e# k( D/ I        partstable.delete;
8 ~( s/ V: w9 l; C% J$ m# v       
        for i:=1 to number_of_machine loop
5 Y8 ~. v9 `8 x1 Z) M; j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 M( ?5 P/ g9 ?                machinesequence[2,i]:=rows;
) A4 d7 @' q6 {, C' a                for j:=1 to number_of_machine loop
( s0 U$ [) B* G2 P- n( N                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- D2 Q, c8 d4 l7 A+ _, c                        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;
                        partstable[6,lines]:=j;
& x9 S4 `! H. W  U* ?: o; \4 n2 p                end;
        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 ?9 x. `  t# H4 \6 O       
        bufname:=sprint("BF",rows);
# w6 q* c# o8 ^5 t9 b/ b! |        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;
6 a& l* r9 ]" n' m8 i% g+ y& X* l        buf.capacity:=5000;
        buf.proctime:=0;
. R8 J* ?+ T) ~( l- J9 I        .materialflow.connector.connect(buf,machine);
: M- Z# E" B+ J4 n  Z4 C       
& n* N0 A- V+ k# T        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 U! q. w* y: g, J; rdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  T7 R8 Z- ~3 Zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
. A# U2 x; Q' s; zend;