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

zooey

is
/ m, N. h, F4 S, [3 Z        mark:boolean;
7 D  E7 w( T8 }3 T  q7 ~. y$ b        dx,dy,ct:real;
; G1 W2 _6 O( j1 K1 O    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
/ K5 r" }; e$ Q- {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
8 @2 V4 K! Q7 {& X$ w1 h; }( T, I$ A4 [                when 16 then
                        print"yes";
                when 32 then
  Q& i' }  y5 {1 a( I1 c4 e& I                        print"no";
                else
                        print"cancel";
! u$ e/ f& S& b: O$ c                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
; \$ N$ U3 Q2 Z- |$ P! E+ `# P" G; w        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 k# f/ d  c8 ^- |: j# @        end;
        bufname:=sprint("BF",i);
4 D5 A3 C" s& _3 L7 _1 m# B, ^        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ K: R4 X% q' B* _9 w" a. m        end;
        next;
/ g7 n' Z- Z* X8 m) t4 I       
- z, K: W3 p/ }4 Z# X  V        dx:=0;
( J) _, z8 H# W        dy:=0;
4 h$ m* z) T; n2 W% W  {        for i:=1 to number_of_machine loop
; W6 _! [$ y& o' D2 K' `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- c) [5 y3 ~7 p& G! T( y, q                --mark:=false;
6 i. W: ?) y$ n6 e8 J6 o0 `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 E- I" Q! v2 m- o: Y+ S                then
1 u/ I3 n2 w6 I                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: E" ^4 h8 `5 b5 ^                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
* D0 s( k2 ^! K) c, U  a                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. H3 D( G! n" k  c. p7 T                        mark:=true;
                        else*/
+ I' z, _1 y! G. o0 N                        y_max:=y_max+dy;
                        dx:=0;
* M4 R9 g5 A6 g% ?: N, y& @9 F                dy:=0;
                        --end;
" p4 e$ e8 Q% a4 S; a. L+ C% Y$ q                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" {1 X# ^' M% j                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
. a% y$ U6 G" w( H                        dy:=activityspace[2,rows];
* H/ R7 o; Q3 V+ q3 u6 a                end;
2 p0 b: {4 P. v0 S& d                dx:=dx+activityspace[1,rows];
' G* E& }# p1 e/ r$ U3 ]                /*if mark=true then
                ct:=activityspace[2,rows];
- F! @6 a! n2 \9 X1 p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
& D" L  f: M/ O) M9 I3 b( Z: V        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);
) |: r2 ^+ C6 ~( I8 _       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
9 L6 t6 g* p* @1 w7 Z& y2 K                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
& s" h1 P) i! w8 q! L- \) ]# j0 h& M                        else
; }0 p  B1 ^( D7 w5 y) V' T                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 C5 j% r2 K% Z3 g% a$ G* x! M                                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);
4 f' W& d' o) z  J                        end;
                next;
; s- F1 K* q- W. _5 ?- ^4 k        next;
8 _6 d: E1 B9 A# g7 i0 L       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) n( m' m0 X4 ^+ f% @% R& v: q                machinesequence[2,i]:=rows;
  P4 a& l/ ^* J# s% H- e                for j:=1 to number_of_machine loop
" R% }  b4 C1 e- f" q5 U2 Y                        if w_from_to_chart[j,rows]>0 then
: a8 }$ l" j2 ?2 l                        lines:=lines+1;
+ M  R( L% I1 a0 d1 j9 D3 }) D                        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;
                        partstable[6,lines]:=j;
                end;
        next;
/ `$ @' W, l7 y* e  k        machinename:=sprint("M",rows);
; ^1 V' V, t  D4 ^9 E) z        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]);
0 h6 Q8 R/ N# B1 p! ~        machine.name:=machinename;标识符未知
) ?& r% w. [% E9 m        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 {1 O& l( Z# q( M/ ~* d* k7 ~$ C        machine.exitctrl:=ref(leave);
0 `  p, ]5 F5 E: Y) Y! p       
2 o2 g3 w5 ~* c. }, z        bufname:=sprint("BF",rows);
* m/ l# `- F/ s1 c; N# K        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);
       
- x8 t- z1 b7 f, A- Z- J3 @& v; q. _        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;
0 B3 H3 p8 M8 e4 Icurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;