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

zooey

is
% V) d% D" C  J. n8 m        mark:boolean;
% Z1 y5 i5 L7 P) m8 e        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
! s. o# p( ?9 A* xdo
        current.eraselayer(1);
8 M  o9 ?9 C) S$ C5 |* ^0 c       
6 }% I- F+ v  D4 h. w) S! a% u        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
; c7 g! r" |% }' L/ |2 ]                        print"yes";
& ?$ j3 ~3 D: e! l$ `( {* F$ J+ p                when 32 then
% O) W# }  G, C5 V5 J, H- P                        print"no";
  P* g, ~5 U3 _1 R! @                else
                        print"cancel";
* o! v* q" J+ M                end;
$ V9 c1 _- q. R0 R                eventcontroller.stop;
        end;
' j" G1 m0 v3 y( m! o7 u       
& \6 y3 h; ]. o% D        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! K, P1 G, f" v4 E' B9 o1 H                machine.deleteobject;
& `+ U8 W9 E3 H  e1 E        end;
. `$ g& x+ \+ a) U4 j2 y5 ]1 ]/ l        bufname:=sprint("BF",i);
2 U# X. F3 [4 W+ Q9 ]: ~" c. t: S        if existsobject(bufname) then
* k6 B8 Z$ H/ _( {2 y, `                buf:=str_to_obj(bufname);
                buf.deleteobject;
5 O4 A, I" Q& U; u        end;
        next;
       
        dx:=0;
        dy:=0;
. e$ v, k, f4 h        for i:=1 to number_of_machine loop
" g, M( P6 F# n4 j) q+ X! C# g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) l- c& q8 Q2 r# n6 `: W                --mark:=false;
2 `; I4 @9 i6 g9 a5 N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ B' t( I( M7 O& r: l1 r                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- E8 E4 y& K8 J" O, d- j' Q. }  b                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
+ Z$ r4 N& j/ g* b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ [# p/ [% B6 _  W1 n: T" r2 N                        activityspace[1,rows]:=ct;
& o+ q7 O, l! o4 N                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 u% U0 l+ o2 @9 _' z                        --end;
8 v* B, ~- i' F, O5 y, X7 S7 u                end;
                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
# B$ S* R7 z- a; E6 x( D                        dy:=activityspace[2,rows];
                end;
5 ]* T/ `- {/ e+ h( o# a# Y                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ ]& I+ o; y* j0 H6 P+ J. \1 v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# i5 w" e- l6 ^( {5 X# D% V5 ?                        activityspace[1,rows]:=ct;
                        end;*/
6 E# I- o: j5 z        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);
6 g) z6 Q5 }. ^- v& J' _! T& w" F- `        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);
" B, v& O7 T, q  D+ }5 l  R; k) g+ W       
        rows:=0;
        lines:=0;
+ K  o' K6 t& ~% d4 s6 E; J        for i:=1 to number_of_machine loop
8 G3 a6 {4 R& |6 ?                for j:=1 to number_of_machine loop
4 K  Q6 ^7 i$ E9 b+ i) i, x                        if j=i then
- g4 ]: u( r# p  Z                                d_from_to_chart[j,i]:=0;
( M5 t: x8 h& P/ F" f) S1 D: v' W                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( w+ y- ^) h" k' w) R                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
; {# a) P& |, y6 f, b  ~3 X                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
; }4 T1 v1 g- f4 W# u# \/ F$ P        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
, v8 M' p: N' g2 O9 B- t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# ~0 g9 ^& M1 t                machinesequence[2,i]:=rows;
; V5 I3 z( ^2 m$ q9 c                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ J& z+ }) f# z/ ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ l0 {0 [8 D& T                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ h4 n3 l& h" }) \( T: v/ L% ~                end;
        next;
        machinename:=sprint("M",rows);
% \+ b% E  s3 U9 v$ {& 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;标识符未知
3 h" B$ K5 o; Y. o  W/ O! l        machine.proctime:=5;
: ?& |8 c6 n; p  k* V1 O0 N        machine.label:=activityspace[0,rows];
4 p2 ~0 E, G" B. b        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
, a: Q! W. s3 [( X: U        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]);
4 s2 M. i+ X0 Q' I; u! p& y) R        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
5 A" ?  |! k* |2 X2 T2 ]8 v        .materialflow.connector.connect(buf,machine);
# M- c' ~, l4 h4 j3 c       
% T4 U$ c$ w4 v        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
% U8 B+ W' i& b4 kdy:=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;
" A5 x2 h/ j- v: \: L* G6 G- D' X