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

zooey

is
+ B$ F* H4 z* t; v- b# d. a' p) q        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
/ L3 D& P8 n( x    machinename,bufname:string;
3 w5 y5 z# e4 V4 |' t5 T6 A$ L    machine,buf:object;
do
/ |7 e& L8 q( p2 b        current.eraselayer(1);
       
* K1 ^9 W: N; Z; g        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( J* G/ [3 u6 o9 L8 }8 i; A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
7 {4 N, j% W0 V* `3 g# V, m8 {                        print"yes";
3 `7 h! O6 P+ F                when 32 then
0 Y4 X7 q8 j$ ^) ~! d                        print"no";
                else
( z4 a& _5 \0 A, _( z4 S7 W                        print"cancel";
                end;
                eventcontroller.stop;
  M: ]# a( \3 A% C/ k" t        end;
  i' P  Z9 x' v" V       
7 r( t$ Z1 E8 V! @        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
4 o# G! [0 w& e5 o. Q% \                machine:=str_to_obj(machinename);
                machine.deleteobject;
0 _1 ~% J$ c8 X. B* J        end;
        bufname:=sprint("BF",i);
" P" C0 i5 G, l1 L5 `/ y        if existsobject(bufname) then
: G1 h" q5 W% Q- f+ j4 y+ j/ _                buf:=str_to_obj(bufname);
                buf.deleteobject;
# \8 x0 u5 h. F( b1 b; h3 j        end;
3 P) T# B# Y& Y9 `2 u% U& r        next;
1 U: ?# h8 g( u) w" e0 B& c' k: O       
        dx:=0;
        dy:=0;
( n5 c  q& ~9 a3 w        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
" A+ R$ ^# W# u+ M# t                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
& d: Y% P9 m4 o: w! C3 Y' l1 m                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 F$ l0 G% b& w4 @( P: `8 q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" i4 d7 [; x5 D1 A                        activityspace[2,rows]:=activityspace[1,rows];
  n8 m" ~! d6 [$ k5 |* W$ `* \                        activityspace[1,rows]:=ct;
                        mark:=true;
* H( A; ~9 I+ F7 f9 h2 |+ L$ b6 ]                        else*/
9 s+ t8 Z2 a+ z                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
% c2 q1 n# r( l; `  O2 p! T& v                        --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;
. `3 Z, Z6 N, B            if activityspace[2,rows]>dy then
9 i' H# x) E, }" Q$ N7 ?6 d                        dy:=activityspace[2,rows];
                end;
" W9 \- r) K$ a5 P* e5 Q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( W8 h! j- p* [8 d: X+ U5 l+ g                        activityspace[1,rows]:=ct;
                        end;*/
$ X3 V. M  s: M4 Z, }$ Q  q8 Z# a        next;
        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);
7 f0 G. v& j- I/ L8 g4 B       
        rows:=0;
  F! z) z8 q  c, [/ q        lines:=0;
1 A* _; i3 A: e" z( I        for i:=1 to number_of_machine loop
1 h2 w4 v1 N: n6 a                for j:=1 to number_of_machine loop
% X8 c2 A: N" ^- ^                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 |# P2 c' j6 |' Y( l" a- W                        else
, Q/ A& x$ e/ b& _7 i: Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 R' g! y' E6 }8 R5 }& J( s3 E                                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);
' t+ c3 I6 q3 B  x                        end;
& F. \% z" \6 A& h                next;
6 ~' o+ I1 J6 d  Q7 e0 ~        next;
       
        lines:=0;
        partstable.delete;
8 z+ i. \6 t. m. l       
        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
3 \5 L$ ^: d* Y: Y; }" X& Z                        if w_from_to_chart[j,rows]>0 then
/ D4 H& M& Q0 k) ^" }                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, I2 V( K2 w' B6 s3 a                        partstable[2,lines]:=w_from_to_chart[j,rows];
" ~& W) y% K4 I                        partstable[3,lines]:=sprint("parts");
$ u& ]& l7 l: w9 J& d                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
5 p7 {; ?" q& j/ Q) {+ v" z6 _/ }                end;
        next;
        machinename:=sprint("M",rows);
3 O: J2 o# Y, u. u/ B        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]);
' g1 \  `* A( Y& v( S; i        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
0 o& V, l' P1 |4 b, _' F% Z* J        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;
5 B0 S# [. X3 B4 M$ L8 l* g        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) }1 _5 i/ |8 t& |( Z       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 b$ X6 ], I) W4 U! \0 Z# Z3 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);
next;
, F  z& r$ j$ m$ W2 X% nend;
4 h. p) D6 ~* ]' @! `+ h