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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
. |, D9 H1 |  d( A6 S    i,j,rows,lines:integer;
    machinename,bufname:string;
4 P, z& J0 K2 k: Q+ q& D    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' B) j# `$ [* S5 y' T                inspect messagebox("设施数目不对！请核查...,",50,13)
& s( U1 r, d" V* o                when 16 then
. C. ]8 t9 w: ?9 g                        print"yes";
                when 32 then
                        print"no";
                else
. O- O$ M  M4 I* q                        print"cancel";
0 y3 p6 Z8 n! e& L9 [                end;
  B: M' s4 }5 ]. A. q& {/ ^                eventcontroller.stop;
4 _+ k" @- t# n3 a        end;
0 I/ U+ P9 D. P) {; j# V" _       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
# h* |4 q2 J* W( d: ~  m; U        if existsobject(bufname) then
. s+ @: N) j& _+ K                buf:=str_to_obj(bufname);
  e8 ?+ G. h! Y, a- d9 M- D( \                buf.deleteobject;
        end;
% n9 L7 B4 F+ U; ~7 O7 H* t& q' z        next;
8 \* L1 u: h+ e) ?       
9 y: m8 W" j8 X7 ]2 x        dx:=0;
9 C+ L# ~4 s2 V- ^  k% R. n; K( X        dy:=0;
, ~- i; p4 ]/ w/ l- t        for i:=1 to number_of_machine loop
4 i; V) y  m( y8 O; h7 K$ \6 j                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) L7 H# n& P& O                --mark:=false;
# m% i) i! o: X7 f! }0 L2 [. \! V                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
+ [. L: O: E6 v' Z! O                        and activityspace[1,rows]<(1.05*y_max) then
3 ~. T- S* A: S. j                        print activityspace[1,rows],",",activityspace[2,rows];
0 p" Q& `& Y) B9 p6 C                        ct:=activityspace[2,rows];
9 |. w  Q; H. J) Q$ @" J3 e/ \& \8 Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
  G) R1 f+ a3 J) W- p$ m3 F" W                        else*/
                        y_max:=y_max+dy;
0 g6 a* o4 b3 ~                        dx:=0;
& [9 c0 P7 c6 M, Y                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 g! ^' y; Y* }6 S                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* y# a8 d* z" E2 m            if activityspace[2,rows]>dy then
3 B& _4 [$ E- M) }) Z/ n  P                        dy:=activityspace[2,rows];
$ m! i: }+ b( b                end;
+ V/ a! N7 A! _5 N                dx:=dx+activityspace[1,rows];
4 ?/ @7 L0 F9 A. r5 v                /*if mark=true then
$ m# j5 c9 L3 p( X$ K/ Z                ct:=activityspace[2,rows];
$ R+ }, ?, ]# ~) [% A* h( ~                        activityspace[2,rows]:=activityspace[1,rows];
; d( {- L0 X% i' K* Z6 W                        activityspace[1,rows]:=ct;
/ I9 S2 Y( w3 T                        end;*/
        next;
3 H4 l- |( e. G- m& d/ y1 J  G        y_max:=y_max+dy;
2 c# d' x) T$ A4 s        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);
" t8 j/ Y, s' S0 G" ~        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;
        lines:=0;
# C% R" ]. }9 v3 t- u8 O        for i:=1 to number_of_machine loop
6 c4 }5 T! o" k                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
! P; _# m. a2 X+ t' J& }                        else
* Z1 M$ u7 Y$ ~% W                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
! T7 v: @, a6 N+ E                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 U0 p6 |/ h8 o. K: E                                d_from_to_chart[j,i]:=abs(dx-dy);
# t, y& m3 Z, ]& e3 {; F: |                        end;
2 i( d' ^: G5 w. R9 w9 O                next;
        next;
       
        lines:=0;
        partstable.delete;
6 a( a5 n: b$ e3 c1 B       
6 R( s9 b# E& |5 ~9 k# f        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
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* F0 n, N' e' |3 L9 x! X, {                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ R) u! Z6 Y6 X                        partstable[3,lines]:=sprint("parts");
5 b  j! Z  ?$ n+ T) P; J                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
$ w% A% {$ {" u! |3 n- U        machinename:=sprint("M",rows);
; i# e% q9 A1 W% |        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
* @  g/ s" |$ _0 u0 w0 B" ?$ n( U# e        machine.exitctrl:=ref(leave);
       
6 T$ Z* S9 j& i( g2 q        bufname:=sprint("BF",rows);
5 U0 \* z- i% a6 R        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]);
3 {+ Z! |+ S) |4 v        buf.name:=bufname;
        buf.capacity:=5000;
0 N# [$ e; b( @! F; 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;
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);
% t; y5 Q  _- H; X6 t& [next;
% x: Z' t7 L) D. T4 Q5 B1 gend;