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

zooey

is
0 F. c0 i7 [* o        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
' |  d; K8 u( e7 b) ?! E7 z    machinename,bufname:string;
3 i! _4 Y5 g& C0 x& k    machine,buf:object;
7 z& \8 d4 C9 _$ Ido
0 l% U3 [, o$ h' M7 |        current.eraselayer(1);
; a. d" a2 N5 B" L* P+ L: ?' u& A       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" b+ V4 z7 `0 m                when 16 then
                        print"yes";
                when 32 then
  d$ d3 k* p5 j                        print"no";
$ C9 c' Z; |2 E, T                else
                        print"cancel";
: E8 P. E1 o! e: ]! ^                end;
                eventcontroller.stop;
        end;
       
0 u1 f0 p! j3 M1 ^2 X        for i:=1 to number_of_machine loop
/ w6 {& W0 ^9 ?( D+ E( n8 `        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 f* }  j, b6 k8 Z                machine.deleteobject;
; O9 z+ Z4 s! q# a: n        end;
( u3 I7 j9 @- E! o        bufname:=sprint("BF",i);
* |: o+ ], V( g  M" n2 b        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 S1 k1 Y/ C% P0 q" Q        end;
2 x5 N& E# c' R( Z+ ]' w+ \0 Z; [        next;
       
        dx:=0;
% r5 z* {7 Y. n3 }        dy:=0;
3 X* ^- W: @( h2 V/ o        for i:=1 to number_of_machine loop
% S& H  M) r! o2 t" f% Z3 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
% O% m3 G- f' u  [/ a  q* Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 k6 o9 R; s; I                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) l# M% E  l" R+ r! i4 }6 W                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! @  G' k2 `. h! @2 p) Y2 `                        activityspace[1,rows]:=ct;
2 C1 u* e: M3 }2 [/ w                        mark:=true;
                        else*/
3 V$ s0 v* p  I2 V, r                        y_max:=y_max+dy;
: v9 e/ r+ X% t                        dx:=0;
                dy:=0;
                        --end;
9 T4 W' |. P4 @                end;
# D. u, x* H6 s6 ^0 Q% m                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;
$ {- _9 n1 o. `( L- {            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
5 n# r1 A6 p( x2 ~                        activityspace[2,rows]:=activityspace[1,rows];
2 ^. Y) _% Y) f  q3 \) S; X- |                        activityspace[1,rows]:=ct;
                        end;*/
        next;
2 e0 }9 Y- M# t        y_max:=y_max+dy;
( d! |4 X7 @; |& R5 S+ N        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);
/ J5 @5 q! g6 ^9 Q- N) h        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);
" \  J  k  k3 U9 }1 o       
        rows:=0;
        lines:=0;
% a  d! h' H) E$ Y* r! b        for i:=1 to number_of_machine loop
# P- `1 a2 x$ G6 ^                for j:=1 to number_of_machine loop
                        if j=i then
' s& G- I6 B0 K+ a; v                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
% ?  N/ Y  b. {                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
' U! @7 C8 D: L0 ?) r5 F8 W                next;
        next;
       
7 w$ j( y2 j5 U4 C6 ]0 ^: _        lines:=0;
        partstable.delete;
; H. X: b: Q& x; q# Q  V       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 p; N7 w, P, s1 o" r5 W; x                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# Y9 N: d' ]4 b; M. E$ ~# p( F                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 ]6 _. Z( X' a  g. g3 f* J                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 r2 p4 h8 a# E$ n) c" s2 J                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  C& a1 Q3 e6 H4 {, T        next;
1 |$ o1 m. X0 p6 w0 ]% T        machinename:=sprint("M",rows);
! v4 O) t: ]  [$ O# _* g3 M        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]);
        machine.name:=machinename;标识符未知
( G+ B9 |1 l$ u& y! t9 ~        machine.proctime:=5;
$ b- s: _3 k9 o$ U/ n        machine.label:=activityspace[0,rows];
& Q% Q0 j- k$ G  I; N% M5 ^$ \  G' O9 U        machine.exitctrl:=ref(leave);
       
        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]);
9 n+ i' e1 i# d& V        buf.name:=bufname;
) F0 A- s4 h0 w$ G6 n        buf.capacity:=5000;
- {3 s5 `* ]! z* }6 m        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
/ D; U5 ^9 k# a+ E       
        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;
# }  |. l6 x+ u6 ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
  t4 A2 t1 ?' U& A8 o' dnext;
end;