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

zooey

is
        mark:boolean;
/ y! B- \5 c- K! D        dx,dy,ct:real;
    i,j,rows,lines:integer;
6 n8 ~  ?8 {" _% h% s7 X2 r7 Z    machinename,bufname:string;
" }/ I; y6 L% U5 S4 v1 e& d  c    machine,buf:object;
3 F, n; C; i4 n- Q3 a& mdo
! ^! X. Q, k9 i& w2 ~7 L        current.eraselayer(1);
       
' m0 p0 M* G3 k) l; ?7 Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 e" b& T' h+ `- |! o                inspect messagebox("设施数目不对！请核查...,",50,13)
  T* i( y/ Z, e0 o. C8 F                when 16 then
                        print"yes";
                when 32 then
1 ?! p+ |8 @) W                        print"no";
) n# {# a$ f2 S6 O- K                else
                        print"cancel";
: s2 S7 }7 T0 L) w! R; q  d" _, t9 f                end;
                eventcontroller.stop;
1 |, J; Q, }/ c) {) o        end;
       
& A8 U% \2 q, R6 S3 a- @' v        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 L1 a  D! B& m% l! V        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
2 Y7 _1 N. G+ j+ h' F1 y, y% {4 S0 W        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( v4 u3 Z9 w* x                buf.deleteobject;
; U+ k# g. w5 S- Z4 B! B* ^4 a# }        end;
        next;
0 N0 M, M$ D4 w9 b2 @       
        dx:=0;
" |' X* p& y) e7 q3 k2 m  _        dy:=0;
        for i:=1 to number_of_machine loop
; E0 z0 F2 l2 Y" |% A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
; [3 V  f4 U4 u9 q. ]4 E% @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
. I% Z, m# ^8 U; [# w                        ct:=activityspace[2,rows];
2 V4 g( f- _4 x4 T8 p, d$ e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
/ i: M/ e; |$ C& x6 v                        mark:=true;
                        else*/
2 v* S! J/ n( G8 y: u' b                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
0 W, T3 \5 [" t                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
4 ]' ]. e- H( f' l, v. U2 G                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- C; a+ k) {  o4 g+ Y/ l            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
: w: Y, x+ W" O; V2 S' @, x                /*if mark=true then
7 q1 X0 _6 ~+ d2 s4 H. V                ct:=activityspace[2,rows];
, p9 I. a5 b/ n" m% U$ M                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- D3 B5 k# _8 S9 b" ~8 c                        end;*/
        next;
        y_max:=y_max+dy;
& [" b4 C8 m& i" Z' s0 F" \        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);
9 p  q' ?4 E0 y' M       
  d# k' B7 |8 v# e6 o7 m" J        rows:=0;
3 |. R( `+ ]6 b, V( O1 p        lines:=0;
0 O4 |4 D! Z, F" C' E        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) c6 J- k6 n  X& U% P8 z" V8 D                        if j=i then
! J0 \/ x: U+ `& h                                d_from_to_chart[j,i]:=0;
" I6 Q4 M5 C% z) p$ n                        else
' T& E2 A0 T! w0 y; E                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* g5 F( R7 L7 O1 o- ^                                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);
  @) o/ @# D" K9 ?+ m1 _$ d9 j                        end;
                next;
& J; T  G' D, R        next;
       
        lines:=0;
2 X' j+ \, ?8 U6 w7 j# _& }$ g        partstable.delete;
       
        for i:=1 to number_of_machine loop
7 D1 k% M. S* s$ _9 \$ M0 o  Z4 ]" e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ F5 C2 K" u! H9 V" X, D                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) Z( Z% s5 o2 M$ o2 N% i' f1 w                        lines:=lines+1;
5 S4 C$ n- a+ S) @7 Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; s/ r. K* O0 U/ u1 T; b; A3 y! U" ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  Z) P$ T1 M' k  o2 q( _                end;
        next;
5 ~- O5 C0 E0 V  k! y* I        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]);
: n- @" S8 r5 @5 F        machine.name:=machinename;标识符未知
- C0 A, z  i3 R" P% I; u        machine.proctime:=5;
% G$ q% z4 F1 Z  _8 `) X        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 K& V7 C/ Z4 P+ n* M1 I1 C- q+ g       
% P% a5 u2 F7 J2 D6 Q, \        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]);
( a8 f' V  b1 ^. t6 K6 a9 H        buf.name:=bufname;
8 h) \% Q9 ~$ o( p        buf.capacity:=5000;
0 v* b4 ?2 @$ c5 U. A+ B! N* e        buf.proctime:=0;
4 r) v& e% y, H; r        .materialflow.connector.connect(buf,machine);
+ d% S2 `+ I' F+ m' q- ~  i       
9 d$ m. @  M  q9 p1 g" x        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;
4 q# J! y! n+ e1 S, d. wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 A3 g- L2 [( W# rnext;
( n. Y1 ~5 W) L* gend;