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

zooey

is
8 c( T1 j8 A2 b6 V        mark:boolean;
0 D  J! ~; E+ b. t! I        dx,dy,ct:real;
' l' z# W7 ^8 A    i,j,rows,lines:integer;
    machinename,bufname:string;
8 [. Z  {  a9 s6 \4 r: [, W+ n    machine,buf:object;
do
' N8 M! |. D; l) d1 U        current.eraselayer(1);
0 W* x2 n) \( v6 I1 B* H' s       
" ]# ^  f4 k; s, A        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
5 f6 ?) t" t& b                        print"yes";
! @" n) k; P; J6 I: K) L                when 32 then
                        print"no";
                else
, {7 _! Y+ `# y2 x; c* @* Z+ ?$ L7 I                        print"cancel";
                end;
6 s% D+ m, Y$ H* T( C" M; x                eventcontroller.stop;
' |+ V* X- z( K  h5 ?! a  t1 \9 \        end;
' Y: [/ d3 C8 _+ B( j1 P2 c       
( Y2 c: Q& @2 h5 i7 X2 ?        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) g8 _0 ^, x3 F  M; ]) p        if existsobject(machinename) then
6 k2 z* i9 C9 ^' N" c                machine:=str_to_obj(machinename);
3 m- ~+ C% W  m# n                machine.deleteobject;
2 L* w3 f) y( m        end;
        bufname:=sprint("BF",i);
( l9 O8 ]1 |! X3 L9 \' s0 c        if existsobject(bufname) then
/ a2 r: B) X6 _7 G2 ^1 M6 N                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
3 a1 g) z% R" s9 c0 z! ?$ j8 p        next;
( t  e7 |$ z. s! |9 I       
( z% o/ `8 R6 @        dx:=0;
2 ^4 T' M" p7 L. y        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ l! ^$ o$ E1 m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 [: u4 A! `: \4 t' j2 G4 v                then
3 _6 p$ m9 x; j( O                        /*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: G& S' b- p( a, F# U                        ct:=activityspace[2,rows];
! d# V( A+ k* r                        activityspace[2,rows]:=activityspace[1,rows];
1 z$ ^/ R5 ]* w0 ~# d                        activityspace[1,rows]:=ct;
: Q' H( F! q& a" }1 Q/ C3 T7 Q# n2 i                        mark:=true;
0 R% J9 W8 q9 o( w/ o  V7 l, R* i                        else*/
0 W7 D5 v7 `3 b' s! Z  L% j& }                        y_max:=y_max+dy;
                        dx:=0;
5 N; y3 f8 E7 ?: ^. V4 ^                dy:=0;
! S; t$ p! o" t  y& p! n% k- z                        --end;
                end;
7 ^; g4 R4 o* C6 L$ T8 ~5 \                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 X% g- X) @, t4 x/ i- o1 N* }  Y                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
; T' |' q/ z% ^, R1 U& V: {/ x            if activityspace[2,rows]>dy then
* v& Y" i8 q6 U                        dy:=activityspace[2,rows];
) E5 j: Z: ^* f: G                end;
8 v$ X. H2 e. V8 [# v  v                dx:=dx+activityspace[1,rows];
4 t* N2 i  F3 A3 Q. n9 w- ~  o% p                /*if mark=true then
0 x+ ^# j/ W. \4 |8 h2 @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# m5 M2 j2 ~7 [5 {9 P$ h                        activityspace[1,rows]:=ct;
0 Y% B5 R9 v2 e* R+ U0 H2 N: c  l                        end;*/
0 e& U2 L( T7 r; _( q/ I. z- E        next;
        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);
3 f1 f# F5 r* g( Z- \5 y        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);
" G4 y" h' W8 M; l. T       
7 \2 V( K4 H$ r; v: p5 R& r5 [        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
3 W* e+ w" e) F, w2 q                                d_from_to_chart[j,i]:=0;
& z8 I3 v1 t2 F# `                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* h( G" T! y" e# l' G9 _                                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;
                next;
# {3 a: ?9 U) L4 `0 Z1 u9 l: u        next;
       
        lines:=0;
% u9 d/ {, K! w8 H( q# K; u6 V) u        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 }+ K& ^# k, ]2 q+ n7 G                machinesequence[2,i]:=rows;
! k3 l- ~" ?1 Z4 [$ Y                for j:=1 to number_of_machine loop
8 X0 g. S6 ~. @0 @" [                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& W/ e" E+ h/ @' C5 L9 U. o. ]                end;
7 a* F( x/ X7 n/ r! v        next;
        machinename:=sprint("M",rows);
( X" ?9 ~5 E* y: C; ^9 P. ~( v        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]);
. @) o1 Q1 _# H' o/ R) a( Q6 x        machine.name:=machinename;标识符未知
, C" l, q: s7 C/ e6 L7 I7 H        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" J  S$ h" R8 A/ _. t' ^        machine.exitctrl:=ref(leave);
       
4 l' U* X1 y5 ^$ G# A        bufname:=sprint("BF",rows);
. V6 F9 U" O* o5 m5 O5 s; B% G        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]);
$ A9 H( p# Q2 p1 _* [# I, z        buf.name:=bufname;
7 z6 X: n: u" m/ W) T        buf.capacity:=5000;
; P5 J7 M' I% \4 p        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
( l# q3 x! G5 n/ c" s2 s5 @& q        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);
next;
end;