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

zooey

is
        mark:boolean;
: j- J$ J7 f9 n3 C! v2 d9 F        dx,dy,ct:real;
0 w% m) H2 e. L9 q    i,j,rows,lines:integer;
, S/ a3 d  E# U- E( {" ?0 h# b2 y    machinename,bufname:string;
/ E+ a& y1 v2 T$ q- S5 g0 z! S    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
6 Y; {/ y- i" K                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; V! Z/ a- x2 {7 X" }; [                        print"yes";
                when 32 then
& n! p% v/ S5 e+ P                        print"no";
( \7 j1 K- g$ E! y7 [! u" M7 r3 `                else
                        print"cancel";
" y' \1 [' A" T& c5 n+ S. L$ Z                end;
                eventcontroller.stop;
        end;
       
# {& i# Y( O' x) K3 E" M        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
+ _5 X, D' y" u5 `        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
4 l8 O0 B/ R( P* A8 ~                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
' d* Q: T3 Q6 i$ I2 c4 ]: |( k4 r* [        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 j/ o  I/ [( p! O( R- a& I        next;
( A  M3 x5 p9 `% @* l: H       
5 I9 b2 h" O, a( n5 V. b  \        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
; Z6 O, L. x0 w; B8 k. c- ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. O" K: x) n+ M+ t" R4 e. i                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ B0 ]8 f2 `: u2 |! P- W                then
5 M+ m* O: t0 G8 L1 y9 D& q                        /*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];
                        ct:=activityspace[2,rows];
; g( N* t' q3 t) j                        activityspace[2,rows]:=activityspace[1,rows];
1 d- v2 ^% C0 X) ]( y) I                        activityspace[1,rows]:=ct;
! M5 ?) b0 v7 o& T* D                        mark:=true;
. h+ D+ o2 Y/ A0 e/ f' O4 z* ~7 |                        else*/
8 z; v+ l9 y8 X" W+ \                        y_max:=y_max+dy;
                        dx:=0;
/ H, B2 D+ c4 n9 C8 W* @4 ?' O                dy:=0;
$ S; S. R' c2 K                        --end;
                end;
9 I, u$ J2 O8 [7 u6 v                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
& p( l: S$ @% {- w$ ]            if activityspace[2,rows]>dy then
% I! s1 h0 t9 _) v- Y- k                        dy:=activityspace[2,rows];
5 h, N$ c4 ~; {                end;
+ o2 J$ D8 A1 ~* w  s; z. O" K. E                dx:=dx+activityspace[1,rows];
% |" C; m& }5 p4 G6 T5 w                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ L; ?, _+ D# H! h) F2 n1 f                        activityspace[1,rows]:=ct;
4 u& n4 C4 J% N) ?0 e                        end;*/
! B# s* t* Y& V5 Y/ x9 c6 \        next;
2 m1 E# x, N* U) h        y_max:=y_max+dy;
3 p6 F8 R# m( J3 u/ ]4 I        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);
9 b' @: Q! s" G! Z+ Z+ W; r        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);
( [. v  P& B/ ]% \- F% p* F       
        rows:=0;
9 ]1 T% A$ y% ~; W/ S3 l5 F  R0 o% U        lines:=0;
' N7 Y- P* b5 f        for i:=1 to number_of_machine loop
2 O+ W6 ?* y9 S1 p8 Y1 [                for j:=1 to number_of_machine loop
                        if j=i then
: D) J7 [/ J' H) o6 u" D                                d_from_to_chart[j,i]:=0;
                        else
; a* w$ r2 s3 o1 ^6 y3 ~" _7 t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 h# ?, V: J0 ?% y, b5 o/ }" F                                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;
" S* p8 g. K3 V! ]4 S9 r                next;
# M* ]: t8 }6 x- C* H        next;
: U* `, `3 c2 R  p8 s' n  d) Q: f/ L+ u% E       
, z3 j: P5 [1 `" @4 C        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
; v6 [/ Q6 g/ R; j$ Q7 }- c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! o: l! D4 V0 X2 `' G/ [8 c                machinesequence[2,i]:=rows;
) o4 C8 ~. q3 w% \7 I1 _                for j:=1 to number_of_machine loop
2 w& C/ ~1 A1 _# r                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
1 A' q" q- b8 V" x9 A5 I8 \                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! g) d! a/ t7 \8 d7 a: b5 B/ D& S                        partstable[3,lines]:=sprint("parts");
! Z% ~# h! ~* @4 _0 f3 L. y                        partstable[5,lines]:=rows;
/ ^2 e: d8 X  Z) F$ N( v$ C3 x                        partstable[6,lines]:=j;
                end;
        next;
  |. h" I+ l( A; [: U; K3 S" J: Z! ~        machinename:=sprint("M",rows);
. x$ E5 {0 }5 ~# j        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]);
$ G# b( F3 y$ @5 N        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
4 m# s- R7 C/ g  P* M% o        machine.exitctrl:=ref(leave);
       
        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]);
        buf.name:=bufname;
% S2 r/ E* L% y7 B, H& @        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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;
6 f$ b. {# ?' ^$ n0 `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
" l! b+ P0 V& C( @4 H2 c# D4 ]7 xend;
  ^6 k# p/ F7 N' i; h3 s