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

zooey

is
        mark:boolean;
2 N& f  R  ^1 h! ~. ~. x9 }        dx,dy,ct:real;
7 m6 F- w% V4 O* w3 s    i,j,rows,lines:integer;
    machinename,bufname:string;
+ O4 x) f( {3 Z& k+ n3 ?/ x7 c- N    machine,buf:object;
do
3 O. G1 J/ o6 ?% i+ }0 n        current.eraselayer(1);
       
! ^! s: l. q$ Q2 ?8 c5 e8 Q        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
/ D6 V* R& f0 w! P" r                        print"yes";
( w' K; V* C7 X: V4 r% J                when 32 then
                        print"no";
* {9 k# _1 u# m9 ]& f0 ]" o- q- ]9 D                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
" g7 M( v, ^) ?" e: T       
- B! P+ Z$ q+ t% l( J, T5 j0 q4 v        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
; Y2 R. I' i5 d4 ^                machine:=str_to_obj(machinename);
+ ?1 q( @. C/ P/ L                machine.deleteobject;
1 R; ^, b% r/ h% K" c* W/ B        end;
( t. ]+ q" C2 I/ j, \. R4 m4 t" a        bufname:=sprint("BF",i);
; C# v% E3 Q" C        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: B1 U& y' `. f6 Q                buf.deleteobject;
        end;
7 a0 i* y# z9 G* O% z! s! n- g        next;
+ C/ i1 N5 [- f" c0 u1 |$ C4 V$ ]; x       
        dx:=0;
        dy:=0;
, {+ t4 k& l4 N        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ ~+ g( O5 ^0 `& S% ?: a8 U4 }                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# `9 p8 ?- p. ]" r) E                        and activityspace[1,rows]<(1.05*y_max) then
' G! R) U& ~; B, H8 m2 I( \                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
7 m* h' l" r, g' P/ j$ Y: G+ L                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
2 E+ M5 Z' q5 c# k% ]! `                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
3 b4 y8 @+ a' Z, Y                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;
# M9 |0 w6 B. C+ r8 H( P            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* Q. C" u$ k+ ^0 _                end;
4 ]5 c0 q5 N- K# s' N                dx:=dx+activityspace[1,rows];
3 U  a8 T& J# N7 o& V. t                /*if mark=true then
# k" W: w: |# Y                ct:=activityspace[2,rows];
6 b1 G' v( r0 e0 P  p                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, W4 F( _! P9 ~% i9 |) x' l0 E0 ?                        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
% A3 C4 G% g5 }7 @                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
7 v) V- s' L, \, x                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# _; [' o( e8 S6 ~, i' h# W' z5 m: y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 A$ Z9 @6 Y6 c, p: a6 C" O' o) @                                d_from_to_chart[j,i]:=abs(dx-dy);
4 S/ o5 k% V) W                        end;
% T& A& a4 x5 N4 n# Q                next;
        next;
4 ]4 a/ ]" z2 _3 D) O" Z/ S- N% p       
, M4 y; ^6 a  s" m3 R        lines:=0;
1 V4 |) u" G: U' E/ I4 E        partstable.delete;
       
7 u  M& }3 S- ^! l2 F9 B/ T        for i:=1 to number_of_machine loop
' k- o7 N$ g8 r, s( l- g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
1 h1 z# B, Y8 A                for j:=1 to number_of_machine loop
" p9 X  \. Q- _- x: F$ f                        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];
; z0 R( \- n* D' B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ }( l, Y1 t  H" U                        partstable[6,lines]:=j;
) n9 {3 |  |( Q- K8 Q8 p                end;
        next;
  T" N2 _* Z2 t7 c6 W        machinename:=sprint("M",rows);
7 G) }- x3 m; h0 b        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]);
: `4 D' k' h; Q4 o3 O        machine.name:=machinename;标识符未知
        machine.proctime:=5;
  l/ v& f5 [: t. U" B5 k        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 o) d: v# Q8 e       
        bufname:=sprint("BF",rows);
% U7 m) b. Q; [) i4 B. 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]);
        buf.name:=bufname;
7 n2 i: C8 n6 t/ m4 A, C' o        buf.capacity:=5000;
% b( v" d6 V# B) o- {+ }' b5 w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; ~" N+ y3 w2 w        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);
6 ]3 D% B  @4 O9 n8 Fnext;
end;
. A* j8 {2 v9 p' n/ p. ~; D