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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
8 w! H8 U; b2 S. S    i,j,rows,lines:integer;
2 V: I" e$ `- h5 J    machinename,bufname:string;
* K: i7 s8 _' N    machine,buf:object;
- s( N* q) W! W* U0 I' Ddo
        current.eraselayer(1);
& _& Q$ _5 K! T5 B       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 Y# b6 o. ~' B) R$ {/ A                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
6 j1 R  }1 u* D3 A2 |                when 32 then
                        print"no";
                else
' F% H. b. ^" ?. S! ~                        print"cancel";
. N: M# o, {, |/ Y4 D7 L* H7 W                end;
                eventcontroller.stop;
        end;
+ Y# }% y! F  G# ~4 D: m       
$ ~" |7 V- w& e$ p' D3 }- K3 M$ M        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  l! B/ Y+ p& T5 S7 S% q        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 x# _) g" E4 R' u% a0 s9 C2 m                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
2 @$ s1 `6 j) Q5 I2 a+ W1 s        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 ]1 G& Q5 v. P                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. b& C0 p3 P4 v$ g6 k                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];
4 O: _0 s0 L4 K0 A+ u' b                        ct:=activityspace[2,rows];
) A+ R* g, l" K+ p( B* L2 t                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( k! V, w" n  g5 x/ u% N                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
, L; B$ }6 S8 x* {+ _                dy:=0;
6 r) V' o$ X) w2 H                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 X$ E; x& X/ l4 I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ ^. s0 ~- P8 O! {: N+ H            if activityspace[2,rows]>dy then
& C2 @( m# C' o% s% L# v, O4 n                        dy:=activityspace[2,rows];
2 O# H. r/ _0 u3 g9 l                end;
3 z+ l2 R: y6 o" [8 U                dx:=dx+activityspace[1,rows];
/ _% l7 o* l: O; I                /*if mark=true then
: ?' Y' O) e% Q; X                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        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);
        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);
       
- r# h) L  @3 y* L% h* G; i        rows:=0;
9 m' O; q9 R) k% Q1 P) X) i& r% B7 B, z        lines:=0;
& B% ^2 C- u' x7 Y0 h) p6 L        for i:=1 to number_of_machine loop
& D' l8 \! |. \) }4 N                for j:=1 to number_of_machine loop
2 n) y( b2 E, G6 N- D" w8 Q+ t9 G                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 [- V" I& V* K+ j' e$ d/ ]. M; D6 [' O                        else
                                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;
                next;
* S9 y# B* Y4 h, t! g$ A: a        next;
       
# t, D* c: t# m6 S& o( U( @6 M$ G8 L7 R        lines:=0;
        partstable.delete;
       
8 q$ ]) w5 ^( E5 h        for i:=1 to number_of_machine loop
9 L8 f6 m+ ?& j; k  l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 z0 d4 {/ Z9 d2 X4 C* [) L                for j:=1 to number_of_machine loop
' ]/ L9 e7 @* ]                        if w_from_to_chart[j,rows]>0 then
! o/ n7 ^1 F2 N6 _6 R) X6 E                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; I8 o5 r: H& ?8 f1 }' b                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; w0 n( I1 G! Z- L                end;
/ {. ]5 j5 W, ?# j+ \) ?        next;
  G1 d/ Q6 @! b. u# E* K        machinename:=sprint("M",rows);
        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]);
* L9 ], G& c2 e# o4 N: F2 j/ w; ]        machine.name:=machinename;标识符未知
        machine.proctime:=5;
1 k6 f0 }7 j; D/ D        machine.label:=activityspace[0,rows];
4 H/ j; i4 P- [% E0 g! @+ n        machine.exitctrl:=ref(leave);
- k) }8 f3 J2 ?  Z       
        bufname:=sprint("BF",rows);
8 `: r& \4 C, o1 `5 B/ f2 d+ l7 {        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;
- K4 o* _' u, h, F: o7 O' @5 w$ J        buf.capacity:=5000;
8 K4 |' V+ T9 J" F3 l" {0 s        buf.proctime:=0;
2 V9 v1 t% @4 D        .materialflow.connector.connect(buf,machine);
       
* J1 f- d' ]: g0 r        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 z( [7 `! _( N* @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);
6 D: W! J7 D6 \8 D+ t- d: k" gnext;
end;
% u6 R8 m1 V* l! g; H2 n2 j, N