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

zooey

is
0 u$ ^, z2 K( i% v7 K        mark:boolean;
7 H" s# {% C& J- P: ?7 w        dx,dy,ct:real;
: B7 I8 U+ u9 |    i,j,rows,lines:integer;
$ T6 Q2 K8 Q5 C1 j    machinename,bufname:string;
+ g1 C/ y% o9 C0 i$ {; x    machine,buf:object;
do
        current.eraselayer(1);
       
- C. C; q8 K/ ]# [' y% x6 f# z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 p! {- n# V/ p. v                inspect messagebox("设施数目不对！请核查...,",50,13)
7 O7 ^% K2 j& ~' s1 w8 L4 i( N                when 16 then
                        print"yes";
: O' r3 Y- ]) W* u& x9 _  n# p                when 32 then
' S, g9 X) |/ G( i) V# f                        print"no";
% i  _8 H7 u# n% {* b                else
5 A# g6 a- N% M  ~; M0 q2 U                        print"cancel";
# V$ I: H# O" E                end;
5 l0 u5 |' k( i! A8 h4 }) p5 g1 K                eventcontroller.stop;
- I9 g. |8 U' b% Y$ X" Q) v! \        end;
" r! ]- j/ [/ G5 K       
3 |4 Z2 G% L2 I) ~8 K        for i:=1 to number_of_machine loop
1 I1 s& h  c# G0 W        machinename:=sprint("M",i);
        if existsobject(machinename) then
* c& B/ K; V' k, [( ]3 t- f; w                machine:=str_to_obj(machinename);
& Q7 i" v3 {+ b7 M  `                machine.deleteobject;
        end;
5 I1 K6 J6 z  I. r, T        bufname:=sprint("BF",i);
; P3 G! M# b: N  g1 \! x% Y        if existsobject(bufname) then
+ |6 A! \1 P* X9 R7 ?( {                buf:=str_to_obj(bufname);
9 T2 M; _& S/ g; g  _                buf.deleteobject;
2 I- D4 Q: j: t4 P' {3 @* I        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
% Q# q0 N3 p0 f8 d% M1 q% L0 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 M# \( ?7 t8 \                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! x9 i+ J) h) U, Q2 y% I# {' l% I" }                        and activityspace[1,rows]<(1.05*y_max) then
- ^3 i5 {* v: s9 x! O/ l% }( o                        print activityspace[1,rows],",",activityspace[2,rows];
9 r" f+ m0 [+ ?7 V                        ct:=activityspace[2,rows];
1 n2 W% o* o  A8 T! e1 T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 H# b& s) L( r/ A* r$ ], o                        mark:=true;
& N* u! T  }( d: @                        else*/
                        y_max:=y_max+dy;
! V' k+ b0 O% t2 r0 ]                        dx:=0;
" @$ `( a: m, b  Q3 ~* I$ o$ c8 Y                dy:=0;
3 n% y6 m( t3 O3 K0 d! R                        --end;
                end;
2 \1 M) y0 Z/ R% b) @+ M0 W; S% x                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" s( d; C; {9 B8 {. ?$ J  u                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
5 v: f/ R' R' `: L- W, |4 |: u2 {                        dy:=activityspace[2,rows];
                end;
7 P7 D5 W$ t& d% @# I& O* i                dx:=dx+activityspace[1,rows];
                /*if mark=true then
, I0 m) O$ a+ F9 l3 M                ct:=activityspace[2,rows];
/ w3 s$ A) d. s4 I, Y+ D. |# j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
% w1 x. [- O, G7 ^        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);
& x* P  ~& K" Y+ |+ c       
        rows:=0;
; Z3 S2 k2 Y5 A& L1 g        lines:=0;
! N* j* z8 w1 q. q6 U  b+ E        for i:=1 to number_of_machine loop
& _  }4 V- J( i! f                for j:=1 to number_of_machine loop
                        if j=i then
) o3 z  Q6 w4 k( C7 ^* z+ P; R                                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];
, Z% x# p: \4 S, x% F                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& t0 l! R: e  U                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
3 [1 ^0 S4 E3 @) N% M; p& ~* J                next;
        next;
* Y) s0 M1 s: Y       
- k9 v5 |" g/ c8 z! D" g5 U        lines:=0;
% U* k( U: ^7 C0 A) C        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& X  d% K, A% A6 Q3 T                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
  v9 f* M5 y2 r2 Z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ W: Y/ @: ?2 m# F* [7 ]% g                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ B% R/ `2 h8 T4 B                        partstable[6,lines]:=j;
                end;
# A% P% x, n' p7 R& s1 x; g        next;
/ H8 q/ g  M4 E( U: M        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]);
        machine.name:=machinename;标识符未知
5 J( B& f; ?5 h! T& F% `! z5 G/ R        machine.proctime:=5;
% S# z: O# z7 H( c        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
& d) L. c) o$ v  U! Q5 K        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]);
8 J" ?3 t. x: K" h        buf.name:=bufname;
* f! E3 Q2 X5 p8 g3 A0 n2 i# g1 ]; P        buf.capacity:=5000;
0 Q- ~$ J4 a: X+ E        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
: U( t0 h& u3 N6 J0 |        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
) h- Q8 a  S/ X3 V  Y% r, \3 s+ ydy:=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);
# l$ m$ [( |& Rnext;
end;
" t3 U- [. p: Z