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

zooey

is
- |+ A; \+ Z) V; ]* U3 Q& `; l        mark:boolean;
        dx,dy,ct:real;
6 F2 e6 e! q! w8 w    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
, ]$ M2 ]) w8 q( e+ u& D        current.eraselayer(1);
+ K, Z8 P, M3 i/ Y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
) g+ x4 c# \' I* _3 v; ?) T3 w  c1 `7 P                when 16 then
' n& v" m; D2 Y/ d9 S7 z                        print"yes";
                when 32 then
                        print"no";
                else
) G- z1 N, |& e1 Z                        print"cancel";
* C; J3 m' _" g! P% i! n                end;
$ V0 v& a9 u! u3 q* T4 X' I                eventcontroller.stop;
        end;
1 W# o0 X1 x0 H. ~5 M5 ?       
, \6 S) Q: R7 W: t" j        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
, v; W& y  {4 h3 H9 i                machine:=str_to_obj(machinename);
6 r$ {- F3 l' q2 k$ ^                machine.deleteobject;
* P9 k) s3 X/ w& M2 B2 n/ x        end;
0 I# Y1 E/ d. \5 k        bufname:=sprint("BF",i);
1 n; d: Y$ b* w; f" x& _        if existsobject(bufname) then
* F, ~3 n6 U% N2 _; Z( z2 {                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
5 O- i+ h: C4 j        dx:=0;
        dy:=0;
( A$ U8 M- H, I1 e; u- F) y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 [( G$ `: i' J, ^1 e                --mark:=false;
0 w5 ^/ ~3 M& _, ]! c% }' U+ ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' ]/ v* `2 r# _6 P# v                then
! C9 I" Y4 S' o: y5 V% i3 l0 ~: _                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ O% D: A9 t& l: {* l; ~7 g1 s* |                        print activityspace[1,rows],",",activityspace[2,rows];
. @# s% \. O0 G# q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! p/ Q0 C- W8 r' O- x8 z: K( m                        mark:=true;
                        else*/
6 u/ ?" k) v5 H& ^! z$ h                        y_max:=y_max+dy;
8 t" w/ z/ J8 x8 A5 h                        dx:=0;
                dy:=0;
                        --end;
8 z% ~0 m$ a/ H* N                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- y$ f9 g* H$ F, q9 d# ?                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" ~$ f# ^6 Z; A            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
( q. z% o/ p7 o                dx:=dx+activityspace[1,rows];
: r) _" ]4 N! B& a7 J" o  P                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% O4 G; M4 h! l- m+ D" t% f                        activityspace[1,rows]:=ct;
                        end;*/
        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);
       
4 Q7 r' B- C9 i        rows:=0;
) v5 m0 T9 S- v6 ]1 X& f        lines:=0;
; {: p3 G/ g2 V" ^' d3 W        for i:=1 to number_of_machine loop
# E7 x! M, s5 f% U. r" y5 b                for j:=1 to number_of_machine loop
- ]$ l3 e1 e# k( F1 W- P, S+ Y                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
* f) u9 ^& {. Q/ |: v+ \/ f3 t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. i4 m8 B: Q# r  @                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, f5 q; ^9 f7 H2 E' H6 I) v                                d_from_to_chart[j,i]:=abs(dx-dy);
* z% N+ q; A/ ~                        end;
/ Q. r( b& Q2 a+ L2 l7 n                next;
/ W; N9 o5 }2 y# e) I5 K' U  C2 {+ q$ z4 b        next;
+ }# ]1 k& C1 I$ S0 q       
, n) F/ F6 @+ p1 L* ?  q4 b* i$ |        lines:=0;
" S2 w* Y1 @9 @        partstable.delete;
6 \! i+ D6 Q  X% S, v8 X       
7 w# v1 M' R% L  F" f        for i:=1 to number_of_machine loop
1 E! P6 }( ~) O" H: }+ d  l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
$ x2 R1 ^; H* G  q$ x* l                for j:=1 to number_of_machine loop
2 u3 `1 m0 f4 H                        if w_from_to_chart[j,rows]>0 then
6 z4 c0 o: Z; h4 _) t$ p1 P                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
, ?$ X" J3 `. T8 e5 ~- W                        partstable[3,lines]:=sprint("parts");
# j0 a- D( v' A5 B( o! e                        partstable[5,lines]:=rows;
5 |! J' `$ k; b: l) p3 m                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
: `/ Q& i7 u* @% w4 M" A9 Z# e        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]);
9 D: X$ c, Y) T$ r        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 U9 l- D6 R2 q, Q       
        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]);
! F% m* y' D) k" A        buf.name:=bufname;
! c) L4 V! R" I1 D; A6 {        buf.capacity:=5000;
9 i, Z$ }; k+ H& }        buf.proctime:=0;
% m6 a5 s/ {0 ]/ T+ K. z        .materialflow.connector.connect(buf,machine);
% G/ x9 I4 ^, t3 P0 S. ^       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 E: C8 m: M' o8 Z" Qdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 P4 `$ {8 D$ e  c) j( I+ V7 {current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
5 ^3 Q$ }4 m& I& V& B# E/ R: Y5 dend;
& r1 i) x0 M5 C: O0 ]9 M1 k/ n