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

zooey

is
: m0 G  P  {% Z        mark:boolean;
' ?  ]8 l, L7 z        dx,dy,ct:real;
    i,j,rows,lines:integer;
& N) Q, }, R! U* c8 E    machinename,bufname:string;
! K; @# ?2 B- }& b: a4 N    machine,buf:object;
. E# W2 n; p9 F: \do
2 }. J6 |( y; J3 K. |- ]        current.eraselayer(1);
) k+ G$ V- `9 u. ^* @       
" s. h& o% s9 ^7 g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ D" x$ I; E. g+ P' Z5 X% J* H! M                inspect messagebox("设施数目不对！请核查...,",50,13)
8 v& u' Q: S- n" {# @2 X$ q% ]  K: |                when 16 then
' f, A3 s( q: z$ M) }                        print"yes";
. n8 ~% E- J- J                when 32 then
                        print"no";
                else
                        print"cancel";
! e# Y8 ~% i% u! M, c                end;
) t6 l- E/ c% G, a6 f4 [/ [                eventcontroller.stop;
& k/ q4 l& {, u/ t! o4 d- P        end;
4 s8 A3 C" \& \1 h% g. z       
/ R: `( _' s- K        for i:=1 to number_of_machine loop
3 x" \  y) {4 p+ @: D' _* h        machinename:=sprint("M",i);
- N5 l8 l5 }& I2 c2 P        if existsobject(machinename) then
! ~% L( i* j0 r. r                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
9 ^4 S: Z0 |2 S        if existsobject(bufname) then
) `) r4 d8 f. @+ A- w                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
7 b! n8 F2 G- Z        dx:=0;
% B, I6 y4 `6 x* h; d4 A        dy:=0;
3 [5 v! `: T/ e; l, E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% I' F" k% X2 z2 `- [& o                --mark:=false;
, I1 t6 z3 }; e5 R" `9 ?8 O" w$ L$ j& c8 m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
5 c- T& l6 W6 e1 |9 A0 J                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) Y# p, n$ u! q3 W% _- R  w                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
: q, A. J: \& _: c1 D5 J: _                        activityspace[2,rows]:=activityspace[1,rows];
! E9 y* t) v: y0 T/ M                        activityspace[1,rows]:=ct;
6 C! l- @0 ~2 W5 U3 A9 R) U1 j                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
  I; u  Z; P8 _; y8 ^- `  U                        dx:=0;
                dy:=0;
6 A$ y$ X3 f9 f9 k                        --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;
" }' H2 O/ Y- m/ R1 C- o            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
3 r; h* v! D# W# ?. @+ R! X                dx:=dx+activityspace[1,rows];
, Q- u1 k% i( J                /*if mark=true then
                ct:=activityspace[2,rows];
. F+ E3 M0 f/ S: \6 D                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
4 c' f5 H6 s4 ]& @        next;
. N  g5 F) g2 e$ ]        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);
2 Q1 [* ?+ j* N6 o' [1 n: a        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);
) V, u4 e: n& Z8 Z' v; l2 @       
( o5 b" {, e+ u1 r        rows:=0;
+ x: H" f) D$ i) ^6 {" o        lines:=0;
4 q. E9 h6 ^/ g/ u2 p* }5 X) l        for i:=1 to number_of_machine loop
$ }' g. s5 c) c. O! F                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
$ ~, Q& f4 L  P% }                                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);
# P( |. v' ?( t1 X7 Y                        end;
                next;
        next;
# d1 N3 l, L& A9 k5 \% P* G       
9 |* o' m3 p( v- i, |0 r        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
4 @7 I0 m) u( L) |) e  Q8 |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# `5 o8 V& E* ]4 n) V                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 g$ F+ @* Y3 H' P3 h5 L2 C                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ z* x! `; A7 o% o                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
1 P9 t* l( S( C6 _                end;
        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]);
' s. Z# y5 F7 j+ G5 A# S+ P8 x# j1 h        machine.name:=machinename;标识符未知
0 I. j. t1 ~! Z( k9 m0 s! N+ g: k0 b        machine.proctime:=5;
* K& U  i5 H( K# b; Q+ J        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' w1 T" \* J! X! I! |& O! d: y$ P       
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
$ w8 `3 \2 \6 Y' a1 j& l) j( L        .materialflow.connector.connect(buf,machine);
6 \4 g/ n7 g9 s& J" z% ?2 p       
* T* }7 u6 u" d) P. Z% 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;
end;
9 i; Z- ?+ Z1 k- f( K0 |