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

zooey

is
        mark:boolean;
2 ]2 J# [& p& x5 r0 S        dx,dy,ct:real;
8 t3 R* U' t! @. j" p) X    i,j,rows,lines:integer;
  J% I6 i& d' k& G    machinename,bufname:string;
6 a% Y3 B( f! \' ^. s# W    machine,buf:object;
6 n+ w7 @9 s. B' _! @/ O2 ado
        current.eraselayer(1);
( B) L2 ~+ `9 [       
$ }# e3 z( d" a6 T* g1 W7 e        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
6 U$ K1 \: o8 ]  z9 s% D+ G" D                        print"yes";
8 V1 ~7 h8 ~2 w, f7 |" D                when 32 then
7 E* R% q) C- j- N5 U                        print"no";
1 Z. k* I  N' ]' w  W% w- Z                else
4 K7 o" |& y. w4 e/ U" x- J9 C                        print"cancel";
                end;
                eventcontroller.stop;
        end;
% V% g+ r3 S. @6 b/ X- {       
        for i:=1 to number_of_machine loop
/ |5 W' W! q/ s) e: D        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
% `; x1 E1 [" F# t( p$ {8 j                machine.deleteobject;
        end;
7 W9 c6 M& k# w& z' z! X        bufname:=sprint("BF",i);
% A5 N: {/ z# i. ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% k' D2 T- \. C5 P4 M& U* h                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 ]2 M) l. n% ]' g* m; e2 C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( F0 B" |: E3 M  Q                        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  z, F* ?# y+ B5 ?! I                        activityspace[1,rows]:=ct;
+ _) {; ?# K+ {, h) ?                        mark:=true;
$ h/ t+ l: p8 _4 s( @) u                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; Q% P+ t- m. J  X. }& I; T/ I( b                dy:=0;
3 P5 ?* T: m: {  Z# I                        --end;
3 ]- T$ Q4 n+ g                end;
: H# g6 Y  |- w& F# D                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  T8 D7 M' }0 v) N                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
6 K9 v8 {0 c0 i8 ^7 Y- G! G9 ~% G6 @! O            if activityspace[2,rows]>dy then
" I, p: P' {4 k; u                        dy:=activityspace[2,rows];
                end;
( ]+ B; o, }' W0 w* f6 G                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 E' j. v3 K+ C/ A  z7 [                        activityspace[1,rows]:=ct;
% i4 \6 m; y1 O4 N7 l# N1 E+ O                        end;*/
        next;
        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);
       
: @1 I+ d4 F6 U( U0 g7 c; _3 P4 Z- \        rows:=0;
1 [0 e& R- P/ ^! S: R        lines:=0;
9 v4 F! r* T) _- h3 k, h3 p: B        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
* i- _8 ?. Z7 d$ c* G' m- a' |                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 n) A' g8 K! ^0 ~0 Z) {                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( Y5 r0 e! ], {  c                                d_from_to_chart[j,i]:=abs(dx-dy);
" e2 j4 P6 |" t# N5 [( l# k                        end;
: d9 D" N% V6 F- z                next;
        next;
! r: G# _  X2 o% J# w, K: S6 X       
        lines:=0;
        partstable.delete;
" n) G. J& `( a7 X% G1 V. Z       
        for i:=1 to number_of_machine loop
3 Q& ^0 ^7 m3 z# `6 r  J+ c4 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! w: v% Y8 K; z9 I8 h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; }5 \4 \% h, {1 `# p/ \                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
3 ?) {9 ~+ F. T) V7 o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ |- X* H4 Q/ K% {: R+ z+ f7 E5 f. ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
8 _9 o1 j7 P8 X$ A% O                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
4 }; F  z, k& ~% ~; b9 f& C* S        next;
9 c0 `! ]- U. a( x        machinename:=sprint("M",rows);
% t; h  W; @7 N' Z. p5 F        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;标识符未知
! M$ h5 m5 d  T3 C        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# k6 U- `& F, a  E! P+ X0 \- \        machine.exitctrl:=ref(leave);
       
, P6 b8 Y( Z8 J        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]);
. I, R+ B* H, m) Q        buf.name:=bufname;
4 O: ^6 P$ u4 @( A: K3 c9 V' V. H( G        buf.capacity:=5000;
! b, o3 ]" ^4 W' Y8 z; y4 _) [2 q        buf.proctime:=0;
- i- F' d' Q7 H3 j' a% ?; E) z        .materialflow.connector.connect(buf,machine);
       
) y0 X' R% h# ^) `& `2 i        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;
9 l! _$ M4 O. C0 b1 f2 N- C  Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 G" ]8 V$ h. B1 l: ?next;
end;
7 b6 M! _5 ^1 g3 n