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

zooey

is
' S6 O  }7 a+ K/ T) l        mark:boolean;
8 D5 ^* T/ {- A0 G6 x        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
0 Y0 c* ?- ~" ?  q6 ~0 a    machine,buf:object;
, z. g2 Q( f/ U" ndo
: v) }! U) T8 M1 S/ o" W! \        current.eraselayer(1);
       
$ f! Y. i" I  C" k8 Z% X$ Y        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 q7 [$ i  L: z; t% c! o% N                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
9 F" Z: ^' A; Y* s                else
                        print"cancel";
                end;
                eventcontroller.stop;
1 T- n4 m+ N+ T7 S% g' V( T2 R, T# U        end;
; O3 M1 v% Z5 H% r2 r4 Z/ g# @       
        for i:=1 to number_of_machine loop
# }( |9 y9 z3 N( t9 l2 Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
- E. z+ V  V. V7 t! o6 I$ U                machine:=str_to_obj(machinename);
                machine.deleteobject;
# H5 t9 T; [& Q' O        end;
6 ^$ E8 K: Z5 q! P, Q+ n        bufname:=sprint("BF",i);
1 K& X, l5 Z6 x$ M: g: D3 l8 e% p* w        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) ]: b! N  x0 f! ~. U1 W                buf.deleteobject;
        end;
7 B$ |& m# P9 D0 l; t* x5 S        next;
       
        dx:=0;
0 h* K  s. Y; a( E4 q; n+ N        dy:=0;
- P- H: R7 l' w" ?# X        for i:=1 to number_of_machine loop
) D! o4 }- Z) r: y6 v, Y6 q1 ^                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 I. P5 k9 [: D; ^* N( o( u                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 C6 a. ~. e* C% L* }                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];
' Q/ N/ _% d. ^7 W5 Q8 U                        ct:=activityspace[2,rows];
7 q; x% m0 Q0 C; V& ?- O, L                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
; W, U& l: s! I/ u                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 p. w  q& U* Q( y6 |7 A6 ^3 P' @            if activityspace[2,rows]>dy then
6 y2 W& m; M+ y                        dy:=activityspace[2,rows];
- M6 m7 u, M" X, j                end;
                dx:=dx+activityspace[1,rows];
" Z6 E- p7 Y+ e/ x, ~$ u) v- l& \                /*if mark=true then
& v* W; M% X" p/ [5 h* T3 L                ct:=activityspace[2,rows];
& X$ }- F& G/ \, I/ N" L% v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 F( E6 I' ]2 [# x5 B& }                        end;*/
        next;
; o( y( Y3 a0 G6 Y, A: I        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);
       
        rows:=0;
        lines:=0;
' o1 t1 L( l* j        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  Q: [4 x% B! }7 p  U# K                        if j=i then
) a0 I5 ^7 s$ i$ v                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, u6 g$ U- f" Y9 S- E+ N                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
4 \# M3 q# W7 t* @0 z( X        next;
4 V% l! g6 O7 M: D: D- E       
2 v) N3 X  u' o        lines:=0;
; |* B; w9 }$ t4 d0 n/ J        partstable.delete;
       
' y; u* w( {' P( X9 D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 F' }9 f% n* V* {1 w8 E$ w                machinesequence[2,i]:=rows;
. f! J3 W- y$ Z! g! t                for j:=1 to number_of_machine loop
' c% B* z# {7 W$ z: e                        if w_from_to_chart[j,rows]>0 then
/ H2 T2 M5 Y0 Q& u! u                        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;
( B# A1 g5 G( c* |+ g9 M* E7 Y                        partstable[6,lines]:=j;
                end;
6 i- x" Y4 n5 y        next;
3 _$ n/ p6 z+ n. G' M8 Z$ a7 u        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]);
' _8 i. B& |3 D! {+ C( M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
8 V4 G  ^2 u- P& s% M/ A9 |. x        machine.label:=activityspace[0,rows];
2 i' G6 h3 J, w* b& Q* X        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. p) f5 J" r2 B9 w: y( p& v. Z        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]);
) n) R& E# \! N        buf.name:=bufname;
        buf.capacity:=5000;
( d* t, E6 h' f' I        buf.proctime:=0;
) F9 V2 I5 s2 m' [        .materialflow.connector.connect(buf,machine);
/ x5 N; w* K/ h- d6 W+ m       
7 Y; ^. X2 a0 h% ?        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" X% D/ D  N9 n' w( jdy:=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);
next;
end;