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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" A  ]. T- m: x* k    machinename,bufname:string;
    machine,buf:object;
! X- I9 h5 }% y9 y) j9 Bdo
" H* j2 J7 p- `: t. a        current.eraselayer(1);
       
: a0 b  y) V( 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)
' @% J$ O, a& `0 G4 r$ x' ^+ x. F" N                when 16 then
. @$ y8 n8 N  O3 J3 T$ P3 b                        print"yes";
                when 32 then
' c0 S- X8 `: s                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
  C, z2 I5 n5 y' Y7 T7 A1 n; n        end;
       
5 E7 w0 [6 g& i/ K( ~        for i:=1 to number_of_machine loop
; {5 O$ O- k6 A% m        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 l) W4 ^, L7 f3 o                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 C& v5 W# Z9 C, A        end;
        bufname:=sprint("BF",i);
- `9 E9 x% u/ J$ l2 L        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) V6 w# l4 }) r6 Z                buf.deleteobject;
        end;
5 R+ b" _: {* h* V/ l) Z        next;
. s. q+ W9 `. ^       
        dx:=0;
        dy:=0;
$ O6 S" M/ F+ |7 m7 c        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ z' w; X% B! q# F( c* C  q# o                --mark:=false;
# u3 _, }; M9 A  c6 s                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ W! l1 ]) g/ C( ?" r/ b                        /*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];
                        ct:=activityspace[2,rows];
" x- }0 }- H5 C- t* s2 S9 z; z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 M1 u" J" a- V                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
4 ]  d2 f% k3 ?9 n$ s* c7 I/ y                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
' R& t3 T; r$ z+ S% [6 n* N( S                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; L5 J) B4 B+ g  k3 s8 j                        dy:=activityspace[2,rows];
8 a. @6 E( j3 Y7 D$ `1 l; e6 ]1 F                end;
  V, X7 u% }9 u, k, K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
$ S" l& f' \1 k: @) S8 [6 r  E                ct:=activityspace[2,rows];
; `; ~: H3 Y5 H! y: [& z' H5 ^- l                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
0 ^4 k" l3 O" I        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);
       
) o- {/ M# k/ e* s6 e7 U        rows:=0;
) r/ @3 L- k. o$ p        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 X" T3 w/ }& |6 I1 z* {                        if j=i then
                                d_from_to_chart[j,i]:=0;
2 t* H: }8 ^0 H% x4 W/ d" p                        else
7 H2 Y0 d- z! F1 j/ ?* y" S                                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;
1 Z  J2 B8 q* x& q' d- y! O        next;
       
0 _, u& [2 y. P3 W% a, |; E        lines:=0;
3 G. A- H& _) f% Q9 n8 L        partstable.delete;
6 u$ B6 G' N( B( W5 i       
7 w+ u9 K& G: y* }3 c0 Q8 G3 s4 l9 D        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" m/ B/ v  f: o& T0 }                machinesequence[2,i]:=rows;
6 E8 t) l6 m: t% f                for j:=1 to number_of_machine loop
: P$ O4 W% q1 c, M, r; `                        if w_from_to_chart[j,rows]>0 then
2 l4 G4 z4 n& e" R* y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 r9 l/ h7 b! o. y6 n                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
9 q0 N& ^0 @% g7 ~: g7 C# W4 [                end;
" j3 E. A/ v% ^/ l        next;
3 Z- N1 Z8 z2 B+ J        machinename:=sprint("M",rows);
' }2 P% _% A0 L* Z6 [        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]);
$ \3 {9 L# |4 h        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" a/ H/ E/ v0 P/ Y' i& \        machine.exitctrl:=ref(leave);
$ V9 u- [' f; q  h' i       
        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]);
  [/ R' I; i) ]        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
( q* {! [, D5 G; v+ P        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);
next;
end;