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

zooey

is
        mark:boolean;
8 Y, K3 A0 W; y" u        dx,dy,ct:real;
! x5 ?* \& u1 {5 P" z5 h8 x* \    i,j,rows,lines:integer;
% P$ R  l/ X* F* E1 U1 ~* \1 Z    machinename,bufname:string;
    machine,buf:object;
% f( H# R( X# G- D! V$ ado
        current.eraselayer(1);
* ~! V6 ?5 d' f! f* n' e: _       
# y3 b# P* `5 k- i+ t! {- f$ I' ]3 g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' v. {0 @' D& l% `% A# n                inspect messagebox("设施数目不对！请核查...,",50,13)
! u2 d+ I) j9 e! z                when 16 then
                        print"yes";
% y, r. c, o7 }5 F7 {                when 32 then
" Z. k& X( Q8 x- p' p! S                        print"no";
2 h6 @+ k5 P2 p: v                else
                        print"cancel";
% S4 A1 e( o* _                end;
: C* H! k4 d. i, k) n) {5 l/ ?) E; h                eventcontroller.stop;
        end;
1 @; i1 H2 w" t+ Z$ d       
; g; I( c& c! `, C# ~  D. A2 l, f        for i:=1 to number_of_machine loop
. T& k7 h: }* w& Y; q1 T) |        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 \* U! p3 n7 e0 t3 i                machine:=str_to_obj(machinename);
                machine.deleteobject;
- x" g0 I) F2 a/ j: l) v) a) D2 @6 \        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
+ o. X' {# s& }9 k& h* j# h                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
+ r2 Q- H* X8 X. }" i+ M2 y0 y        next;
$ c& |- r: c1 s1 r       
& T( t5 d+ ?4 m" g        dx:=0;
        dy:=0;
* h5 K' H1 k$ K- r' l        for i:=1 to number_of_machine loop
9 W& o9 [% c* w4 v! c' @/ b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 y4 x4 M9 A+ R: J3 _" Q8 o                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
0 n: [- ~+ Q! B+ H! Q9 c5 y# C! R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
$ q9 y- I1 z! U/ G* k6 X4 R( y: s                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ r$ Z+ v! \( \1 a% M  E2 J                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];
; }: k6 p; ^0 T" O                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
! I8 Y" @2 @: B: F* ]& T* e& z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- e: X2 {6 d: x; N, a* p2 O                        end;*/
        next;
$ ?- |" c  ~& \: n$ i  L6 c2 ?        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);
       
        rows:=0;
) Z2 d8 u# b5 G        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
" \4 K1 R" l; |# @                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! }* F1 V9 w5 ~5 n( p! ^) ?                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
: \/ P# ~/ U+ }, ]                                d_from_to_chart[j,i]:=abs(dx-dy);
. \! S5 |3 p; q: X6 D1 q0 ^: d  y                        end;
/ t! ^+ ?+ a, J0 I                next;
$ @$ L$ Q7 j# x4 v6 ]2 ~1 }        next;
2 M9 G' m6 A6 E! w0 A: A       
        lines:=0;
; W" {" `; h" E0 s        partstable.delete;
       
" p4 B& H8 c6 G) S        for i:=1 to number_of_machine loop
: A% I4 z) |; w0 ?0 x. J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 R  c& U3 r1 J" k                machinesequence[2,i]:=rows;
- K5 |$ m4 V* b" m7 \2 K5 _                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 g) `4 R4 j+ ~# x" H                        lines:=lines+1;
1 ^8 B: t& P( @1 P. j: x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" m- Q  q: ?$ C                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
" ?" O) x- W2 c6 J) o! n1 N                        partstable[6,lines]:=j;
                end;
- }, F$ X; f8 ~2 l7 u( |  F        next;
2 B* e) C* {8 b$ y, d+ q        machinename:=sprint("M",rows);
, b/ X# V# }; d& \, f8 C' G2 p        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]);
# U; [+ e% V" R% ]3 T' \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
, a5 U3 S; N! M+ h        machine.label:=activityspace[0,rows];
1 ~( p; J, I2 g$ ?2 E6 L        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
) K# ?+ K& J" T9 z; }+ X( m        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;
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);
+ X8 v9 T/ {; R! Z/ c* y# knext;
) Z4 O( b: N$ g' ?! E: ?: G% mend;