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

zooey

is
, L& N8 k/ |7 r9 f, `        mark:boolean;
        dx,dy,ct:real;
0 b* E0 P3 Y2 f2 f+ ]- A3 w# O* _' X5 f: N    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 ?9 d6 T+ V) m3 x" tdo
% Y7 T; R! K0 J! `6 S5 o. }        current.eraselayer(1);
       
4 N+ c! z- M" u* ^        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 s/ {3 f9 {- l0 b* i                when 16 then
$ ~9 ^# g0 t8 V                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
- z5 e7 o+ f# U' u                eventcontroller.stop;
        end;
7 _: G+ r3 j/ ~  c7 j; e  B8 a& L       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! [1 y0 i$ v) N* w, O        if existsobject(machinename) then
0 L1 f& r* [' J                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
% ]- k9 }& F/ @4 W        bufname:=sprint("BF",i);
" K  m$ `: }) h) C7 f0 E        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  }/ `. M+ {! i                buf.deleteobject;
* n, T+ P! b* C/ Z7 {' N        end;
/ y6 @6 [% X/ _6 m0 e        next;
$ c' ~" Q' Y/ ]7 `       
4 ?* U8 j6 X# k        dx:=0;
7 n5 x$ P% [# W+ b        dy:=0;
        for i:=1 to number_of_machine loop
1 Z/ [& X: r- N) R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
% B9 R7 j6 f6 }( P( P6 r5 g- |                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 _4 g' V8 I+ ]! K                        and activityspace[1,rows]<(1.05*y_max) then
  z( S5 ^( j$ B6 t3 d* w                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 s+ R$ q# [1 {$ I0 ^7 T7 H# U9 w# b                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) R9 E3 ]2 o9 R0 K! b( b: A                        else*/
/ W- L* L( {3 l7 f0 i9 j                        y_max:=y_max+dy;
                        dx:=0;
# c' B. A+ \& r5 r                dy:=0;
- m% f2 ~5 e+ S9 a                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 a% ]8 N( l% M; |& |. Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
5 @3 {# S) l- ^! j& ^* f            if activityspace[2,rows]>dy then
3 G- k5 D$ K5 [; o( G                        dy:=activityspace[2,rows];
                end;
6 I# g' w* p3 i+ W( G% d                dx:=dx+activityspace[1,rows];
, a3 D5 M& _+ s/ ?2 J0 G                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 }* S" ~: d# A, B1 G$ K                        activityspace[1,rows]:=ct;
) i. C3 @* I' }' j6 i. z                        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);
) Z1 p2 s( A+ [3 y) 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);
9 t$ z* ]3 w5 e6 o6 w& _7 c       
/ [! @" M, c- l5 u* p        rows:=0;
) R, w) |# Q: e2 U) Z, V- c        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: e; u1 w3 j, M0 y                        if j=i then
9 `' P; }; p3 d8 x% Q! L1 W                                d_from_to_chart[j,i]:=0;
+ b) }: E0 U8 t                        else
( E/ s* q% B4 a/ ?; f0 v9 v2 t                                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);
                        end;
. |( k' ^& [; E- c1 f. o                next;
! D  r) B' J- b$ |& l" J- v        next;
( n, i& x0 t: G0 G. s2 p  @9 x+ b- q       
/ Z' Y4 a: l) H1 L( `2 `* q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 H; u: M; G' a7 j, f                machinesequence[2,i]:=rows;
- p# L) ?+ }' F3 ?, i, n                for j:=1 to number_of_machine loop
1 b+ u! [. ~  @" I+ a/ h7 M                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! L+ R% j( z& `1 M2 q' A9 U/ r                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
4 A+ ?- ]* z8 e# q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
. F' P% M. `" a* Y/ M                end;
5 Y' F: J: b' H! @) p% \. R6 N$ E        next;
$ O# H) C; X8 n6 f0 C        machinename:=sprint("M",rows);
) `+ F. i; P- h  q* v        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]);
# `8 Y& G* U3 Q: M) D4 B        machine.name:=machinename;标识符未知
9 c" x  P) r" v9 N! D        machine.proctime:=5;
. x: [5 r6 B& Q        machine.label:=activityspace[0,rows];
        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]);
% n* r9 b* R- e" {/ I        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
, @& [! k/ J4 U: A) Q$ O4 M# i4 B        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* F9 K2 U; l  ^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);
; T4 X; R: V4 ^) c0 \- bnext;
* ^! t! [7 Q3 ^/ p# d/ p. i6 j& eend;
6 y# V; a0 B+ a3 ^( Q7 ]