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

zooey

is
- R6 X/ ]8 M1 }9 Y2 i3 l        mark:boolean;
( z2 Q$ ]! `# |& f# |# s6 {        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
6 g; w; k5 ?4 l! T1 K    machine,buf:object;
; V; W4 P" f: V) Xdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
5 b( U; D& V0 |                        print"no";
                else
                        print"cancel";
/ x  j4 |1 G$ n2 i                end;
                eventcontroller.stop;
: ]8 l; G5 N( m7 g) |        end;
       
  t2 r8 X: i! y        for i:=1 to number_of_machine loop
% B0 o& B, |0 X        machinename:=sprint("M",i);
8 N9 Q1 M  h$ C5 a* B- m* I        if existsobject(machinename) then
! m. d% |/ ?3 p9 a, c                machine:=str_to_obj(machinename);
                machine.deleteobject;
* w5 h7 v' ^  U        end;
, ]$ T: T: L; z* g5 ~+ n+ K" d        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
: o1 ?9 }1 |6 ~  v5 {        end;
3 J, ^- u3 y* m+ w7 @        next;
       
# A) e  u0 r# m5 O! v0 F        dx:=0;
2 X' d3 R5 @: a4 Y        dy:=0;
        for i:=1 to number_of_machine loop
7 t- m2 @( `6 v8 Z7 R0 w5 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ h0 {: \; t1 g$ L3 ^                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 P5 u  q& w4 W* h+ A                then
7 s. s% X3 c1 k) i  f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        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];
' l0 z: `1 O- [1 d; O) ]6 V                        activityspace[1,rows]:=ct;
# [: i. _  |6 n9 ?                        mark:=true;
2 N4 D* S/ N/ Q                        else*/
! Q0 a+ ?2 X/ O5 ?) N1 ]- G' X' \                        y_max:=y_max+dy;
0 k$ g+ s# n3 g7 f                        dx:=0;
. ^8 \+ q2 o: ^4 ]. \                dy:=0;
                        --end;
) q! n  a3 Y( }  E) O8 f                end;
3 Z+ b! s" S$ q& {0 c+ o) K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- u7 w% }9 R4 T0 ~- o5 B5 {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
4 v2 V: R! D* y: P+ M! d                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ n; _# ?* z  k2 z                /*if mark=true then
% L, Y0 B" ]/ C0 d* z' Y! u6 L( B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( v! b& i# \: q6 `$ b& L/ y                        activityspace[1,rows]:=ct;
/ R6 K( i1 _) Q) u                        end;*/
/ E  }1 A- A6 Y7 B( |, G, D# `        next;
- Y' f; K; Y% d+ t' E7 v/ M8 V5 ?        y_max:=y_max+dy;
: n- `0 s) w- U$ \/ G4 k        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);
5 o4 g6 w: V& a1 ^. z        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);
       
  R5 @3 u8 E9 f: @" P! ^" N# P        rows:=0;
/ f: M9 e7 R% R* O- P% [# P        lines:=0;
! k( S, _3 w; L        for i:=1 to number_of_machine loop
& u2 p( ~; u: E                for j:=1 to number_of_machine loop
3 o2 z5 N+ B( i) ^                        if j=i then
5 n& P" p. ~4 K9 ^. F                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
# i7 s" x) Y9 R$ v: j8 L1 l                next;
        next;
) F/ Q( J  B$ Y       
8 Z6 I: _" N0 J1 u        lines:=0;
        partstable.delete;
  i& ]9 b4 B) X       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 |  `; O+ c7 |7 c. x' l                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        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;
; }8 t3 u+ @# l0 P" A' ~; s* f                        partstable[6,lines]:=j;
# p" q1 G& j- @5 A                end;
* H6 y5 I9 x! S0 J        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]);
' K1 t* T, k+ ~  R% _# {        machine.name:=machinename;标识符未知
        machine.proctime:=5;
: X1 W; E$ P4 @" E/ j0 o6 }' {9 S+ H        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
) t3 E0 M/ ?5 F* ]9 y7 R: F! m8 P        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;
/ a' f4 X0 Z; c: C, i9 s        buf.capacity:=5000;
2 A5 {% g5 P# J+ {+ S0 k# Y6 }6 f        buf.proctime:=0;
. c" H( e9 B1 d3 B# w4 g        .materialflow.connector.connect(buf,machine);
       
8 K# f/ M* U, \6 D6 D' \+ X        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% ]) }$ H5 j# a" _. Kdy:=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;
end;