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

zooey

is
        mark:boolean;
2 ], B/ ]3 `& w        dx,dy,ct:real;
' k+ i1 d0 i+ S7 b  B( w( \    i,j,rows,lines:integer;
% ^8 X* B, `* V% m3 t    machinename,bufname:string;
    machine,buf:object;
% B9 V! v  i9 K' j1 f: t2 d: j2 ndo
- X: B/ }8 S( N& m+ }0 [        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ d+ r4 t, S8 L                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
" ^3 W, M( o, A) P! P  g                else
" k5 e8 l) P; @: a# m                        print"cancel";
                end;
. L$ V: ^1 H9 k. g0 j                eventcontroller.stop;
        end;
) X6 k! O8 X( c( ^2 U       
        for i:=1 to number_of_machine loop
% W" {, D! r& V9 `        machinename:=sprint("M",i);
        if existsobject(machinename) then
  V( v# H$ q0 \4 {6 ~, n                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
* q. [2 v3 R6 }' m        if existsobject(bufname) then
* _/ E4 U; W* x                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 W# ]  U0 Y; [# n  i        end;
4 p. D0 Y* e! \. n1 C! P        next;
       
8 g9 ]: H0 M: v3 K# |- C' m* S        dx:=0;
        dy:=0;
  ~2 y, D4 c; ~9 e3 i$ K: v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; q; T$ c& H2 A" }2 s8 }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! N/ G+ ^1 c0 o# \) g                        and activityspace[1,rows]<(1.05*y_max) then
% `$ m, C+ Q" j  X                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
5 {# J: P$ a2 i) E2 J9 e( y* p  V                        mark:=true;
4 K& _; w/ o8 M8 L1 L6 R                        else*/
- n; b; L9 S4 l9 a                        y_max:=y_max+dy;
& x8 p, t" O4 z0 t9 T                        dx:=0;
                dy:=0;
% u" W% G+ S6 \2 k7 v9 d2 o! m                        --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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
; g& O$ f$ z- }                end;
- ]" l8 H6 C7 [                dx:=dx+activityspace[1,rows];
3 r. @3 B; c; [: a# E" T6 X                /*if mark=true then
: G2 v( ?  y9 I$ k                ct:=activityspace[2,rows];
( B- o! Z5 r, m5 s+ u/ E% V' l8 O- g                        activityspace[2,rows]:=activityspace[1,rows];
  l& _9 r2 C: Z% ^                        activityspace[1,rows]:=ct;
                        end;*/
* r1 L: d, Y' F' |8 w5 u        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);
7 r: J1 l3 R: g8 O: [, y: f/ q       
+ ~. P; P2 k8 V! m1 W5 z- S        rows:=0;
        lines:=0;
) L# ^: K# L; p0 T0 t        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. ^0 q& O+ Y4 X5 v9 n" x" m                        if j=i then
  T. E8 l' n3 i; h( E( N                                d_from_to_chart[j,i]:=0;
2 Y9 G* W% l0 X% u* B                        else
) U, C! w, P- N8 K4 Y8 x$ ~                                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);
, y. x2 G7 N( z* y* U                        end;
                next;
# Q& v( w1 M$ t7 V7 f- D+ R        next;
1 o% J7 E7 S6 a       
0 f0 Y6 \6 Y8 H1 O) B        lines:=0;
+ M- V3 K1 u# i9 b4 p* J! C: `        partstable.delete;
       
        for i:=1 to number_of_machine loop
  P6 G5 }. u9 h$ Y& X4 `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# A* [5 {; z9 J) L1 E1 N                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& J: s1 j9 j7 S4 _1 C                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* M) F* r$ G5 E/ t8 F                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 {9 z$ R6 ]! S- s8 l" L                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
! c7 [  q, t9 g: g+ ~. a: l8 C                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
' B: C! Y5 _: ^+ Z5 o        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]);
" N8 O5 ]# ]9 C        machine.name:=machinename;标识符未知
3 N4 ~4 _/ L) i4 C5 Z1 J        machine.proctime:=5;
! g6 C, G/ z" i1 [1 R" x) a        machine.label:=activityspace[0,rows];
  _1 V  N( ^' a; ]0 f        machine.exitctrl:=ref(leave);
7 @. t# G. ^; q' j: ~       
        bufname:=sprint("BF",rows);
+ x; B6 O( p, N( ?        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]);
/ J5 L  {: s( M. A        buf.name:=bufname;
+ W, R% x+ ^' n4 n        buf.capacity:=5000;
: O9 |1 b- D3 |: V# ~        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# f! `  G! J5 Y  C       
        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);
next;
! [: }4 l4 X1 ]3 G1 T. @end;