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

zooey

is
' O3 ~3 X9 f4 Z        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
- e5 z) l8 M: G" e7 M+ q  o0 N/ Z7 s  Edo
        current.eraselayer(1);
( g  _0 e( n; R       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 A4 @3 s9 H( r# P9 }/ K1 A                when 16 then
                        print"yes";
! m5 Y) e2 v) S* q7 |7 ^, ]                when 32 then
: `. ?$ |' K- w0 T                        print"no";
                else
: B6 |" }  ^0 T8 j+ c                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
" `8 }! d5 s  z9 Z6 R        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: j, S* A; R' Q7 |, P4 v2 z                machine.deleteobject;
! m; A1 F; C/ s! [; j        end;
) g6 M1 Q9 ], [% n8 ?  i+ A        bufname:=sprint("BF",i);
$ F. D3 q0 e% j5 P        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
7 e" x1 v& D4 f3 Y9 n% s& G' t                buf.deleteobject;
        end;
6 S+ N& N! N8 H, ]3 E7 S, O) J' z        next;
       
# R; _8 j0 Z: P! o        dx:=0;
        dy:=0;
( G5 |: ?0 M3 g% V2 s; d9 T2 \        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- ?2 J7 `: l  o* Z                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ g4 E; x$ D" V6 J/ M) H2 o                then
( o3 v3 ]! T/ O( b                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
2 \8 v+ L4 V) q* y                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! w: `! t! T) c( e3 {- ^6 o                        activityspace[1,rows]:=ct;
3 Q# v: v; o$ E( y                        mark:=true;
                        else*/
8 B$ j! z( O$ v' \6 x9 y7 D                        y_max:=y_max+dy;
6 {& T" ]0 C# D& ^( @+ c  I                        dx:=0;
# r+ k' I5 W! B( F, X4 k                dy:=0;
                        --end;
                end;
                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;
            if activityspace[2,rows]>dy then
3 G+ Z+ U3 f6 r$ g3 `9 a                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
4 b( a2 ]: W2 R$ c2 j                /*if mark=true then
                ct:=activityspace[2,rows];
# n4 l# ]* L: q: n/ r  j                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
' n+ H/ i" l& N5 M* Y) b7 o                        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);
: j+ ^4 t3 a, i' s5 T7 C  p+ J        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);
9 v1 `  T! V8 N7 U       
# ?9 Z4 Z$ Q2 A3 X8 z4 ^# k  |4 s        rows:=0;
        lines:=0;
& D2 I2 [" r; {+ J        for i:=1 to number_of_machine loop
* i* d6 m2 B5 @# A0 x                for j:=1 to number_of_machine loop
/ A3 H: D9 W' Q6 p; W0 S/ f                        if j=i then
                                d_from_to_chart[j,i]:=0;
3 r- U5 y" M" u8 a3 H+ ]6 E. A                        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];
  T0 ~6 I5 N. a4 K; {* k                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
# H7 [  ~' W. o1 H) G  r        next;
9 i; E! F& j+ ^       
2 ^1 ~# k+ [3 m* J# Y/ z) {        lines:=0;
4 K' P+ `2 h: e, f: b8 z0 x        partstable.delete;
, j! r# O9 R' P4 \& a8 ~8 a       
        for i:=1 to number_of_machine loop
4 Q' p$ F$ q1 w9 V" `                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 [# }! n/ ]: b8 ?; [) G# {2 k                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* u# P" h- K; [3 J                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ c" O" Q1 k8 X8 w7 y- l1 e                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
5 E; Y6 B8 v5 @4 J4 Z+ p/ W" H8 i1 z                end;
+ z$ L& F7 o+ R' X% E# ]. m        next;
        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
+ K* X" O% l1 W" {" ~        machine.label:=activityspace[0,rows];
6 O* X2 w2 w8 g$ w+ K$ Z5 ]2 j2 [2 A        machine.exitctrl:=ref(leave);
3 V/ c8 Z  c1 p; W* q5 B/ z       
8 P9 ?, }! I1 E" L: r        bufname:=sprint("BF",rows);
5 c% g. m# z6 }) T  q        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;
6 ]3 R! y$ w3 i1 E( _0 \. l        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
* W$ y7 @1 M( M# O% G/ i        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 s; G) R( r( \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);
2 O3 ?1 x" U4 Gnext;
6 \8 d2 W% D0 L/ ~" C1 Fend;