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

zooey

is
: v. ]1 i3 b  V8 U* D        mark:boolean;
1 B8 S5 e! \+ Z        dx,dy,ct:real;
, ]* _! y( q& _  K, U    i,j,rows,lines:integer;
    machinename,bufname:string;
7 C/ A2 A' |2 L( V9 S* y( T) k    machine,buf:object;
+ g: m( |8 c, N7 ldo
5 O# N; I7 J9 u9 z        current.eraselayer(1);
0 E! g8 W; N# o       
% k, p2 e# b) }8 w( [0 ?2 j4 s2 ^* i        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
                        print"yes";
                when 32 then
! W) ^% C2 Q* N) ?9 e8 I  ^6 `                        print"no";
( u% j# b/ e6 q* V7 x* T                else
                        print"cancel";
7 b3 |1 F  c: A( b                end;
                eventcontroller.stop;
6 l0 q) `( K- I5 a) F7 c% O4 X        end;
       
4 X2 q2 A8 l2 L+ o' R- A" m        for i:=1 to number_of_machine loop
  l* s7 j/ q2 O  L* K4 R        machinename:=sprint("M",i);
        if existsobject(machinename) then
. t: J0 \  P  ^* r) F5 {  l- j                machine:=str_to_obj(machinename);
                machine.deleteobject;
5 I0 z6 l, p) ~5 l5 m        end;
        bufname:=sprint("BF",i);
* @5 w: |& q4 ?( p        if existsobject(bufname) then
/ G; L4 R% p# U" q6 M) o8 u                buf:=str_to_obj(bufname);
8 m% S& o$ x8 O7 K                buf.deleteobject;
        end;
        next;
- C8 V9 g8 C, D       
! d3 x* u- D7 p  }6 }1 L" x5 o4 q        dx:=0;
$ V6 m' M  ^  z, r/ q) U        dy:=0;
  g  m1 s9 n. ]) E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ T2 o# Z3 z8 [4 G5 I* {                --mark:=false;
% ~- V5 m3 T# x1 y1 F$ S  [                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- u" x+ q% T$ }$ j5 p  l) u' l                then
/ O5 E3 T- Z- ?4 Q                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  j% M3 t; W: y  U7 c4 u5 P/ _7 ?, }% ]                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ H! R% t- Q! W4 V                        activityspace[2,rows]:=activityspace[1,rows];
" [% z2 R/ [+ I# j! Y8 }                        activityspace[1,rows]:=ct;
1 t) f$ L$ j6 E( ]! @/ \3 A7 R                        mark:=true;
+ y1 r  `+ l6 K/ H) o                        else*/
( g6 S' ^: q/ h1 O                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
; L; z6 d( L- X0 E$ f                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;
! c4 @2 [+ P8 W' D4 n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
: o! B; x/ H* f  r5 V  Q8 ]                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
- T7 C& s" u2 ^& p: ^9 Q, H: N        next;
# t, p! X& v! X* I& O) u7 n3 m        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;
1 v) J3 {. A& i9 P+ ^9 g, z        lines:=0;
9 ]" q8 n( D0 G7 f( a        for i:=1 to number_of_machine loop
  _5 X4 w: D! {: A3 b# t! w3 d                for j:=1 to number_of_machine loop
4 e6 h" q2 f* x6 c% d# J                        if j=i then
                                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];
3 f+ F" Q/ y/ h" }' N                                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);
" o: Y* Y1 v7 T; a+ r9 s+ h                        end;
: e& L! }$ Y( k5 ~% {- A                next;
        next;
. T( U1 K' c! V3 \# C( G7 F" g       
4 u2 V: U+ S7 U2 w3 e        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
# z7 A8 R, Z) Z0 O2 C3 E  y5 R: S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ x( W& M/ D: F* v9 b; F7 X                for j:=1 to number_of_machine loop
) V1 v9 t; S. z+ t                        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");
* @' ?+ t# y% n0 B                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
0 `# a% A7 j7 |: |6 J0 Q. u6 f                end;
        next;
5 d  ^# h0 m4 L- I1 C5 f$ s4 a. O        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;标识符未知
0 Y, R- C8 K& u' i" U        machine.proctime:=5;
6 u4 R' M, f, |/ m        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ O2 f$ D2 U6 b1 E9 K, f       
" ^/ B8 a# I4 O        bufname:=sprint("BF",rows);
! V6 P/ o- x6 @; r        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]);
3 L) k2 V9 c) z$ a; w7 D7 R  `        buf.name:=bufname;
0 {3 M0 u& Y) [1 L2 a" c        buf.capacity:=5000;
1 g9 }7 C, L& ~5 J8 z. O        buf.proctime:=0;
& x6 O1 r8 q. Y& \9 j        .materialflow.connector.connect(buf,machine);
) A& o( J. C4 B6 B       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
$ U1 b5 B* E, Q6 A; Pdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) i3 |- i3 J5 E& n% Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
9 B9 s% ?- S9 c1 jend;