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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
: O4 |) {- h0 Z* F/ s* C    i,j,rows,lines:integer;
- p6 W1 e, w9 I5 ?    machinename,bufname:string;
' f1 `; N1 V# B; e* z( x    machine,buf:object;
& t0 q: }$ y7 s# C, _+ rdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 a' _3 C  S# [  p$ F3 h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 T( w- |1 w; C8 |9 S( A                        print"yes";
5 {. ^& Y' @" D                when 32 then
3 E/ u, K% J0 G: j- U3 \                        print"no";
                else
6 O; c! j" h- F                        print"cancel";
& D: E: ^# T; A$ X8 j% l                end;
                eventcontroller.stop;
/ ~- `" [- F- l  w: l; X5 X9 Q        end;
       
        for i:=1 to number_of_machine loop
: L! v, W, R, S0 f" W        machinename:=sprint("M",i);
0 K' W& g# @# X% m& i        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
) A- H! s) _* s; M6 p                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 D( a. b# v+ |* Y4 U# d        end;
        next;
       
        dx:=0;
+ L$ Q$ l  h: h( \2 j        dy:=0;
  K" X- j9 b# H) z! Z& \7 e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ |( U0 a8 I7 K* ?                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% _/ ^% C; W# J2 `  ?; h                then
* E( i3 l% t9 A/ j                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 V! C3 t2 s0 B/ ?                        and activityspace[1,rows]<(1.05*y_max) then
9 y9 n: U/ c$ J                        print activityspace[1,rows],",",activityspace[2,rows];
8 S, K' q6 d( j                        ct:=activityspace[2,rows];
& O4 l$ U! i$ q                        activityspace[2,rows]:=activityspace[1,rows];
. }! b. m+ u) i/ p+ J                        activityspace[1,rows]:=ct;
$ {' Y- {& Q' n: \4 t3 X0 G; e                        mark:=true;
                        else*/
1 V6 U; t8 [4 |# a6 ?                        y_max:=y_max+dy;
, b1 N7 g# }$ t# I                        dx:=0;
; X1 O" R% Z, f& J                dy:=0;
                        --end;
! D" S, c5 C% q* j% ~$ f( s( R! I' V                end;
/ e8 ?; W( x) m8 D                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;
            if activityspace[2,rows]>dy then
5 V1 c8 S7 `) G! d                        dy:=activityspace[2,rows];
                end;
3 r0 B2 B  M( u& Q+ a7 J7 d" Q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  g: i* ], t( ]. o4 \                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' O- X9 Q# b3 A                        activityspace[1,rows]:=ct;
                        end;*/
& M( B$ `% u6 n6 M7 _        next;
        y_max:=y_max+dy;
( [4 N# r& x$ t/ u! Y' 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;
        lines:=0;
        for i:=1 to number_of_machine loop
0 J  e1 K) N; h: Q# W5 x                for j:=1 to number_of_machine loop
                        if j=i then
/ X2 _2 D6 j) e) Z, {                                d_from_to_chart[j,i]:=0;
4 V1 r* g  B- y" {" G+ E) o0 `6 f" L                        else
                                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];
) F1 I7 F( R; N( O4 J6 k( x+ [                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
/ c; W: x" a) w+ C) C        next;
       
        lines:=0;
        partstable.delete;
' o: Z0 m! g- C. Y- o# u- x       
3 V# \) u% A* [7 ~        for i:=1 to number_of_machine loop
! r( ~) T4 P% c- {/ T' b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
3 t' H& I" a! V( `2 _: G                for j:=1 to number_of_machine loop
* w( T+ P+ d, o2 A, _                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 W  e' e$ q) {, l; a% T( Y9 [, ~9 G# f                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
7 X6 A1 @% q% K; o+ H) a* ~! d                        partstable[6,lines]:=j;
                end;
: s  B0 M7 y/ W1 V, O        next;
5 g$ ^+ L0 [4 E$ y0 w% j/ j        machinename:=sprint("M",rows);
, y- @( S; k. I) o        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]);
( @* u% B8 m: E4 n        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 d; j/ I3 j  G$ {7 X) g% e3 \        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]);
: [8 l3 G: d* a* I5 _  l        buf.name:=bufname;
        buf.capacity:=5000;
! k; n) w7 ?/ {9 ~6 T' r2 x        buf.proctime:=0;
" P- |/ |+ r4 a        .materialflow.connector.connect(buf,machine);
       
/ k5 w8 x  ~) e- D& I+ X        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: R# s6 Y8 a4 q3 A# }1 Q1 h+ Ydy:=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;