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

zooey

is
6 m" P# C/ Y9 r1 I8 u* \5 N; s        mark:boolean;
: d* C$ G# j& j2 T1 T: t* ^. l* y( Q        dx,dy,ct:real;
/ L) p1 e% U7 A2 d    i,j,rows,lines:integer;
2 Z8 b  u& p) b6 V* I* p    machinename,bufname:string;
    machine,buf:object;
7 z9 ^5 p5 g, U. V" z$ `do
        current.eraselayer(1);
       
6 Y4 v. ]" R5 e4 Z) e/ S; r        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
                        print"yes";
7 T# a5 D- {, m! p+ `: s                when 32 then
                        print"no";
                else
                        print"cancel";
! _2 x1 y. o& I* I) f3 x                end;
                eventcontroller.stop;
        end;
& q1 S" T1 D# R# @# q       
' n  Q+ c* k3 o* E        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ m3 ^6 W, K. [& \6 f4 P! C        bufname:=sprint("BF",i);
  T0 X6 _7 ?; w        if existsobject(bufname) then
: V, w# @5 h; Q1 Z4 Y                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
* _) }/ t$ v, C9 d; L  a       
% M( Q9 y3 M) @% M+ L8 V% ?. A        dx:=0;
6 v% K  l3 J5 `. q        dy:=0;
        for i:=1 to number_of_machine loop
& z5 A3 p, L: R5 S6 R; W3 Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 O: o0 W( |6 c8 W                --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]
. ^/ w. k& g" e. i                        and activityspace[1,rows]<(1.05*y_max) then
& N4 \: W: c* O# z/ I) D, Z                        print activityspace[1,rows],",",activityspace[2,rows];
) y' z- I: z$ S$ g* N                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: r0 G. ^% \$ p! D                        mark:=true;
$ y% q; o+ M& K                        else*/
$ H" C$ c6 Z0 U) R/ \6 ?% E4 d6 z                        y_max:=y_max+dy;
; \( @: ~# U6 t                        dx:=0;
                dy:=0;
# t2 V4 o- y0 G4 |                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 z$ ?; l9 b3 q6 w                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 \% \& l9 b8 x3 K+ j/ ~& @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
# [/ g' p# [  \. Q! K                ct:=activityspace[2,rows];
) o( R% O2 n  D: N9 i+ j8 ~# ^5 |) r+ C                        activityspace[2,rows]:=activityspace[1,rows];
7 ~2 R; h" G1 E. p) y2 `/ Z                        activityspace[1,rows]:=ct;
. `  W9 B- \; |8 S& P                        end;*/
        next;
( V' @# }$ \& l7 m        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);
) t% C* Z2 E8 c3 D5 b        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
) D: W3 K! T2 T                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
( R* d1 u$ C% ^# P- ]                        else
0 h; [2 M3 e. e: q% O                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
- }. J) N, G+ l$ n2 }5 d4 [- i2 ^                next;
9 Y- I6 c. Q) ~3 C: S- K. v! n        next;
9 G! n1 @# R4 L       
        lines:=0;
: J# w8 n* w, K, B7 \/ c: j        partstable.delete;
$ i9 W1 m+ b, S# P) R       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
$ c) i1 h2 a3 m4 @! i) i) K: c                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 D% M9 C: I5 U: b- S6 d                        partstable[3,lines]:=sprint("parts");
1 M1 _* J9 G! S0 |                        partstable[5,lines]:=rows;
' c0 M# G0 k) ~                        partstable[6,lines]:=j;
                end;
        next;
& j& o; \" W! S, I7 F" o. r% G        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]);
2 W- i7 S) ^# v2 j3 ~: A        machine.name:=machinename;标识符未知
2 E7 ^& ^) x6 b, B2 p6 O        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
) ]9 ?5 b/ ^& D$ Q; W# k' H% C        machine.exitctrl:=ref(leave);
" v4 {1 ^2 R2 s: i2 R. q: M       
        bufname:=sprint("BF",rows);
8 B# X2 l: U" t4 a! R' f; q        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]);
* k& R5 `0 i2 }+ ~9 S" u+ x+ ^        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
; h2 Q$ @3 L) Z8 ]% G        .materialflow.connector.connect(buf,machine);
; j; L% i$ u! S5 I- Y       
        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 c) j- @. G: Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
" O/ u7 z) R6 \2 G