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

zooey

is
, z+ m1 T( i  A/ f% O0 u        mark:boolean;
9 s  _, _6 Y/ G9 q/ ~        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 I' J: w+ I) e, u6 ~. G    machinename,bufname:string;
    machine,buf:object;
, |+ ^  v$ b8 ~( bdo
        current.eraselayer(1);
8 O" E' C+ V2 n6 W+ V2 Y& ^       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* _$ }/ y4 d  E- N: ?4 t                inspect messagebox("设施数目不对！请核查...,",50,13)
% R  W! ]) w+ r! s4 D8 ]8 n: T                when 16 then
                        print"yes";
6 S+ I9 O) W  w: a0 U) i; S! s                when 32 then
                        print"no";
' w2 e0 F( B; o; I                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
+ J  g2 f* z5 N0 W) H# S4 e       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 ~+ }8 v; W5 K8 d8 [3 Q0 [+ Q                machine:=str_to_obj(machinename);
                machine.deleteobject;
3 G( b. c2 Q& _) Y( G7 ^; [- A  K        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& d6 N  o: q) p- E) \" F7 J' k                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
' \# P9 E3 Y1 Q- c: R9 n: V8 F       
; }* g% G/ Q$ j        dx:=0;
        dy:=0;
7 m% Y8 M. G1 c- O% N        for i:=1 to number_of_machine loop
7 K$ e) c8 q0 i& [( B1 O" \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 A8 H+ P6 m$ b                --mark:=false;
6 F1 ~) `6 h7 p5 ]# O% |" w" ~                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( k; o* Q; F4 {+ B3 _) P                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 G0 @- ~7 q/ K0 ~5 t6 H                        and activityspace[1,rows]<(1.05*y_max) then
$ s3 f: N+ n2 S/ ^4 k! k0 g% Q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' W" v1 K2 G$ P8 y5 N                        activityspace[1,rows]:=ct;
% [; g/ L6 s% [                        mark:=true;
                        else*/
, R2 g* u9 G% `5 m5 |                        y_max:=y_max+dy;
                        dx:=0;
" V, H6 N+ I" ^# F                dy:=0;
- l# N5 w2 ?- A4 l8 D# E5 q. b                        --end;
! [4 v9 z, \4 C" f4 S, X7 n                end;
" Y5 r$ A) _- Y/ S: y7 E  m                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];
6 |; t' ^$ K- ?: M5 Q$ c' s                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" N4 G6 E  d" B" I3 S$ o                ct:=activityspace[2,rows];
# s* V, S" E( }$ a& U7 J                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 O* k8 q  K# X3 A7 n, z# @. Z                        end;*/
6 ~: l8 B" i( _        next;
- H+ i8 m3 G* C% J' \/ {6 ]- {7 g        y_max:=y_max+dy;
- _9 t$ ?3 r/ C7 t$ ~        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 k/ }2 B- h  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);
; V7 J# j" m9 K. J# }       
% ^  W% A2 @; S5 i# ^; `4 [3 e  t        rows:=0;
2 G; j. I0 B. y( t! l. K$ u        lines:=0;
        for i:=1 to number_of_machine loop
5 ^" P( Y6 e8 Y% o% m/ i                for j:=1 to number_of_machine loop
                        if j=i then
+ o8 Z( t* {! Y- L                                d_from_to_chart[j,i]:=0;
9 W6 ~, X, ]2 z( o+ l                        else
) D% B. D6 @. O$ T' T7 d                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ x. [, V/ m0 b                                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;
! L6 y4 f, m, J+ U        next;
4 C/ q: i. ]5 k- F       
        lines:=0;
        partstable.delete;
       
1 [3 H3 y5 p; P; Z; y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- b( u: b: j2 a5 J' z6 R, w                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 s+ ]! y' T% Y5 P* j; j: r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ K- |9 Y/ w" R                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# d' }" g, S3 t$ ]& u8 t. E                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 `" H: \. y/ `' Q9 I" a4 N) Y                end;
        next;
% O) K) b; ^; |% J( B$ |" S        machinename:=sprint("M",rows);
( k6 [# g3 o6 ]* g; L% k! C        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;标识符未知
# D  E# x5 v5 A$ h# [2 W        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, t, ^4 s/ a. s* x- I; _        machine.exitctrl:=ref(leave);
       
% b+ G8 A# o8 ?* R, r2 ^6 m8 W        bufname:=sprint("BF",rows);
, Y+ }7 d- o1 K! b8 v# `4 i) P        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]);
7 B/ W- y/ a' G4 c* o8 |. o        buf.name:=bufname;
        buf.capacity:=5000;
/ ]% [2 m4 C0 Y( w$ L  N8 F        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 t/ P& k+ ?3 J       
8 ?# r' ^% X6 x7 ]1 v0 E' v        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;
% d, P7 \) T7 R2 a- n) Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
$ _. L8 q4 T+ N" q: O1 @# ^end;