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

zooey

is
% r* G$ y4 Z% K+ q! H        mark:boolean;
        dx,dy,ct:real;
* M9 F3 I# w& x) q5 M. c; t* ^    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
0 f) A" Z2 H! b5 ~3 B2 T       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 X9 G8 P8 `$ y- a" v3 S                when 16 then
                        print"yes";
/ h4 I/ ~7 U8 ?1 `* c- r& ~                when 32 then
                        print"no";
4 k1 ^6 ^% e+ P6 S7 T4 A! |# w( G                else
                        print"cancel";
4 L  s4 ^1 k+ N; S" ~                end;
                eventcontroller.stop;
- p1 `# m$ e  l- _! R4 q        end;
3 N& `$ I6 t* {. w/ ~+ G* ]' d       
        for i:=1 to number_of_machine loop
( m6 D: _7 V) Q3 o3 X: c        machinename:=sprint("M",i);
        if existsobject(machinename) then
; z5 }. Y, J9 C9 P4 D                machine:=str_to_obj(machinename);
                machine.deleteobject;
6 p$ X% b7 k) {; G8 j        end;
+ X* H" |' L$ `8 i2 C        bufname:=sprint("BF",i);
; v$ s, [+ d7 b5 K& Q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) M9 M) m" C* a6 l  N0 y4 ], j7 V  w( d                buf.deleteobject;
        end;
        next;
       
3 H0 [9 ~  P7 c$ }+ r        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
! R" J0 |3 o: b% u) d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 s' {+ n6 e. T# _7 _" k& y* R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, [+ R4 |( T5 o                then
+ t6 F9 i# E% n3 }2 m/ n                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- s' m+ f+ Q5 @" K6 s7 Z* L                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 ]) O' h( l( B  P( s                        activityspace[1,rows]:=ct;
                        mark:=true;
- x$ Z0 f8 T' u% Y                        else*/
, l. r# S5 B4 C/ o$ a5 Q                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
! J3 g* |9 n0 z3 f7 ^1 o, H                        --end;
% G8 k6 p6 r0 s3 e! G) b                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
% ^, \/ z5 f1 M                        dy:=activityspace[2,rows];
. G" j) C) {& G' b                end;
6 M3 A+ t) N7 \. C$ _" f% L                dx:=dx+activityspace[1,rows];
                /*if mark=true then
' b* L$ H3 }6 I" v+ Q4 J1 Y; \( S                ct:=activityspace[2,rows];
7 o2 m; Y$ V, r% A1 s                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 m& Y8 ~/ Z4 W( p8 Q& m! X9 U        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);
2 n# e1 V4 Z; r$ I: x        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);
* d5 Q/ f$ Z; D) s7 g$ C! g       
9 }! v1 z8 Z" a7 f( W* e, D5 U  O        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
: g% a- g2 ~# H% e) Z+ e                for j:=1 to number_of_machine loop
( o3 d1 y/ c) a                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ h" Y# }, Z# W                        else
, y& c$ H2 F5 {+ Q- X( y; s                                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];
6 o/ s7 ]8 e& x3 ^! F! q) e                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
/ ~: C: }6 U* O+ m8 C                next;
% z4 c4 L0 ~$ K% C, g, R7 D        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
- @/ R4 @- R- a8 Y' H( v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 K- Y4 v+ ^# c9 |3 ]                        if w_from_to_chart[j,rows]>0 then
0 T) E! n" n# l& H' w; M' _/ f                        lines:=lines+1;
2 v, t2 q5 X4 ~4 X9 d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 y) R, ^* j& [                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, v! b+ Y4 E$ ?0 C$ Y7 k                end;
$ s1 S; D) F! k+ ~        next;
( T% u3 y9 X7 R! d        machinename:=sprint("M",rows);
1 x# i& w- Z4 w( |! E: Z$ X        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;
' l1 D0 K- g* j( u9 y- w        machine.label:=activityspace[0,rows];
- i! l9 ~4 _: f3 A6 Y  d, K: B. f        machine.exitctrl:=ref(leave);
9 v, v7 i/ A0 q$ N% F9 U       
        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;
% |& M" y2 t, q3 c  I7 Z        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
% s! h- D: }5 G5 n8 U/ d0 _       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 P# u' d5 {% F- G6 ?) D5 L, Z5 Fnext;
end;