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

zooey

is
        mark:boolean;
' y) S/ J, y9 \. I        dx,dy,ct:real;
# i. O4 G) ?9 a+ s' Q    i,j,rows,lines:integer;
4 i+ W/ G( O, [) [2 s    machinename,bufname:string;
; ^& H! s- a! [7 X3 v( w    machine,buf:object;
do
4 s, x+ ^: F$ Z4 I        current.eraselayer(1);
9 f3 H, I' i$ d% K' K3 n       
        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
: q6 Y1 j9 p4 z! r( S# Z7 q( A7 m                        print"yes";
; E* f. _& J4 l; e6 W9 Y                when 32 then
                        print"no";
$ d0 |/ a: _( {# |! E" w: T                else
; D8 Y6 o- A& g+ R                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
$ V7 n. u+ n( g        for i:=1 to number_of_machine loop
8 M4 e* U& _5 @) i/ t2 r1 e( ?        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) v; {# k' ^# [- q; z                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
; E1 w7 z$ X, C        if existsobject(bufname) then
6 ^4 C( M4 x% m9 R                buf:=str_to_obj(bufname);
7 j' X" |8 q8 l7 C% o( h. m                buf.deleteobject;
6 m$ w: \: Z4 r0 h        end;
        next;
! G3 F/ s/ E& O  A8 F8 l       
* z) t4 D4 k/ d5 w# u        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 ^' u! c6 x1 a8 t- M9 C                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
7 Y' b% I$ U4 y" b. C$ O) B  T! I% ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 v% q$ n8 `9 K* h! b                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
& l' c: M: j0 U" \" O, `+ w                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ O; g4 n, a% b# u* w% c                        activityspace[1,rows]:=ct;
- w( x0 c! p, f: N1 _$ S* Q                        mark:=true;
, _- E2 |" t$ s+ K" \# m% j                        else*/
                        y_max:=y_max+dy;
0 J: M2 d; W; ?7 s/ ]                        dx:=0;
                dy:=0;
                        --end;
                end;
# b# P  K* k( ?  v, L4 u% T: E1 E                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ v* y, j, D( F$ L5 T& `. f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
! a8 {5 r  v9 U8 t' d                        dy:=activityspace[2,rows];
                end;
% o0 a3 Q( w* W& K7 n- x                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  t2 [" ~/ G1 l& o, s8 b                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 V( }$ ]8 }5 B' J2 j" O                        end;*/
$ c) `' ?( ^* q        next;
        y_max:=y_max+dy;
7 k# Q- ~5 M. j" k9 T# p' L: L. U        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;
. R3 I6 m2 @$ r        lines:=0;
9 s2 j: ^! A2 B. y1 O0 ?! _, n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
; D6 _0 k) M1 \$ M                                d_from_to_chart[j,i]:=0;
% p+ x: E0 [$ m/ `4 l                        else
6 o0 m& _3 ~1 _8 S6 Q                                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);
                        end;
                next;
        next;
$ K- }4 o3 e, @; B( Y       
% F$ ?" Z. g* `. c        lines:=0;
        partstable.delete;
, I1 c: N2 O' `       
" E+ [' t( ]9 d$ [" `7 u1 S        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  h! E% j2 T) v- p/ ~                machinesequence[2,i]:=rows;
$ b* V% d$ Q+ F% n                for j:=1 to number_of_machine loop
6 @, V4 c7 b6 |4 ~. p0 {% f/ ^$ D                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
7 v* e- |  L! P; J2 N                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 I- k* |. E8 G1 h                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- d* Y' x8 T/ P0 D5 p) B# n                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]);
4 n7 W: \6 Z. U        machine.name:=machinename;标识符未知
        machine.proctime:=5;
/ e5 D9 w* M, t& T        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& ?/ G- T( m7 u$ t/ W# h       
4 v! O6 P* q$ M2 b        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]);
4 r2 e  H8 n- m1 V" x$ v/ O( M        buf.name:=bufname;
        buf.capacity:=5000;
  s# b( j" |/ }* _9 u! v        buf.proctime:=0;
" I: q* B1 a$ B2 Y        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=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);
8 I, c9 y0 l) U5 u- Gnext;
end;
- _3 m. S+ d/ ^- Y# x+ P" I. r. Y