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

zooey

is
. X. W# n0 P" \( k" _+ s  g1 [        mark:boolean;
% E1 H* e5 T% p! a( N& |% W& |& |        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
4 L4 y: t6 g0 l; P    machine,buf:object;
2 e# T1 g# ~# x3 [' jdo
        current.eraselayer(1);
; u5 m' f* G) E$ N3 O; W0 Z       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 X3 X' P1 Q; K$ I$ k/ I4 A                inspect messagebox("设施数目不对！请核查...,",50,13)
* M6 ~( [) U# ]# R) U+ B& O                when 16 then
+ c& a$ n2 W% U9 z& m4 m+ r                        print"yes";
                when 32 then
                        print"no";
# w- b; n' i& K! X: \8 X+ ~% A                else
                        print"cancel";
1 n8 v& }% y! z2 H  O                end;
: R( @. z" \4 R, _8 V1 D* u1 O* Y" O                eventcontroller.stop;
        end;
/ ?% Q5 d( {  X       
        for i:=1 to number_of_machine loop
  y; |  Y" e: ]6 |        machinename:=sprint("M",i);
1 V, S, S! ~- i% M% l; _8 d/ u        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
  k, b) Z2 x( d) E$ K: t# m- I                machine.deleteobject;
        end;
" ^% N# H, t, e& V( b- |        bufname:=sprint("BF",i);
! `- w5 @: C5 h5 E/ w, }. d8 W        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
- g9 X3 g- f. F6 i        end;
        next;
9 s: m0 J- j  w8 p$ [       
        dx:=0;
7 z0 g6 ~8 O& R/ \0 t0 f" ~( O        dy:=0;
        for i:=1 to number_of_machine loop
& H  w, x8 M. t- ]& C" ]                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 F4 H; R* x, U0 `9 }3 y' f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: O6 a8 B8 O* H# M! b+ ?6 _& }7 n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
0 U3 {5 e8 F5 b$ p. Y- y1 B) f                        ct:=activityspace[2,rows];
! F! @! V* X, S$ d8 Z; V% i3 Z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 W  ~3 |, r! _. n0 Z6 D: A                        dx:=0;
# R3 E' D0 m# A: P% J# q                dy:=0;
! n9 s6 G3 {+ H1 c7 d' p" ~* [                        --end;
2 u. b0 R: ?+ q: F$ P  I( j                end;
5 j" _' E( E9 n7 n                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;
3 D/ p% R. D, O9 ]            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
; }# |# {4 a, {. C! D3 `9 q3 d                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 T; e! p: Z* M4 g( f                        activityspace[2,rows]:=activityspace[1,rows];
/ {" \6 ?% x; n) o7 S                        activityspace[1,rows]:=ct;
: l/ v+ I; }. F+ T                        end;*/
        next;
        y_max:=y_max+dy;
/ C/ {0 z5 U2 Q% L) V6 ]        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);
       
! c# t' G; I0 E% q  k        rows:=0;
, B% I5 F, v9 @! o; X        lines:=0;
9 Q7 d, K1 N- ~5 n8 }# z7 |, h  C        for i:=1 to number_of_machine loop
& m) h" Z2 k, ^" K! K5 }                for j:=1 to number_of_machine loop
( w1 z) w* M) Z+ r- q# t# ^1 @                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, K5 q: h  h: x                                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;
# P: b* @5 U) M3 Z) t  U                next;
* H3 q, q+ t' n$ p+ f  a7 o! W        next;
* z6 s$ j' ^+ X$ b. e/ G       
& h/ l9 v5 I; @9 j9 `7 E; ~        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
2 ]( d. o7 r; z, b0 c; N; K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- a5 m& `4 o! y( a( a. W/ \( D4 M                machinesequence[2,i]:=rows;
" M" i3 X2 R  c                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( _& J: S3 a1 Q; t                        lines:=lines+1;
" _3 O* G6 m1 [  ?                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 q( k/ \5 a5 ^% Y2 l6 _$ q                        partstable[3,lines]:=sprint("parts");
- O) x! i- |8 m; H* n. e                        partstable[5,lines]:=rows;
4 x' e, F0 P8 y# a" |1 \                        partstable[6,lines]:=j;
; n% H0 E$ s, T3 y- y: B( d                end;
" w, C- W' [& h+ P3 w* B3 G, o        next;
$ S! n  m) j' O" z        machinename:=sprint("M",rows);
& w/ A) Y9 d; H. |5 t3 j6 y6 a        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]);
& U4 z3 t- N4 r: {2 i4 P        machine.name:=machinename;标识符未知
; y/ ^# g0 a" O1 [. L        machine.proctime:=5;
) ^, ]/ e9 p) \+ F        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
# l, i4 G0 T6 R0 j0 F        bufname:=sprint("BF",rows);
- I! E8 V* G5 f/ z6 W' f2 l' e, P        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]);
3 j8 Y' v- U# O# m9 q        buf.name:=bufname;
        buf.capacity:=5000;
5 z( ]# Z! `6 j1 Z9 }        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
1 O: m) B/ c6 s8 Q6 r* i7 o        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. _3 i$ ^" u5 h, v& S! Gdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ {  m. b& B7 M) k! }* ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 V# x! ^# T6 nnext;
end;