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

zooey

is
3 B( F) K& G5 Z/ Z/ C. v4 {        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
& L) U; G$ e1 Z) l. O9 K    machine,buf:object;
do
# a# D- }0 V2 W" p" E! T" j; S        current.eraselayer(1);
8 d* c% k% _1 b% R       
+ K( T/ \- d3 ~        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
8 A7 n' w# r/ r$ A0 Q) L8 t                        print"yes";
9 r; F* T( [$ N6 F) ^7 c                when 32 then
2 I# _4 ?) F, K                        print"no";
                else
                        print"cancel";
                end;
& m; [; J6 v, ]3 y9 ~% B0 M& F                eventcontroller.stop;
        end;
       
, l9 e) }/ V% z; |0 Z* W* h1 W        for i:=1 to number_of_machine loop
/ N6 \' ~- S3 @2 ^. d3 _        machinename:=sprint("M",i);
8 I0 B  k# X5 b6 `  Y: K9 N* ]! x        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
! b2 ^* w8 E1 b; c8 u6 U        end;
5 g* h2 Z" b! X6 o5 H) h        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ e) ?! Y0 m. o5 D* R0 G        end;
        next;
       
        dx:=0;
% Z6 i* r# f- x% g. I7 V3 |8 k        dy:=0;
7 i1 X$ K3 C: R0 e% [, b  f5 M/ f        for i:=1 to number_of_machine loop
# L2 \$ C2 F0 T! s' v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. E, }* _9 i  e# p6 {& A                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ ~' l0 E6 g% X! U) Q  W( I1 @0 v9 M                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% s& q& O/ K4 t+ h# n                        activityspace[2,rows]:=activityspace[1,rows];
/ m* U9 k' j5 h1 ?- D  o/ `, W                        activityspace[1,rows]:=ct;
6 f& a# X0 X9 s. z+ J( U0 n! b                        mark:=true;
  u! @2 S: K- \  f' b9 O7 J                        else*/
2 p: O% x& g0 R6 t$ G! \+ P4 {* o                        y_max:=y_max+dy;
& p) {3 W4 X4 Y# n  M  I4 t5 E% s                        dx:=0;
                dy:=0;
; o2 Z$ {3 O. V- h: B% R                        --end;
                end;
$ Z; q; Q: {1 U5 G! G' W                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 }4 g( f0 \9 y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 W# T) q- t8 G8 |6 }# q5 G8 q8 {                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
' e( m# Q) [, n8 b/ [; V                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
  u0 {  g0 D# i% C. l5 P/ h& l$ x                        end;*/
) K3 ]" Z) X% ?        next;
# R& A, M+ j2 D1 g! v) I; w' g1 F        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);
) W+ S- F' u8 S& w) l0 u        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);
7 X. q2 s! `% n) R% ~+ D& W5 [- H       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 y& \; e1 r+ M& j5 m) }  t9 X                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 J& c) n; R) e  [/ j0 t' f$ s                        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);
- Z7 ~7 [" {  v" o+ }                        end;
                next;
) Z1 x0 o! p2 N        next;
       
$ ]4 z6 ]1 K9 ^7 V/ k+ Y3 P        lines:=0;
        partstable.delete;
7 f/ k4 }4 D& K2 p       
& N5 D, T5 Z2 O8 q9 Q& h) o: V        for i:=1 to number_of_machine loop
5 j0 B: p& e$ ^2 i$ \! n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& v# t8 ^5 u- `. H& \                        if w_from_to_chart[j,rows]>0 then
                        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");
                        partstable[5,lines]:=rows;
/ ^- R# g( W: L7 H3 y* q- Q/ y                        partstable[6,lines]:=j;
; p0 |4 g1 V6 O/ F; ]                end;
        next;
        machinename:=sprint("M",rows);
# M' Z3 N) ?  ]" q        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]);
* O, w9 A: e; d/ t$ ?( m  ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
3 H0 @$ G7 I2 X5 D2 v7 O7 R% I        machine.label:=activityspace[0,rows];
9 x+ \' {. T' q) D: J# U) `        machine.exitctrl:=ref(leave);
! {, Q* w* I5 s; c       
        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;
        buf.capacity:=5000;
        buf.proctime:=0;
1 }) N5 q1 m: L2 y8 W5 n: W0 I        .materialflow.connector.connect(buf,machine);
       
4 j% k2 }+ N: p  B$ V/ C& E+ C        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, |$ K8 {2 o  @' mdy:=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);
9 p" C: ~1 \- ^& m9 T$ Z* M/ Q- Enext;
4 y8 O! l8 m4 h. a1 cend;
7 Q) L( s6 g1 J; n' m8 d