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

zooey

is
0 H  S/ s* m4 N! L% S% ~7 o) y        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
& ?8 b5 l9 o6 n    machinename,bufname:string;
    machine,buf:object;
2 Z8 r' f# E2 V# ~' N/ N# jdo
        current.eraselayer(1);
       
3 Q9 ]! V+ |/ n        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! g$ R+ V7 C9 l  {                inspect messagebox("设施数目不对！请核查...,",50,13)
4 v% H" x4 P5 b3 K                when 16 then
7 \0 H2 J) K2 m1 n3 W                        print"yes";
                when 32 then
: y9 \4 r# k  g0 |# m* O                        print"no";
( J, ~6 L- a! }& |/ Y+ v7 k                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
& m+ R% g( y* o: z8 o& j        machinename:=sprint("M",i);
        if existsobject(machinename) then
& g; S7 G/ k3 t9 H. @7 u* Y; j" U                machine:=str_to_obj(machinename);
                machine.deleteobject;
! E- y9 V0 ?4 s% i# l2 Q1 k6 |* v% [$ {        end;
& _2 T" E) Y; Z6 A7 d5 h        bufname:=sprint("BF",i);
/ L4 T: Q# _" F& i6 n        if existsobject(bufname) then
+ u6 q* b: w) m' S                buf:=str_to_obj(bufname);
                buf.deleteobject;
! ?  O- O3 _) i. d        end;
8 I$ @5 G" |  C% p) W        next;
       
        dx:=0;
        dy:=0;
# n9 \! i8 O4 }+ G# o: {+ N5 \+ U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 d) b; c  R, c, S                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
# W$ U' R* H# @( B8 H2 N                        print activityspace[1,rows],",",activityspace[2,rows];
# r% q4 h+ w6 h# D6 \/ \+ R5 i% P                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' e6 B6 U* \9 E2 k% T                        activityspace[1,rows]:=ct;
                        mark:=true;
) Z1 Z3 F' ?* |8 e9 |/ s                        else*/
: W" `8 J# H! ?: N0 g% l                        y_max:=y_max+dy;
6 r$ V; p. L( D% g                        dx:=0;
  k5 v9 w6 w8 v* k) e* ?                dy:=0;
7 a) n5 W* ^5 E7 @9 ~                        --end;
                end;
0 p; l8 y& s  p& s5 Q' v$ c                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;
! X# L, f" p" e/ `$ G: G            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
6 I+ a0 x7 b& d. \* `0 O. r: Y! O                end;
- h  N7 \% J- u+ A9 R                dx:=dx+activityspace[1,rows];
$ ?8 S% K' ^( @1 _3 h" s) x                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) u0 M2 B% F# e& R' Q# J                        activityspace[1,rows]:=ct;
                        end;*/
$ X7 n' x( I# i+ x% L        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);
9 s; e/ m+ j" f: V( @* y( m       
        rows:=0;
; }1 S% |* D0 k' p        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
! \. M4 W! C$ N* t5 K. b6 p5 w                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ {( S/ _" }6 u5 Y* J: Q. ]4 _                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- C& {3 {! [  k! K2 r                                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;
" @+ H8 w0 b$ z+ Z* i% Z/ }' V; j        next;
3 K# i" _0 H; E       
6 Z8 H3 B8 Q0 g& f        lines:=0;
        partstable.delete;
       
; |' \9 o: E7 |) ]+ K5 p  H        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 K8 n: X! ?6 H- N; s2 D                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
3 u. J! {2 l: z  R. p( u: H                        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");
+ R; R" W1 K- d2 Q5 u6 N                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 g& T- p' v! K$ r; W4 A7 x: Z                end;
  e: B9 z$ n  I# G        next;
1 A$ J" T! i, e& s        machinename:=sprint("M",rows);
4 k1 a8 K8 g# N$ Z. E) ]        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;标识符未知
* k* Z! _. C& I; h        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  Y5 G3 @  A' ^) h7 t; b        machine.exitctrl:=ref(leave);
! ]: o1 q8 K8 G8 l& Z       
        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;
  ]0 d, X4 @# @0 {" a% l        buf.capacity:=5000;
* l, Y5 h1 u4 D' f5 V+ K7 ^        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 s4 ?2 u) e" T( ?$ A6 B$ C       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( F% z& Y' Y! T+ D; ady:=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);
4 B6 r5 |# ?, }+ L+ dnext;
end;
% g3 B( D3 i# A. Y2 _