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

zooey

is
/ v  ~; b4 D7 g2 a        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
) y4 \: r8 R+ b% a/ i$ d+ B! Y$ K    machine,buf:object;
do
! ]& w/ z% l; y        current.eraselayer(1);
       
* I: h* Q0 S3 R* ~! p* r. Z        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
! B: |* ~* @' b# X, @# y                        print"yes";
- z- C3 L9 U; a* Q1 B' q                when 32 then
* [1 n" ?/ U( |                        print"no";
  d0 u, @8 T7 K% L                else
                        print"cancel";
- ]9 {5 b! u) V, D5 c$ J  K                end;
                eventcontroller.stop;
        end;
       
3 r) }) G" W; }        for i:=1 to number_of_machine loop
7 U5 H! o5 ]- F8 Y$ p+ ]        machinename:=sprint("M",i);
4 m7 A' W1 m6 v# y- F! G        if existsobject(machinename) then
  Q/ a7 P. M7 E0 k                machine:=str_to_obj(machinename);
2 u7 Y" H4 [% v                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ a$ A, L* z$ l) a  A                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
% d/ ]: U$ Y  P3 m1 L% g8 G        dy:=0;
        for i:=1 to number_of_machine loop
' L2 L5 a$ ]" C9 g# V" o' d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' y! M$ }' G4 U6 M                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 @; v% H7 X9 `                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
+ ?8 v$ h$ }  O% ?7 ~                        print activityspace[1,rows],",",activityspace[2,rows];
1 y2 P$ B' z7 H9 M1 ]! Z  ]                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 w% `- U0 \( U: ]                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
3 z( X; \$ a) G0 Q                dy:=0;
+ E( [( g5 J# _9 T! |( y! S# V* c                        --end;
. A4 L8 Q% V8 l2 y) ]! l0 v/ \, d% k                end;
9 U, V5 ?: ~' f, g, S                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;
6 _+ i# i9 f$ H. Q% w            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
$ ~7 z) F' a* w+ F                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 _1 [* q$ v2 X                        end;*/
5 I1 s0 X% K0 o        next;
        y_max:=y_max+dy;
. m' c7 l% o3 B        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
                for j:=1 to number_of_machine loop
                        if j=i then
3 A! W  K4 G5 C) Y! U3 O# n: L: `                                d_from_to_chart[j,i]:=0;
. T! t* `# L$ A) E                        else
' x% h, b6 U1 y) _% B                                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];
) u2 l- ?+ _. Q/ z& h                                d_from_to_chart[j,i]:=abs(dx-dy);
1 ?& G2 K  w" v! @+ P6 w                        end;
' u+ Q: ^' p1 H4 f/ W- R' ^' G+ i                next;
, \* h' {8 F6 n7 ?8 n6 w9 v        next;
       
% G8 O% q' G  A; [4 P: Y: W; |) u        lines:=0;
) c3 [  [4 \% t$ G9 b        partstable.delete;
$ |, Y' N6 V9 q' i  N7 D  S+ l" |       
* v' r* f$ x" _( H) ]& l" u0 v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
9 U3 ]& a( v  g: x! P! }                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# A8 U# S1 `( E  r! y' _# B                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
+ @: b0 u! j: ]+ i9 p8 D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
0 k; I9 Y7 D9 q$ q% L        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;标识符未知
        machine.proctime:=5;
- U/ z) s1 \8 E7 o        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ z% M# E5 {3 \" c/ z       
        bufname:=sprint("BF",rows);
: V( M+ F) ?& O3 l        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]);
, _$ G8 w- C1 T% o0 ?5 k; B        buf.name:=bufname;
9 \- S" f- f8 h6 Z        buf.capacity:=5000;
) E* t: ]; m. T9 l' ?  p. m4 S        buf.proctime:=0;
: W# b$ [8 S. ]5 Q" @        .materialflow.connector.connect(buf,machine);
       
# \( _1 o8 w3 ]" b8 s' e6 [        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;
" \3 ]6 M) W/ [4 ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
5 C2 X; h$ q: _/ R1 u; q! ~+ pnext;
end;