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

zooey

is
8 z5 `* y) r' z- ~# t0 \% N        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
" M4 u7 G7 i5 Z) O$ c5 D8 z+ D/ G    machinename,bufname:string;
6 [$ J6 D1 ?7 f    machine,buf:object;
do
        current.eraselayer(1);
# Q0 M  Y1 w& {1 X- g       
& J! j. e* I3 n7 o4 c- E3 c4 t        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 L7 c/ V( h3 H% M2 [9 {                inspect messagebox("设施数目不对！请核查...,",50,13)
! O, Q" i$ H; {4 _6 }2 T                when 16 then
                        print"yes";
                when 32 then
) g  ^$ S, ?7 {5 ?/ m, a+ ]3 I                        print"no";
+ r. [6 q1 d# v- R# L                else
                        print"cancel";
  N5 n# u( d( h                end;
  u, N, I, n3 g7 P: x9 k2 v                eventcontroller.stop;
2 Q: S6 _* T2 x: i        end;
       
/ n5 z  w" Q* j' H  d; W+ z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* w$ k3 n  H& f0 {- \  V        if existsobject(machinename) then
) I8 \9 }/ L- _                machine:=str_to_obj(machinename);
7 Z9 t, T$ c: {* c+ }4 q( A$ y; a                machine.deleteobject;
) Z- ~* ?/ c$ ~! P        end;
        bufname:=sprint("BF",i);
! ]. g" g8 r1 \        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ m8 L; H) ]! Z& O1 h: j1 p1 b. n: ^                buf.deleteobject;
        end;
        next;
       
( W' {* _6 C$ S        dx:=0;
, A& j5 E& E2 |5 a% z        dy:=0;
3 {# {  T6 |  C" [2 a        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ o4 o8 I& u5 |) `4 l- m3 G                --mark:=false;
& s2 g; c! m3 t" v: a: E0 d9 i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
& t7 p1 j: M" ]$ }" m7 R                        print activityspace[1,rows],",",activityspace[2,rows];
& n  _3 [, x/ P1 G# q' k                        ct:=activityspace[2,rows];
$ S7 M" G; a, t0 y* s- H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
9 D2 V  T  |5 l& H) T; E                        else*/
                        y_max:=y_max+dy;
8 U3 j9 V7 }! B6 Z0 p7 M                        dx:=0;
) d& a6 z  o# Y; S" m  L                dy:=0;
                        --end;
                end;
" j, w3 m; S- D5 X                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 ^: A( P  C3 E1 b/ A                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 e2 K* y. T5 Y( P5 w2 G) T            if activityspace[2,rows]>dy then
$ H, D) C6 x2 n' i4 q% c1 k- A                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
* \1 ^1 h. c3 V7 q5 N                /*if mark=true then
                ct:=activityspace[2,rows];
8 J3 f8 A! {1 j% L' \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
3 c0 q6 ?3 @" j% X                        end;*/
        next;
! G! P4 T3 s5 P! @# U* |3 m        y_max:=y_max+dy;
* W- F2 X( n: n4 t) c        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);
7 m$ m- `4 m3 k0 i6 p       
% d/ D" S8 K6 t+ ]- v& I0 V        rows:=0;
2 r. I; m. E. n3 w. @) g        lines:=0;
" ]7 F6 I& M/ _! w  e2 T0 z$ e        for i:=1 to number_of_machine loop
4 c6 ]. B3 z+ M: V                for j:=1 to number_of_machine loop
                        if j=i then
7 W8 g7 Z! R" F+ @2 R                                d_from_to_chart[j,i]:=0;
+ F+ M5 {) \9 i                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( U/ |- O" Q' e. B/ f, z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
$ l3 m& E% Z; N  Z& J                        end;
1 J% ^' I  s7 y                next;
" }3 F& R9 v. i% |) C- _+ m& N        next;
       
1 \9 M7 H# J# o0 s- ~& P- e        lines:=0;
" `1 {7 G5 L1 P8 C( S9 t: s6 H        partstable.delete;
9 X( n" B" n2 e' @* X9 e# ?* X       
& c2 r) y! I# p: u% E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 J6 P# e0 r  [0 I8 ^                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
5 Z$ m2 E' _3 ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ [6 F, n% i  w5 }$ L  Q0 Z                        partstable[2,lines]:=w_from_to_chart[j,rows];
* S' g8 b3 G& h# r2 s                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
4 u. ?; ?+ Y; |7 h3 j$ W8 I3 F                end;
        next;
        machinename:=sprint("M",rows);
        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;
  e9 W! ^; _! m" ]6 u: {% k        machine.label:=activityspace[0,rows];
* x5 s. k6 a% C# F        machine.exitctrl:=ref(leave);
* m% Y0 z- H$ _  ^" P- u       
        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]);
        buf.name:=bufname;
* M2 {5 ]8 X. I1 n4 X; D        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" G, g7 L. o9 i+ j" k       
7 w% Z. @/ `" t& L3 A& G% S        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);
- Y5 {: _8 e" B; Wnext;
$ b/ P" h' J$ ^0 q1 P# Wend;