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

zooey

is
. X: t# H* b- I& y9 S, Q# _        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
- _2 L$ k" T& k: c! K        current.eraselayer(1);
! H/ i& c; F; b$ R* E* i1 z       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% c3 _( l5 d; M% Q1 L                when 16 then
5 S6 d" x" g4 F& o# q                        print"yes";
; S1 J1 o0 \& a* ~/ d) V! P                when 32 then
2 g$ o; G% W8 r* Q* P                        print"no";
+ k' t' q: E' _. B5 @9 `* W                else
                        print"cancel";
( l2 ?1 W$ m+ H0 f1 n/ W                end;
2 ^/ {1 f+ O) n8 F8 s4 g                eventcontroller.stop;
% }8 v: Y+ m/ d$ r4 T8 m- ?        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
; u1 q: u  j6 s$ ?0 k' V# L) d        end;
) e/ _8 t9 Q3 g0 k# @" C5 H- k        bufname:=sprint("BF",i);
, [$ K( `( m2 E  u        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) M  l' i' p  }, A/ a                buf.deleteobject;
        end;
. s! U9 u; F, ^        next;
       
+ |1 R6 Y+ p# K8 w4 w( w        dx:=0;
        dy:=0;
- ]% L7 E4 y0 Q* C( m/ t, e% m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% s4 f$ ?" Y! Y: U6 h                --mark:=false;
9 s6 l1 e. j2 K+ s% T4 ^                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ `; L3 p' P' o5 G! V                        /*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];
) ^9 Y* y% @% r                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- K/ P, L" ^) Q8 R# d                        activityspace[1,rows]:=ct;
                        mark:=true;
* T8 D" P: r4 J  O: P* y! o' u* K3 H                        else*/
+ W  t3 D/ A0 q6 C4 J                        y_max:=y_max+dy;
                        dx:=0;
6 v& k' D( {8 k9 `6 a                dy:=0;
                        --end;
5 u, r, V' c! f+ W                end;
! @' I9 x' `9 a$ ?4 c5 d                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- l! \7 U# X. e, U5 B: Z3 {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
- J, S* ^% J( N  r/ m9 w2 ~8 I: B                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
8 [& J- n$ U: b1 X, a, v4 @                /*if mark=true then
/ h8 D! n2 A9 }, _! v0 z% x; X                ct:=activityspace[2,rows];
0 x; G  i; e7 p9 u                        activityspace[2,rows]:=activityspace[1,rows];
" z) J: [( }- y1 F7 }# n& {                        activityspace[1,rows]:=ct;
                        end;*/
# d' g1 k: M2 ^9 T( {( l        next;
$ R. p' `! w; D* `3 j5 n        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);
; C  |* M7 J$ [5 i, t) m" Y* F        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);
2 @2 Y% B, c+ }' P# o& [2 u2 N8 {       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
, F( t, }8 [" A3 M2 `3 Y5 K                                d_from_to_chart[j,i]:=0;
8 Q, Q6 b$ Y8 C% j2 \                        else
% k# [. j; I# D8 }                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ q* b! R  U: w. 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);
. s) ^6 M: k' n                        end;
' v+ z9 I8 D' s# [: _, L8 w                next;
        next;
: \: z, E4 ]0 o. ], o9 a       
        lines:=0;
+ e. |7 H( v( H* g( O        partstable.delete;
, F: s& }) P& x; S" b- _       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" B/ m: u7 ^- V6 ?9 `! a2 q                machinesequence[2,i]:=rows;
; G* p# q! |. h/ Y$ N, l                for j:=1 to number_of_machine loop
+ g3 H  y+ i' W& [4 z                        if w_from_to_chart[j,rows]>0 then
; X0 D! M+ u* d5 q                        lines:=lines+1;
2 e: r3 t2 o* ~! p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& H$ P; h' P7 q. W- S" \& ^) e                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- {/ k% H7 E7 Y8 _% b  w                end;
        next;
( p( |* L1 `, x        machinename:=sprint("M",rows);
- W+ |% z9 D: D5 b# r1 O        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 Y1 c) B1 L6 x        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  [! V) j% Q7 Y- H2 J3 O3 _        machine.exitctrl:=ref(leave);
       
# D0 Y+ L' f$ M4 b- K        bufname:=sprint("BF",rows);
7 d  J  Z$ u) I9 C1 t# g! r2 F& N' k$ L        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]);
) W7 V$ ^6 I3 U' e; f        buf.name:=bufname;
9 `' {, U) z; g! A        buf.capacity:=5000;
        buf.proctime:=0;
  e8 L# L* C+ Y  ?  j% K, p        .materialflow.connector.connect(buf,machine);
       
/ ?5 K; N! }- I4 f0 \" u2 k        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 t- n+ B3 n7 r+ l! d" J9 cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 F7 G3 t) @5 U( ncurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
1 J9 Z. k& h/ h( `. ^1 i5 }next;
" N" U$ t' ^2 J+ eend;
: }" f0 J9 y% `' W! k( F0 \