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

zooey

is
( C* P% i4 s/ L/ e6 u/ s        mark:boolean;
        dx,dy,ct:real;
" {- I7 {/ r5 w/ Q. K! ~' k    i,j,rows,lines:integer;
. O7 K& o# p3 w* b    machinename,bufname:string;
    machine,buf:object;
do
* {. v: h; J3 Y& f5 x/ n# l) M        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 U6 y! R# m, ]& D/ G. ?                inspect messagebox("设施数目不对！请核查...,",50,13)
" H7 M! ?% h' E* ^) H                when 16 then
                        print"yes";
$ j' h( o" g" \5 u" Z# Y                when 32 then
+ X: R& [- O: f; D" C* U2 ?' y                        print"no";
                else
; v/ O$ H! L4 _+ c- V2 X) |                        print"cancel";
$ w1 p/ V7 p6 y) x4 Y                end;
                eventcontroller.stop;
# b4 f$ F. S+ z. s        end;
       
, ?  k& g# i* z: u/ x* y/ D        for i:=1 to number_of_machine loop
' Q& \7 q) C9 X6 R9 i        machinename:=sprint("M",i);
        if existsobject(machinename) then
/ u0 n7 S2 G8 A, k1 C' o+ a( M                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 q; D3 v! @  x& w8 ]  q$ @2 ]        end;
- A" o9 M2 d$ L$ N" T3 r) j/ }- j        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
5 W/ _1 {: Y7 W. u( ~: u+ H9 M0 S       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, Y' d0 I0 `& H# G                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 `# L1 L( `- @, R) T                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 \/ X" k( R, I. j                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
) F" P# V( }5 v: d* N                        dx:=0;
; x4 a9 y8 ]( f( V$ h: Y; N                dy:=0;
, k9 O9 x5 |# V9 r; T2 N( W                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ w3 [) O  Z: u9 N( Y; c" I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" v' r! H  I( y. O8 Z            if activityspace[2,rows]>dy then
6 U, i, Y. e/ B. ~# U* q                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" D7 o3 ^& H4 `  p( A; _                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ v4 Y6 M5 X* j! H9 K                        end;*/
; N( H$ Y5 N# v: c7 d5 N        next;
# B" A" y- [1 M9 l  s1 ~        y_max:=y_max+dy;
7 g& s1 h. V3 R0 c1 {0 l7 ?( i        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
# a7 G/ y7 }# x1 u- S/ H                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 _: r+ R6 N- ?" I" b                        else
7 T$ I1 g3 ?9 k& w8 i' x                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 m% z" x& X, A. n& 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);
: g/ {! l7 w5 q) h; @0 g                        end;
" W' D5 X" S3 Y+ i+ \9 I" D                next;
- M6 m% p3 o2 G$ {3 s, N        next;
! x/ y1 v4 k$ \8 X8 D       
# E$ ^) R$ N) w+ D, f" Z% N        lines:=0;
        partstable.delete;
/ i* D  ]5 ]9 e* K8 e2 E1 @% Y  g       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' ~/ n! R! u% S, Y( M                for j:=1 to number_of_machine loop
) r; X! k; D6 V" I. b                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 d; o; D) g0 L$ a0 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  M; d' v. y. k9 Q( |1 b3 E  X7 |                end;
        next;
; ?) R  J6 v0 S( A  M' q  n, ?        machinename:=sprint("M",rows);
9 F( {4 v2 [* t) T2 s4 a1 {        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# F5 Q! \* d! R# _% O        machine.exitctrl:=ref(leave);
       
+ d* J8 X4 o& m: ^7 o        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;
" K6 c$ p6 F4 @6 m$ n. F( R! C! u        buf.capacity:=5000;
: e& b: S/ C3 k+ Q& }" f1 ]: ~        buf.proctime:=0;
! {" s( P- x0 g. G1 S        .materialflow.connector.connect(buf,machine);
7 V# `- r4 Q: k! P       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
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);
next;
end;
; [3 V1 E: `: t5 f1 S/ k3 I/ a