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

zooey

is
  Q. W, z  r7 S  _* E+ ^" M        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
8 C! d7 `% l5 u" V    machine,buf:object;
( |9 n( J' V2 Ddo
/ O1 i$ h: T5 O# j8 t3 k4 o        current.eraselayer(1);
9 W, O) \0 C3 Z% {# ?* d6 I0 v       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 ^' B8 ?5 j, I                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
6 S. N9 F/ H5 j5 q' T: @                when 32 then
! d! w/ |8 I* z  T                        print"no";
                else
9 a' x# C/ T& d) U) i6 i. ]$ e( [                        print"cancel";
8 @% R  U" i2 Y                end;
9 ]! y" `& }2 Z7 `1 U4 S                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
/ C" L7 B! e5 F! ~/ v        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
6 W3 J: j6 n  C1 Y. x- S6 N        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ {! X  _% v( c9 M7 F! y                buf:=str_to_obj(bufname);
                buf.deleteobject;
( Z6 N6 I0 O* ~6 {- M5 U        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
1 `: y% d$ x6 M9 b  P9 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 N5 R9 U/ D4 z; r                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 m: a+ N. m% q; M                then
1 v0 p( Z& a$ B! r! L, p" s                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 y( e* d% e8 |9 H/ q7 ~                        and activityspace[1,rows]<(1.05*y_max) then
  ?, s) E" F4 G                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
9 i/ G- _0 ^( y  \                        activityspace[2,rows]:=activityspace[1,rows];
$ \* r2 f0 y" E/ |                        activityspace[1,rows]:=ct;
9 m! I) ^. x" f                        mark:=true;
                        else*/
* M  @9 a& p4 t6 U- S2 G+ T                        y_max:=y_max+dy;
6 |) n# M9 C& i" i* v, m                        dx:=0;
                dy:=0;
                        --end;
                end;
! x8 X: {7 ?4 _) j                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 `6 p: ^; L6 ^" I: Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: j4 ~7 \9 x6 k* d0 U* p3 q            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* h# @8 \+ l. |9 H) a                end;
9 J* r& `3 j+ P  @1 ^+ K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
! N: W$ B" m3 z+ i+ [                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# P. c& H; W; `# Q8 e* p                        end;*/
        next;
. h$ H" S% u# v# l5 U& W& y$ {' J$ I        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);
" t. O" d' z/ w* u" V) O+ V        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);
       
9 h) V) K0 x& W8 s# l        rows:=0;
        lines:=0;
" W0 I8 l- r8 ]: Y1 u- O        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 a, e6 W1 K# w2 Y                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
$ C& ~! x% N0 ^5 L) K$ B; k& ^        next;
, w) P& r" s7 l  F3 R+ @       
        lines:=0;
        partstable.delete;
8 y$ N2 d  M3 }) J6 W& `3 D, n/ m       
% K% z& k0 S; Z# V. Y2 n1 G        for i:=1 to number_of_machine loop
! r" Z8 C9 K0 u" @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 W: K, E( W4 R# H" ?7 t                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& D; m1 k5 B7 B4 B% ~7 O9 b  E$ z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 X! ~2 G& A+ T9 Z! Q4 i                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 j' }* T" {# [# i: e) r( Z                        partstable[5,lines]:=rows;
% R1 r/ G" C6 n& g                        partstable[6,lines]:=j;
                end;
( Z4 N( W. P+ a5 S        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]);
7 _( ]5 Z4 Q! ]# n$ j) E# Z& E        machine.name:=machinename;标识符未知
        machine.proctime:=5;
% A- N7 O0 V/ u6 C& h        machine.label:=activityspace[0,rows];
) `: A1 P2 D9 l( I        machine.exitctrl:=ref(leave);
       
9 ]' v/ m# V3 m4 p2 U; I- ^5 k        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]);
" `% c% U" |) J+ e7 \        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
) _6 h4 I* }9 u) w5 L        .materialflow.connector.connect(buf,machine);
       
8 ^  P3 Z( U/ V+ i! {, }        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;
. d5 y# i/ `( ?4 H  r. fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 H/ U: y& N; |* r; \! tnext;
- K, o3 f1 R, j5 T8 Z0 h# G% ?% oend;