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

zooey

is
; u9 @: R. ^* v3 ^! @9 h! w        mark:boolean;
# M  c4 J) o' i' y, r        dx,dy,ct:real;
2 Z8 B& R2 d  O! p4 Y    i,j,rows,lines:integer;
    machinename,bufname:string;
9 J+ n9 @7 O) q( s* z' T% G* N3 j    machine,buf:object;
+ O8 _5 [4 p, A3 cdo
+ m2 S$ S5 p: m5 L3 X5 G: D; K        current.eraselayer(1);
3 Z( F. q& L& |, n# z       
/ E  F! x& E0 p3 _, Q        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
% x% W7 h0 [) U5 x3 \                inspect messagebox("设施数目不对！请核查...,",50,13)
: p9 L9 H; w8 `' Z2 u                when 16 then
                        print"yes";
6 c5 M0 h2 }6 Q, ?8 k  C                when 32 then
                        print"no";
7 r  P" K0 d7 I! e- y0 F. _; W6 p9 u                else
) P, k# ?; p7 D! k$ `                        print"cancel";
                end;
, M' O) }  t) x                eventcontroller.stop;
/ ^$ B8 P4 n, D; \- n        end;
4 y! |& W# y" k9 u       
3 M6 F3 }8 z! Y, ~5 `; l        for i:=1 to number_of_machine loop
2 D6 Z8 g% ]! `        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, j( O" P* I, U# L: w+ h                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
& z& o) Y6 ^; Q2 O* j  s4 e        if existsobject(bufname) then
6 q+ b# l& r1 ~% J  {  L                buf:=str_to_obj(bufname);
                buf.deleteobject;
4 U0 w8 ~. p" ~: x/ y        end;
$ p8 M+ ^9 X, _' ~        next;
8 s" |4 [: P8 c3 r8 P+ N       
        dx:=0;
4 B7 o& S+ {3 N6 @        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 Y% R6 ?8 Y( Z& q                --mark:=false;
' W6 |, F1 e1 i1 s/ q! d4 M2 n                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* E. d( J' W/ j  h, C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
! }& j( N- g; P$ z9 E+ d                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
, k2 C  P* a+ \' @9 B! V7 L                        activityspace[1,rows]:=ct;
: g: M3 t9 _2 ]  B, M                        mark:=true;
5 \+ Z( G& f, i                        else*/
* v' j/ M" X% J' U' H5 w                        y_max:=y_max+dy;
                        dx:=0;
" n0 g: w( m9 b3 r' G                dy:=0;
                        --end;
% ?# b0 P4 `5 L+ Y# E7 Y: O2 ^% }                end;
6 @# A. X& P0 L: n$ w7 y( K- }                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 Q# K* v$ b& I  m. {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
# _5 l2 t$ ~1 n2 G            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
7 X3 j2 c- G3 y' O# m, @                end;
                dx:=dx+activityspace[1,rows];
% O6 w# o2 f" n6 r                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
4 I( r6 T) }4 ?: ~                        end;*/
        next;
6 n( l" X' H: ^8 l) ]; G        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);
0 u- t  o% _/ ^        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);
       
+ z. K6 {# _3 U) t0 s        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) O+ @/ `2 h3 ^$ U" f1 I4 E8 l                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
1 W4 `! n7 A* q$ h                                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);
/ _2 S; v5 n+ L$ U                        end;
& a/ y1 b; S, H6 k/ m' z* B  P                next;
2 x3 D. G8 p# S3 x9 B, p; W        next;
4 C* g' K4 F; d# s  |8 K       
        lines:=0;
4 \3 ]# ~3 x! Z0 ]/ a3 I) j        partstable.delete;
       
        for i:=1 to number_of_machine loop
+ s  |: c- {5 `+ {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) N, s6 R8 }0 G4 Z  ^                machinesequence[2,i]:=rows;
' S+ t) a( H: ?  }% \# `& w                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, o; J* r; c  Q" b/ \& i' |( }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
/ z; C/ n7 x3 N% a                        partstable[3,lines]:=sprint("parts");
* y2 I, s+ q2 ]4 g' R/ B                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
6 V" D6 p) s1 W- ~        machinename:=sprint("M",rows);
- |$ @. B* S# s% Y2 n" G        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;
7 b$ l4 A0 I( [1 |; k6 z        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
3 f4 x2 v4 O  p) I, t3 d+ G" B, M        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]);
& P3 J3 G$ R" l( e" R        buf.name:=bufname;
        buf.capacity:=5000;
3 Q% T; Q! u" \% X+ g        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
3 H, s) L) Q/ {& g  o       
$ x1 m) i1 A0 M* q% E        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" H0 A! S( m* B) |% Z& d) D# t0 Qdy:=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);
next;
end;