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

zooey

is
% e4 R0 e( E7 T" l        mark:boolean;
        dx,dy,ct:real;
, N' p5 V1 b' m# J* ]) L4 y; j    i,j,rows,lines:integer;
  n% X( Q' p6 ^8 @3 E/ s! P    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
: e  V& j* b0 P3 d( n8 s0 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' {! o9 F2 n/ b! b* W9 c+ p                inspect messagebox("设施数目不对！请核查...,",50,13)
. N- ]+ P6 T: U                when 16 then
+ E# n% J3 R# U1 [( ^                        print"yes";
9 m7 w( b0 f7 B" Q& |* B5 J                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
- m- U& ^! h9 x5 {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 t& A1 z, \5 M- W5 |# Y        if existsobject(machinename) then
8 S6 h5 E0 B! D: j  t2 z                machine:=str_to_obj(machinename);
2 s2 E4 K6 e$ d2 U- T' c! {                machine.deleteobject;
9 L% A3 k# D7 {: G1 @% ~        end;
        bufname:=sprint("BF",i);
% ~1 G; g# j* g        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
' \  C  A: A- V# d+ O% Z        end;
) I& }0 ^" S% b" m9 S        next;
+ Q# V( r7 @0 }7 o+ t       
5 g0 Z2 b+ F6 B8 e, K        dx:=0;
        dy:=0;
" ?# c6 u* |( T- z0 S1 H1 R8 Q        for i:=1 to number_of_machine loop
( U  K8 U$ ?9 R) k6 r                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& t! G  i% q( n- T" N0 E                then
# ?& b. t% U% B: L9 R/ u" b/ ^3 r                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: u) D( h" I# _3 Z  q                        and activityspace[1,rows]<(1.05*y_max) then
. F" n4 d: ]7 h6 W" Z                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
2 J  ]# X4 @4 V, P; |4 q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
' A+ D4 h1 h  N4 y. R' V                        else*/
                        y_max:=y_max+dy;
2 X- h7 ^1 _0 G0 \$ Q                        dx:=0;
' p' N! j' H5 v  z1 x) O                dy:=0;
                        --end;
/ \9 W7 S0 z8 U" x1 U  I- L! Q                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! u; J2 `& F0 o# Q: `                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
& y9 C7 D" \" `; s: [) ]                        dy:=activityspace[2,rows];
                end;
4 {& \) G4 J# N' g0 S! H4 s7 a                dx:=dx+activityspace[1,rows];
                /*if mark=true then
4 E7 J4 e+ M9 {! W                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
/ H2 K; r' i" _3 [  Z        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);
) N( ?) _# z2 e        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);
1 i/ n, i/ d/ [4 v       
% ?; _, X1 `0 ^5 x' T) j        rows:=0;
) R4 o! B2 P& O% ~3 ?        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% a4 V& V* j$ p; [6 H, G1 l) L                                d_from_to_chart[j,i]:=0;
                        else
2 m1 `% e; L2 b& r                                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+ O; }' Q7 y- }1 s9 o" X) w                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, K/ f+ D5 @3 K% k2 h: E, Y9 p                next;
! N( R7 i* Q  [" f        next;
       
        lines:=0;
        partstable.delete;
; B; q% N; q# `       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' D& s3 @7 |% B% ~' e* K+ X' L7 `                machinesequence[2,i]:=rows;
! G5 o# H- A- y$ n' M. R$ p                for j:=1 to number_of_machine loop
& }+ P3 q; {$ J* F5 W) \                        if w_from_to_chart[j,rows]>0 then
4 F/ T, J+ h0 x6 }) p0 p                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ t  a1 k3 T) h! f                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
/ ~. }% m# h9 N/ C" _        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 d3 d4 }: E! h: r0 L' ^        machine.name:=machinename;标识符未知
. t7 y# _8 N) f/ p        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 A, v1 F* Z  I* S8 m        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]);
- `* s' |2 G9 m, Q# [* t7 A# k1 S        buf.name:=bufname;
  N! B0 e$ p& e) h9 `        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 j" w) [9 Z: ^$ e( B       
. y4 u3 g* K6 r. x        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. t! @! i; \0 L) f/ gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
' n- ^3 Q) e4 s; _( lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
2 ^( M4 Q; f" W: Rend;
0 H3 [7 k. J" x& A