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

zooey

is
; a8 [9 ^; U- V* o! A        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" N) `% x! l3 x6 W9 V    machinename,bufname:string;
    machine,buf:object;
5 L5 y7 C7 x; r1 ^! W1 }. odo
        current.eraselayer(1);
% Q3 U& Y% u* N* a! A& ^4 y8 e8 H  x% M       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 A9 ^: O" A0 Z                inspect messagebox("设施数目不对！请核查...,",50,13)
" b; M8 n" H. l: h. }+ |2 n) C                when 16 then
                        print"yes";
                when 32 then
' u+ z4 A' O0 y- O8 i                        print"no";
2 w( L1 |$ r/ y! i                else
! N& g0 t9 j& F. b5 B9 j                        print"cancel";
* P# [! E: [' |7 E( }% O                end;
                eventcontroller.stop;
        end;
       
5 R) _/ j& R  [3 a& x9 B        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, A+ n+ h3 M& W* k4 Q- a& g        if existsobject(machinename) then
6 x7 n! U5 R  n' C) y! t                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
1 e) P0 F/ j3 V* M) X/ W- n6 K        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
$ @5 S+ T0 [( P& o, `- f; J: l6 Q- R        end;
9 v5 C* P9 ~* P' ?8 J  K        next;
       
. S* s! }/ w4 |" a& }& p        dx:=0;
* N" ~: A* ]1 T. J( M! I) Y0 F        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 T. f! A! ^" X/ x. }% a                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' L; b: v6 C; `4 W1 E: j/ c! I2 N                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
$ e0 ^3 i7 h7 r& ~, W, D1 E; N                        ct:=activityspace[2,rows];
5 H1 R( R: ^! F                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 x- v8 W6 N6 F8 o! u                        mark:=true;
                        else*/
6 Z  T1 H/ H" ~1 t6 ~                        y_max:=y_max+dy;
- N: J/ G  M- Q. V) x6 T                        dx:=0;
, z$ ^( W1 {8 ^$ o4 i9 k7 B4 J                dy:=0;
/ T; ~' \, E4 q/ p( @5 G! g                        --end;
/ ]' R1 y# z* V; R                end;
& {+ u& N' Z* j* m# J                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;
6 l1 @/ [- d0 o7 p, s            if activityspace[2,rows]>dy then
$ y. \) m0 _, y8 W                        dy:=activityspace[2,rows];
& R! I+ e6 Z1 K/ b$ v+ m                end;
& F' t! F8 B1 \  @1 P$ r                dx:=dx+activityspace[1,rows];
9 q1 S0 X: R' H% n6 r  ?$ S' p                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; \! {8 ]# H, p2 ^5 A                        activityspace[1,rows]:=ct;
5 \% ?. ~( `/ l. \  [% c                        end;*/
        next;
0 @/ O( H5 V3 N1 V        y_max:=y_max+dy;
! k; i* k  E7 D        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;
' ]9 u+ K; H+ @7 E( H! P        lines:=0;
        for i:=1 to number_of_machine loop
  m! x& o. x! ^+ Z7 \% o. w" [& D                for j:=1 to number_of_machine loop
/ f+ I! E6 x  V4 N* A' h3 I# N  c                        if j=i then
/ j  l* O0 \: h" c                                d_from_to_chart[j,i]:=0;
, O: p6 m7 I# `9 H                        else
2 L' U! k. {4 y; [% n) L9 S/ B                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
. b1 C+ M3 ]7 ]' F                                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;
4 K- l3 }5 h3 _. _+ a        next;
) `5 A( q- x- f7 V' q       
        lines:=0;
7 }  ?: ]0 n/ r8 w  D        partstable.delete;
       
) V3 W; D) @0 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
4 C3 g* n5 q+ {6 K: k; B" H                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; i; K* q# |' H- W                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% C0 J3 C- ~- S7 f                        partstable[5,lines]:=rows;
! D+ ^5 @! c$ X0 ^- E5 X- j                        partstable[6,lines]:=j;
                end;
0 _' j& t+ O/ S' Y        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]);
        machine.name:=machinename;标识符未知
' K8 N/ ?" x, ^        machine.proctime:=5;
; ^3 W2 I: I# i  \: h$ q7 Z        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
+ F: T- u+ e  Y% O) `1 z       
        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
) F0 u6 c+ w6 x' e! {       
+ q: w/ W3 T  l' t. F( |        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;
  P, o9 q* m% k5 t" E# `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;