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

zooey

is
  w4 V" n% b9 o* ?7 ~        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 `- v" H# v* d+ G! W9 h* Y    machinename,bufname:string;
7 K7 ]9 |, L$ v' {( A% d, z    machine,buf:object;
9 e+ q8 `0 W8 Edo
        current.eraselayer(1);
4 ~  x6 J* Q* e8 w0 I' m       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 L& u) d) X5 a                inspect messagebox("设施数目不对！请核查...,",50,13)
2 q* U$ ?/ ?0 B  i8 A9 l                when 16 then
                        print"yes";
3 R/ e& H0 d" I+ ?2 H6 f* O- u  U                when 32 then
. n; k" P# @  u6 L, l  d) A                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
# p# C9 R! f5 Y8 h        for i:=1 to number_of_machine loop
4 e( B; q% Y1 Q8 b- f        machinename:=sprint("M",i);
        if existsobject(machinename) then
: }/ |) R4 f. _& a  ^/ B; }& w- m                machine:=str_to_obj(machinename);
; i4 b$ }% _: a                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
/ z/ K( r) k/ n        if existsobject(bufname) then
0 T3 D( |- A- i3 _' T, E                buf:=str_to_obj(bufname);
0 p6 p/ ~* s! Q  s( B6 S                buf.deleteobject;
        end;
        next;
2 R, ]7 @% P5 K; S3 V1 n0 u       
$ X1 @7 E: R2 \6 A        dx:=0;
        dy:=0;
  \0 U3 k! G0 r! p0 g8 S        for i:=1 to number_of_machine loop
, b, O3 U! }1 M/ M1 P1 e# c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 ?: m' k7 G- \5 j/ W$ w                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
: P0 @2 l3 \5 Z" i6 v; h                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: D! {/ _3 S5 q/ \& I                        print activityspace[1,rows],",",activityspace[2,rows];
% c% V- @% F( F, b% W4 U7 X                        ct:=activityspace[2,rows];
( K* `- u' Q1 d: o9 A                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 H8 {( {2 {/ b8 n                        mark:=true;
                        else*/
' c8 Z6 T& |3 y2 D! ~: z                        y_max:=y_max+dy;
1 p9 D2 [2 p6 d! j5 T) `8 }. [                        dx:=0;
8 p2 G  h% e0 t6 r4 t" o+ d                dy:=0;
) r# L0 f! q( \4 g$ M                        --end;
) {; S) j! s, U1 o                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
) }( k: h/ M& g9 }7 H0 [; X* y                        dy:=activityspace[2,rows];
1 [# _7 d2 c6 }2 |4 z* @* h                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 |6 T$ X) ?( ?  E: L* c6 p! K                        activityspace[1,rows]:=ct;
0 P7 O) w/ M9 x! S4 ^                        end;*/
) ]. K& o; }  p! w        next;
        y_max:=y_max+dy;
. X1 ~/ o5 q( s7 x        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);
+ \/ Z7 Y# `8 j       
0 R! R& R6 v: E! N        rows:=0;
  [6 u! n5 H, c" \9 A$ O        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
( ]! a% k/ l9 G5 B                                d_from_to_chart[j,i]:=0;
                        else
7 A% Q, t$ w  k2 B. }                                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);
3 @; M8 {, d2 k                        end;
                next;
# A  z( f5 p+ Q. p        next;
       
        lines:=0;
5 x, w6 p, @9 d5 p  i5 v- m) r        partstable.delete;
( J! O% N; _9 f$ y, _       
2 `; }) `" ~8 m! s& t        for i:=1 to number_of_machine loop
9 y7 L, a4 K0 ^# A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, j# o  I( p: ^2 A% x                machinesequence[2,i]:=rows;
2 E1 R* W% a/ o5 q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
6 V0 R* i1 o! U) f: j5 y% k+ k- f% l                        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");
3 i, y9 T) W+ g0 I  X                        partstable[5,lines]:=rows;
' b, M+ n  c1 t0 s3 C$ M' x                        partstable[6,lines]:=j;
+ }  G3 b; ]1 H; r" ]0 L                end;
        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]);
" n/ a$ U4 t- Q7 F+ q3 {& }        machine.name:=machinename;标识符未知
& q0 [- G/ c( O+ X/ b$ x4 u        machine.proctime:=5;
# g( S1 ~% p8 y0 D; Y, h3 G        machine.label:=activityspace[0,rows];
: P+ w3 k+ r$ }        machine.exitctrl:=ref(leave);
; z9 r) [0 m# ?  O/ _# z+ e# O       
# Q! g. q6 O. o3 Y; `9 L; S        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;
5 B' S/ ^* Q0 V- \        buf.capacity:=5000;
, m% L: _% s' h) F# I5 Z* d, k        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
5 @/ I0 G# g" z0 X6 T       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- I+ P2 ?0 n  [5 s0 p7 F$ O9 z' Bdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# J% a' _$ @+ g. ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
5 [. Z. `! ^) Z% {0 Bend;
; a  Q4 Y4 @) ]* y/ L$ O5 b