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

zooey

is
) g, h! y, m4 [9 w        mark:boolean;
5 j6 p. k3 q3 t7 c$ J5 F        dx,dy,ct:real;
    i,j,rows,lines:integer;
& |# k, X1 J3 b( \( m    machinename,bufname:string;
7 E5 L( }9 g: u    machine,buf:object;
7 X: i' v% W5 odo
# W9 Z  T$ M$ w! y        current.eraselayer(1);
! S2 ^3 y5 @' _3 F; U- N+ V       
, P  X4 L# h! W' J0 `" W  o        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
: {$ F! X; {1 B) d) ~4 _                        print"yes";
6 ^- f$ E, b4 J) o  {                when 32 then
                        print"no";
                else
                        print"cancel";
$ m: i8 q$ k, ^2 \4 n8 M+ J                end;
4 S% l7 Z/ |+ R1 w                eventcontroller.stop;
        end;
       
: e5 a! H/ P- a' @6 C9 }2 I/ O        for i:=1 to number_of_machine loop
5 A: c  x" w% B/ J% q: O        machinename:=sprint("M",i);
- I2 ~  Q* U& Y; P3 Z0 N! J        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, Z. k! B  n( ?# h4 o                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 w, r9 _4 G& E; B- j) Y" O3 a                buf:=str_to_obj(bufname);
5 J9 M3 n$ D7 R" d# z6 b& t                buf.deleteobject;
) W* A% |5 j9 t0 ~) b3 w2 }        end;
4 E' j( g& b: ?0 g# g        next;
: K7 v3 C' W( c  E6 l- u, z       
        dx:=0;
, H* _0 ~5 m( z        dy:=0;
        for i:=1 to number_of_machine loop
9 T4 O* K: W2 [* S% U$ z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
- s) L- z, M8 k3 P4 y4 {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
- o2 P5 f# V3 Q: H: o- k                        print activityspace[1,rows],",",activityspace[2,rows];
+ M/ q% v# k' g; W8 S                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- h: N! {$ r8 M: }% z. G                        mark:=true;
. r! b+ B, k+ ~7 M7 _, q                        else*/
# }  v5 G! |5 f+ T& N+ B2 q1 s                        y_max:=y_max+dy;
, b4 T8 P2 ~7 m4 J* u                        dx:=0;
                dy:=0;
. |2 l9 A% C2 C7 B6 ~, N: J                        --end;
                end;
; N$ H" f0 Y7 b                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
1 G5 o" \: m0 ]  q/ L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
% w" v2 ~  ?+ K1 F8 b                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 o6 Y* ^& M# d* }                ct:=activityspace[2,rows];
+ d1 ?+ p$ o% m7 X9 P9 C/ l# t/ Q                        activityspace[2,rows]:=activityspace[1,rows];
# V* P, o# V+ o' O  ~* {. O8 g, J  I                        activityspace[1,rows]:=ct;
; I: H& ^7 z# }                        end;*/
        next;
1 }) T+ f6 h6 L+ E        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);
. C1 H) M! a) D$ `; a7 {       
        rows:=0;
5 [& Z, X$ }6 W# g4 d& i        lines:=0;
9 v* h; o) T; P. @5 R' a        for i:=1 to number_of_machine loop
  T: L7 Z0 K6 {0 S1 i! Y: |                for j:=1 to number_of_machine loop
0 L7 z  ?  X. u* ^8 K# t                        if j=i then
8 n) m8 @( E) a- W2 @9 l, J4 e                                d_from_to_chart[j,i]:=0;
2 j' u' H0 k, {& t8 r& `                        else
3 x; f7 p8 w$ p# C1 m. G                                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];
! T5 M- P5 G' [5 C2 f                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
7 ]5 F7 u1 V$ g# }                next;
        next;
7 Q; ?% U! d+ ?2 o$ z3 s! e       
        lines:=0;
        partstable.delete;
" R: V" ^8 t3 X7 S/ O% J$ C3 L       
- \) p8 v$ a0 Q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 @& y4 Q5 }/ H. h                machinesequence[2,i]:=rows;
. O! N. ]) X% s  ]+ I- Y                for j:=1 to number_of_machine loop
( u. R) t" O$ E! a. p                        if w_from_to_chart[j,rows]>0 then
* k2 C, V3 P5 A. `; Q0 y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 v) K2 c. n0 P8 i& `2 `                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
9 u. }! R7 ^4 C$ R2 W                        partstable[6,lines]:=j;
5 \3 M, `, v$ @4 |8 ^& i3 Y( o' }5 S                end;
! n& l( d2 P4 d7 _" G/ z9 }        next;
        machinename:=sprint("M",rows);
( N) |0 w/ d6 |' ^        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! C7 d- j2 n1 D3 e$ V* [        machine.proctime:=5;
3 x& s4 ?7 j; A& f8 C4 w9 i        machine.label:=activityspace[0,rows];
+ ]) D- X8 f* w' _0 ~        machine.exitctrl:=ref(leave);
# X# _  Y2 R# n- K       
        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]);
* t' [3 r/ `& x7 s) x9 X4 R8 |        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
8 c" w" n" z; C' `8 `" ]* T       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ A, ~+ W; u+ }+ p5 L7 fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
1 }2 H( S: J2 Q; `! Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 ~& s3 I! T1 Bnext;
& Y4 Z' g2 M  I# H$ d* _; V  uend;