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

zooey

is
4 A; R. [6 N' A$ ?; p5 [# ^        mark:boolean;
# q6 l" X: ^, |6 v% P* I% ~        dx,dy,ct:real;
    i,j,rows,lines:integer;
) ]4 Y0 Y, c8 A5 d( [, Z0 h- a    machinename,bufname:string;
9 a) _& S, k, M( U3 J2 i0 s' g    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
; P* ~! y2 K) o( f$ E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
% p* \: {" y. m$ }, }. ?) M* G                when 32 then
                        print"no";
                else
                        print"cancel";
6 ~3 G$ T% C$ c: P2 Y                end;
                eventcontroller.stop;
        end;
       
) _: x/ \: ]$ ^) E5 a2 R* K4 |) n9 a        for i:=1 to number_of_machine loop
* W; p+ T+ w- U; H: n        machinename:=sprint("M",i);
  r5 K1 N9 w- G* Z        if existsobject(machinename) then
8 N" S0 |% u& x+ @6 i8 q+ k                machine:=str_to_obj(machinename);
0 B3 \" }# W0 Z1 n                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; V/ I4 s9 Z: x" k) h" h                buf:=str_to_obj(bufname);
                buf.deleteobject;
; y0 t6 u  _" {5 i, ^        end;
% R0 J9 [+ c0 ?" p        next;
& q' i: L! D) N; q7 X% f       
% }' e) h% v2 w6 s1 [        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
  A4 f" X. v+ T: z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 h5 F5 Y, ^4 Q3 g3 N0 m9 l                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* m) T6 M4 @  s; |. }4 ^# x, b6 ~9 o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: _3 g! Q1 C) S0 t+ C' C                        print activityspace[1,rows],",",activityspace[2,rows];
, D1 c* L! _7 D' ?                        ct:=activityspace[2,rows];
2 {# ~' \% A. V" j' T                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 x# @- \) R  N- W' N                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
( O: }* i. K- P# p- ]3 N7 r                        dx:=0;
- o4 D# h+ p! s  I" A' x$ G                dy:=0;
                        --end;
* D' u& x* q6 U" Q8 ~5 G                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;
            if activityspace[2,rows]>dy then
+ {  d3 F4 r* g                        dy:=activityspace[2,rows];
                end;
8 m# ~+ x; {% ^5 a. w                dx:=dx+activityspace[1,rows];
; C+ S: U! _) t                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* D0 l" k/ m# v, i6 F' X                        activityspace[1,rows]:=ct;
: X: [9 i3 w# T. C                        end;*/
( v  T+ j+ T( N6 l/ f1 ~9 [        next;
4 N- }1 `# \+ @9 U        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);
: j3 d$ p! p8 |! ^" t1 Z* S+ t        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;
6 |) a! R; {4 ?* [4 j+ a        lines:=0;
+ `, Q8 ?2 t1 g/ x2 Z# s/ N) V        for i:=1 to number_of_machine loop
" R/ ^% \1 i. @& I                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
/ e! m/ ]; C1 }  ~, g                                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];
9 D' e1 u2 h2 N/ E! g, [4 L- q$ A                                d_from_to_chart[j,i]:=abs(dx-dy);
1 C+ r" @8 O. e                        end;
* ~2 n$ }* q0 T" \; w                next;
        next;
" x' h% l& v4 p. k. ^. H' j       
        lines:=0;
  ]& y4 @: e9 V$ b$ [3 b( Q        partstable.delete;
4 X! ^2 c4 D. L       
        for i:=1 to number_of_machine loop
$ M) Z8 \3 T3 p2 @. l' k5 Q                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ T* U" Q8 y4 C6 N                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' h) ^- [- s' H  w                        lines:=lines+1;
% P6 L. q1 j( W9 o; S9 \6 j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' U- s+ G1 V; J! j+ E                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 R( d9 L# A& }. O, E                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. ^; `& m; b% r( b; B                        partstable[6,lines]:=j;
                end;
( H7 a1 b7 |& h( O        next;
        machinename:=sprint("M",rows);
  z9 s1 B' @( B, S- Y! i8 R! K' H        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]);
0 ^( r8 K( Z4 |        machine.name:=machinename;标识符未知
2 e& a" x6 L* F6 r1 L8 o0 D        machine.proctime:=5;
3 o  q  R3 ~1 H. [+ W% T9 `        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
* u9 g0 c, A( I1 X: T+ H. P       
9 r5 s- t9 \  s# D) W9 f# ~        bufname:=sprint("BF",rows);
/ S; t- o- W4 K& h% B        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]);
9 D+ n+ v5 P4 C- |; w# k        buf.name:=bufname;
7 o5 B5 S* b( _; t        buf.capacity:=5000;
( G% }$ v; R% u+ k' C# z$ k        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 r  j4 h/ Q' T- Q( K- Z       
4 q  \& X8 Z. [        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
8 n. ]0 F( x! ^; ndy:=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;
4 \6 ]5 S4 ~" x5 }. K9 i  _end;
# n+ o" m. ]3 t2 t, F0 Y2 r& h