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

zooey

is
* F. M' b9 k, P1 r5 x( X        mark:boolean;
# ]- ~: ?8 J# s: \4 q1 P        dx,dy,ct:real;
$ m' H  }4 I' l" t( b5 C* l    i,j,rows,lines:integer;
9 I/ h2 P# K# c3 G& i- J2 j    machinename,bufname:string;
0 W0 H( q/ Y- P8 G; U$ W4 N$ `    machine,buf:object;
  y# m9 y1 u4 t, P# udo
7 E( s9 E! x& F7 ]5 c' V        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* S4 b3 \% o0 z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
; \$ Y) Q! t9 x4 l                        print"cancel";
                end;
& a7 Y4 a$ r3 L' }" ]1 p                eventcontroller.stop;
( p) k; u6 j- l( u& @' g( O5 l        end;
; N. _0 M# G$ u9 h       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ ]* }- t. M5 `+ [' O% Y        if existsobject(machinename) then
! H- x2 \/ A; d                machine:=str_to_obj(machinename);
                machine.deleteobject;
- W: M- F& t% X6 G" v" A( S0 r        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. i2 B  a6 B; k* D                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
: p5 N: M) _# \# D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 ?/ {3 x& o3 ]                --mark:=false;
% J! w8 c& [7 l0 O7 i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% B8 t5 y, S! x                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% J) ~. L. F2 a/ D                        and activityspace[1,rows]<(1.05*y_max) then
$ M/ y) o4 P/ h                        print activityspace[1,rows],",",activityspace[2,rows];
& _9 k7 E* }8 T- e5 D; g" e                        ct:=activityspace[2,rows];
0 j! p* A4 d: w1 ]" Y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) n) @6 g2 D. s6 N                        else*/
0 U7 l* T) R" b1 u4 R                        y_max:=y_max+dy;
9 U8 O- D) B$ t) G                        dx:=0;
0 E9 ~& u& G8 ~( c* x9 L5 X                dy:=0;
5 j; a  [& K6 \; J9 F6 c7 B                        --end;
                end;
4 o% s+ ~7 @2 r                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];
" i0 B3 D" Y' h+ d5 z                end;
! r4 z7 L9 r% K                dx:=dx+activityspace[1,rows];
! G0 J+ a& ^# E) ~                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
& P3 G' h! s" Q- I1 ~2 e9 c/ C                        end;*/
) J. H, }( X0 X! y        next;
& j+ v, O2 L2 ~( h: g        y_max:=y_max+dy;
! n0 P% Q2 s( ?/ m' d        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);
       
        rows:=0;
        lines:=0;
8 t2 p& C, l% D3 ]        for i:=1 to number_of_machine loop
" K! V4 g6 D& Z                for j:=1 to number_of_machine loop
0 \+ U9 ]0 C8 ?( E, ^" {( i                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  P/ s- L% Q8 q1 D/ Z6 m7 G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 G# m$ H* H; ~3 [- C, c                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 x# r7 a3 i9 ?; E3 I$ V                next;
. i* E: D5 ~0 P* e        next;
4 P' S+ g3 t, \; T& I6 J       
        lines:=0;
' T# h' j" l4 o2 ?+ d5 g2 A        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. a4 j% u- Y4 z/ U, I                machinesequence[2,i]:=rows;
, g, |+ a" f/ d( p4 n* ^                for j:=1 to number_of_machine loop
! H5 n8 z. P3 r1 B* Y9 `; N/ d  S                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
- A4 o, }, g2 ?5 ^/ D6 t$ z5 t" E                        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;
- d& S( V# u5 }* P! t                        partstable[6,lines]:=j;
$ k: h# Y& A1 m6 G3 I8 u2 \( T. L                end;
+ u) g9 h% ]2 o2 m$ ^' f$ ^- w3 j        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]);
' o" c! Q  d+ Z' O        machine.name:=machinename;标识符未知
7 d! d! e. p/ z2 Q/ ?" @5 X        machine.proctime:=5;
4 |0 ]3 h, v; W; ~3 N  Y* C        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
$ W5 X& {5 {  {        bufname:=sprint("BF",rows);
3 ^9 g6 F* f: s5 d) 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
3 S) ]9 N! `: a! _4 L        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" h( C9 k5 J3 E2 N" B- i* fdy:=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);
next;
end;