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

zooey

is
# H6 a- @. U2 Q3 J  M( L" k# ^$ U        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
1 J  I& ~5 d9 s( R& p* l9 }        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( G' O$ P) A0 Y! \# Y" }; }! O1 Z# a                inspect messagebox("设施数目不对！请核查...,",50,13)
, {8 f0 x2 k) C                when 16 then
                        print"yes";
7 t, P9 E. }: c" E2 ?                when 32 then
9 s4 Q/ P2 O; u: ?8 q                        print"no";
0 z& P2 U" k+ k" ]; p& b                else
                        print"cancel";
                end;
4 P0 \6 a( o; m% z7 N                eventcontroller.stop;
0 v7 D- |5 w6 X/ P        end;
       
        for i:=1 to number_of_machine loop
5 y2 L+ _) G: U# d0 {5 Q" a        machinename:=sprint("M",i);
        if existsobject(machinename) then
( z/ I( _- M$ h0 y" J! y$ P                machine:=str_to_obj(machinename);
4 @1 E# S5 F3 s/ h                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
* s$ U4 Q+ ^% @& U: K4 s        next;
       
, E* q4 I* d* w5 p9 d        dx:=0;
" l- m, b! @9 J, w        dy:=0;
$ h2 W- r; i0 |1 c- D        for i:=1 to number_of_machine loop
: P& X, \3 @9 D" L9 _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
5 @2 s# t8 Z. X                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  B# y- ~& ]' L4 b+ I9 ^% Y, P                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 N$ D3 B) N5 N9 {/ c                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: I* V& `6 [) A5 P. ?                        activityspace[1,rows]:=ct;
% N0 A3 l, U  k9 A6 e                        mark:=true;
                        else*/
( o. X( l$ o- W3 M3 o3 D                        y_max:=y_max+dy;
2 S( x2 W2 L; ?2 b: c) b                        dx:=0;
$ f5 b4 j  B5 u# ~                dy:=0;
                        --end;
                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;
! V" D0 I( f4 M' p            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
  F3 K# d1 o, H9 {0 P                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
; O1 D3 C# `9 |  {/ k6 q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" m5 P. n3 U6 S- a7 B                        end;*/
" A5 ?4 a" o9 b0 d        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);
       
, V3 B$ x# a2 h% B+ L        rows:=0;
. s; ?. Q+ H; R- ?7 _- w        lines:=0;
        for i:=1 to number_of_machine loop
. J* O, d. F# c" [+ S2 @: n1 B' \                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
! \- U) s4 B/ c; y; x+ u+ ?                        else
                                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];
+ z! }+ n( Y; i' K" c                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
; p5 {$ \5 g. o5 \/ S6 D                next;
        next;
       
% P% B, h" ~0 K        lines:=0;
        partstable.delete;
4 |. t5 N7 ]& n) O! u       
        for i:=1 to number_of_machine loop
. g2 L6 x1 W$ \; ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% I" X! e+ g& `& ^6 z                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& y$ M* s" u- u! ~# Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
0 J! a5 s( b$ F8 M! l                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# L: T. M8 ]# w2 L                        partstable[6,lines]:=j;
$ {- j+ o9 X% z4 M* ~9 e( f                end;
$ M2 W7 \( ?4 ]4 y        next;
, B  \% \7 l3 A" w* V  m, }        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]);
( Y) [9 f3 D7 B* d* r- y$ E        machine.name:=machinename;标识符未知
% t$ w( }$ M- i% \6 E2 F% u- l. t6 d        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: z3 t" x. j( q6 ^        machine.exitctrl:=ref(leave);
6 `# w' c. Y# w6 f- X1 S$ e       
- o1 z/ s% p4 y$ Z9 W5 D: z        bufname:=sprint("BF",rows);
8 C& o: {) n+ B2 r, C7 r! \4 J        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;
; }" M4 ^; F8 C: C) J' V9 X        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
. e% E; O- u8 _) A7 X, e       
6 j% j$ ]. F5 n7 E7 Z+ w+ q9 J        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);
9 c  |4 b7 F" K' {- A6 anext;
end;