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

zooey

is
8 O3 @% k7 G' D. [. M7 a9 H) U# H( b        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  E$ G& K! O. P# f$ y1 f2 Odo
1 G" X% D" R- H' ~        current.eraselayer(1);
. X5 j2 G3 W4 N% g5 P       
  R: P* [/ ]; W        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 F, _, A1 j/ w4 I                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
( e* b- n/ R0 K; a                        print"yes";
1 n3 h/ ~9 t( n' m! k                when 32 then
  x: l) a$ X7 b9 i# b- @) a$ k7 x                        print"no";
* w, {! ^2 v/ I6 A' r: A                else
                        print"cancel";
  {/ K* S; R# [- k                end;
- |' a2 }* u" S+ \                eventcontroller.stop;
        end;
       
% _/ \* W" x0 o8 i) d7 K7 J        for i:=1 to number_of_machine loop
3 m8 i. Q9 S! a2 d% f        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
) h$ Z* h0 n9 z& W# h! K8 t6 {        end;
7 `/ W, o0 _/ ]6 ^        bufname:=sprint("BF",i);
. N: \2 n1 D, @4 L! S6 K        if existsobject(bufname) then
1 w: y! Z2 v) U2 ?                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 r: u: r/ d7 b& D        end;
        next;
       
5 L4 |+ `4 k) x8 b' l9 [: `$ T        dx:=0;
        dy:=0;
5 \/ Z+ h. U0 y; T% M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
4 `& Q  z. q" t: e2 V3 a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 H; @7 f4 E9 A2 A: |1 Z! @                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) d  g( \5 p5 u* j6 W. k                        and activityspace[1,rows]<(1.05*y_max) then
% l0 i2 e. y# g& h% `/ I+ L  E                        print activityspace[1,rows],",",activityspace[2,rows];
, b6 b& f' a6 w$ F: A6 p                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
/ c8 p: e: k" i2 i" d                        else*/
) c) \9 h+ {' N2 H' P) F, \9 C                        y_max:=y_max+dy;
* e- Z( I* B4 O2 r, c1 i                        dx:=0;
                dy:=0;
                        --end;
                end;
9 r0 l. G# C6 [% v# R                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 @6 F5 Z6 j$ A9 v& {% U: X                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* ^# e) g8 p( z) V: R" J6 R            if activityspace[2,rows]>dy then
; N* x6 U& x8 [( @                        dy:=activityspace[2,rows];
                end;
$ e7 v5 P8 O* v$ u: t* k                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
' P! U6 u6 D+ t, a" Z/ k& p                        activityspace[2,rows]:=activityspace[1,rows];
3 X" [$ A6 P3 J                        activityspace[1,rows]:=ct;
                        end;*/
, f! E: U& S0 K8 C! `        next;
: u5 L! v0 e. ?" F1 G8 Q        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);
9 M2 _9 o2 N3 I3 E5 \2 o' x8 d" X$ M: v        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);
7 A2 u8 K+ |; r       
) E7 ?) f% R; V, f; `7 A        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* X- s% C% K' ?                        if j=i then
                                d_from_to_chart[j,i]:=0;
* o0 u+ e9 a1 l6 Y                        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];
! S5 L* w- ?7 n" h' g3 j/ K& _                                d_from_to_chart[j,i]:=abs(dx-dy);
# h! K& _: G) n/ }; I, C                        end;
1 m' B+ }7 z! m                next;
        next;
       
- \" e, J; ^6 }, R8 l# `: u        lines:=0;
/ s9 \* E  w+ b0 w" |        partstable.delete;
! T7 ]( }/ g: f& r7 `; W; V" ~8 E       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, Z) M" k7 w1 `- T                for j:=1 to number_of_machine loop
' J, F" L/ t' ?' [  C                        if w_from_to_chart[j,rows]>0 then
& h2 y) S1 _, ~' e5 K+ h" \- I                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 v- t" r2 E& }! g9 ?& k                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
; t/ K" J, r: ?+ ~4 p' x# l                        partstable[6,lines]:=j;
1 X$ a3 R9 o7 }2 A8 d                end;
        next;
/ m3 e* i! H$ v. F0 b        machinename:=sprint("M",rows);
: j8 h& r# D( s0 ?8 t( 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]);
0 _" _. L, Z% B. u7 _- n3 A! W        machine.name:=machinename;标识符未知
) d% [5 }; o4 Q7 y8 ?1 M: d+ T        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, N* T0 }& g' m3 _$ H3 W& n3 w        machine.exitctrl:=ref(leave);
7 h0 j; N, H) \0 S, C       
7 [) J8 s; D8 d% G  D        bufname:=sprint("BF",rows);
/ S& O# s( @, a+ e9 H        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]);
7 a& o& L8 ]$ C' R# b5 D        buf.name:=bufname;
        buf.capacity:=5000;
+ `2 Z" o, Y3 ?/ f  M0 x( ~        buf.proctime:=0;
* a: S1 l0 b5 P( @8 s$ B( y" U* V( M        .materialflow.connector.connect(buf,machine);
       
        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 z1 t0 c7 P4 F- c$ u0 ^& Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- F3 h2 J. h, n4 Lnext;
end;
0 U, d) ~2 `6 H; I+ Q* Y+ G; ^