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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
7 H  E) O! v8 Z& O; N    i,j,rows,lines:integer;
. r; L3 T3 O* [9 ~" r  r9 f9 O' C    machinename,bufname:string;
    machine,buf:object;
6 ^) v" |8 h7 ^: j- B  kdo
0 e2 F- N- H, o5 k- t; M        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
! B6 ]* ]9 w& _; U3 I+ _# Q% n                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
: r' s3 k% D/ V                when 32 then
1 q* ~6 X9 T* v6 T- y3 g/ M                        print"no";
                else
2 [+ D$ q  m  O; M                        print"cancel";
                end;
1 S! F& R  u: L5 {- A1 i# i                eventcontroller.stop;
! P  J( X, p! A6 A# O        end;
       
# C& v% B2 C5 u' \( `0 g        for i:=1 to number_of_machine loop
9 P9 J) P" Z# L* I. g        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 }; J% E# Y$ P1 l4 ?5 Z) ~                machine:=str_to_obj(machinename);
/ [2 p! M4 J- `' @. U                machine.deleteobject;
2 |7 b6 G1 G9 D; y4 `# d4 `        end;
        bufname:=sprint("BF",i);
' G8 ?  I( j: \: O0 z/ d        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: f0 O6 u% b% c* c; `3 T                buf.deleteobject;
! ~+ Z1 F3 G9 y2 n8 _5 ~$ s        end;
        next;
2 y) N# h: c1 }       
8 }# F# D( o  s# r3 I  N  ?        dx:=0;
3 u$ x( ]# ^. ]        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
* U5 b( U" @" z3 S$ B& C' ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, w' E( V0 B: o+ B: u4 c$ u                then
( x7 V! P4 _4 a) G  }/ ?! H                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& F2 F5 Y* H" I* h8 k                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' x) d" a3 _- l+ s( b9 q2 f                        activityspace[1,rows]:=ct;
& k7 l# n4 K, N& D7 J                        mark:=true;
                        else*/
- v" H  p6 c+ x  ~- {9 ^& E                        y_max:=y_max+dy;
. q7 f. S+ D( f  E) c' |! A                        dx:=0;
( E7 X! K. @" J# Z+ M2 f; E                dy:=0;
                        --end;
                end;
% I. f4 r" h2 R# B/ `# ~$ n                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;
' ^1 R) M# s" L8 L9 Y( f: R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
, A, u- h8 f8 \6 g                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
; c) D; I- n7 S' J, R$ c, O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
! z3 l- T. M/ e; D% w2 V        next;
        y_max:=y_max+dy;
3 f- }7 g+ n+ @, w' X& f        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);
) L; {9 b# i7 u        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);
$ M: n- h2 ?# }       
3 [- q9 j! N5 B4 }! U& {7 x        rows:=0;
        lines:=0;
8 I/ Y# Q, l% v        for i:=1 to number_of_machine loop
) H' i7 o8 m, S1 p                for j:=1 to number_of_machine loop
0 Z4 f4 G) P. x0 e; n9 h                        if j=i then
& p0 \" x- N- }4 \- c" n                                d_from_to_chart[j,i]:=0;
3 z- k8 I/ F0 N1 q0 @! c7 ~                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 h% h  N2 B7 s1 G. _                                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);
, F! a5 \2 j- w9 K5 j                        end;
                next;
        next;
( }) [+ z) Z0 g       
" B( D  m, H$ X4 y3 B# B& J8 M8 D        lines:=0;
        partstable.delete;
       
7 Z9 ?2 C; k" |0 F6 p* j3 U0 p        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# {) }: m( j4 ]) p  i0 X0 F6 m                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
6 ?! R/ {3 }/ `2 Z' U) V* r                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
/ R- z: Z3 A& W  S7 R9 g8 ]                        partstable[6,lines]:=j;
' [* z) x% w4 P# t$ _                end;
, M! P" P) r' t3 }# b& \) P        next;
3 a# K- B* r. @1 c4 N2 b( Z        machinename:=sprint("M",rows);
- x) U  a- a, [9 x7 l. \  q) X        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]);
! z" S; H- C8 Q( ?% c6 j) D        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
1 \8 T( O4 b/ T( Y- J( {        machine.exitctrl:=ref(leave);
       
        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]);
& N4 I+ |. i& F' x5 d( ^        buf.name:=bufname;
8 O# r; c2 n  ^  U' H, P. K( B        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
$ R" |  O) [! i8 S; y0 T7 H) a       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* m7 \! {) z& [! g2 ~, F9 mdy:=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;
: }9 x+ V3 U9 d7 Oend;