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

zooey

is
* ]$ q6 \/ i& A0 R& A2 Y0 o+ `" H        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
, ^1 R8 C: p  v: u* l, x& J    machinename,bufname:string;
' T; W8 U8 E6 q& O    machine,buf:object;
do
! m" r2 m; Y$ D; s! l" B( e+ p        current.eraselayer(1);
! z9 J: _" G2 m       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: Q# J8 P. s; t' u1 o                inspect messagebox("设施数目不对！请核查...,",50,13)
0 \6 z7 R( U; O% d                when 16 then
  B1 x3 d' u( e" Q* O                        print"yes";
, O! Q1 F2 }1 w" ^                when 32 then
- e4 _+ Y6 V" `1 h3 M& U                        print"no";
                else
                        print"cancel";
+ t/ [( r0 l; l: }/ N3 V: D                end;
0 r, D5 L. Y, m# L# l& X                eventcontroller.stop;
        end;
! i% D( }' g0 o" E: X       
        for i:=1 to number_of_machine loop
/ i1 h) _$ D3 F! l* v) a* K        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
6 R0 j3 S$ u6 T, h/ ^                machine.deleteobject;
4 w$ x5 ]. [- l. z# ?        end;
& d6 p& Z! [# }3 ^9 |        bufname:=sprint("BF",i);
5 f  K! ]' v0 h8 t5 |        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: s' y+ o6 |" L1 p' `9 Y                buf.deleteobject;
2 I/ X3 E, \+ m# B2 H, P  I8 g        end;
        next;
# L6 C. J/ e, H1 ]% \% h: D/ F       
: H0 j7 w. R- a5 }" X  F% G0 N: h        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
6 V) h* B* T2 [+ t4 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' z# o  K- O6 Z! B% X8 I+ v3 R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 }5 a+ _( N8 M( }+ W                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  ]! @% U, [4 ~% {1 d                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 {6 s' }( ?# r5 ]4 N* y# w                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
0 l* n, c; Y9 r3 Y; d                        else*/
  H1 x% |* q6 ~' z                        y_max:=y_max+dy;
                        dx:=0;
& o# n( [8 U" U' W& B9 }                dy:=0;
                        --end;
8 C" s3 Z1 @% h) M                end;
5 v# k) k! m4 Q# x4 f* _: X! f                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];
* o& ]/ M- B5 B" G" E# h2 l0 f; B2 f                end;
                dx:=dx+activityspace[1,rows];
" m* F  Z" I2 u$ j( E                /*if mark=true then
5 B( v9 Q* y; B% ?: }7 p) O' ~                ct:=activityspace[2,rows];
6 B: t8 w' t$ E" F                        activityspace[2,rows]:=activityspace[1,rows];
/ R% w0 G) `/ r8 _4 {+ b                        activityspace[1,rows]:=ct;
1 i' W& a6 Z" S. i+ C# @0 ]                        end;*/
        next;
# |+ ?. {- t# ], h/ V& `- b8 d        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);
: l. O4 S9 M9 p2 h8 F! ?( X  n$ o4 p        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);
       
1 n, o3 l. X9 v! _; |6 Z* e( @& {- R; g        rows:=0;
        lines:=0;
8 x# J+ ~+ m& [        for i:=1 to number_of_machine loop
# y% F8 [0 `3 M- r" P- h6 ~0 V  B                for j:=1 to number_of_machine loop
                        if j=i then
: M: z+ @5 l9 O3 i% S) }+ Y7 ^                                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];
: T9 w! Q5 I' c/ D2 i2 e+ V: A                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
  {; v. n' X# ?9 v& |. r7 Y, ]( Z                next;
7 K' @: M6 v/ n. w5 l  K        next;
       
9 S4 A& S2 E5 a! F% Y0 a2 X        lines:=0;
        partstable.delete;
; I* L2 z, _: x" v       
3 q8 M% C8 A" y# w0 S& ]' {1 s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
* u/ r+ a9 v" n3 F" i* M                        if w_from_to_chart[j,rows]>0 then
1 l. {9 e3 w# t) d6 T- O" n                        lines:=lines+1;
# ~1 x+ U3 f: F2 e. Q7 U  Y  K# G: t, m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' Z1 S1 `. W8 Y+ I" T% F. p+ X: k% a                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 N! t3 i! F  g  @" @& \, I6 }; Q' U                        partstable[3,lines]:=sprint("parts");
0 L) x1 f3 X$ K# L: _                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
( \# m* h& v& |# h                end;
) c) g( ~) j, J( e% Z& ~        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]);
# ~: t& [/ z+ N; b" f        machine.name:=machinename;标识符未知
0 |3 u6 b' S- X) s. Y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 _8 W7 v) @& U7 k        machine.exitctrl:=ref(leave);
, ~2 V- |$ N& L" ^       
! E' D: i* l: D        bufname:=sprint("BF",rows);
/ B4 g  n- g: D: c, _1 q        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]);
% V$ F1 L2 {5 Y- n* `        buf.name:=bufname;
' S  Y) h% u8 v        buf.capacity:=5000;
7 S4 G/ O  b1 C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 E* o" {0 ^0 L3 Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
4 a9 B3 q: @) g6 A6 B1 W3 Z7 Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* y  K" \1 A0 p+ n/ O- Dnext;
end;
1 x2 T! i' ]+ Y