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

zooey

is
! X1 c3 q3 C; {5 I% u        mark:boolean;
9 D/ W, K- S: |4 @        dx,dy,ct:real;
    i,j,rows,lines:integer;
* b$ h4 X! k$ E7 }  e# p( j" }    machinename,bufname:string;
5 v7 y' e6 m0 F# ^. f3 d    machine,buf:object;
do
- k$ F% g4 ]$ q4 H% C4 n        current.eraselayer(1);
       
6 z, n: x$ j/ c* E0 o        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ n# [; b0 U! O, `$ E                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
& ]8 X' \& D3 |) ?, ~7 U                        print"yes";
7 _( H1 f$ p2 \5 ?& _9 p                when 32 then
0 _7 V: |5 U& Q1 H, a) w/ w. ]                        print"no";
& y' E+ e: X7 f( ]* ]9 t+ ?                else
                        print"cancel";
                end;
: X' e) P  @+ G% {3 P                eventcontroller.stop;
        end;
; o8 _& G6 h; V: v1 P& u* Q7 p       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
" V  |! @3 F  D7 |8 b# n6 {        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; c- E' j5 H0 m8 _                machine.deleteobject;
4 @  ]7 N3 @% l/ V6 C        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ X) O" W3 b1 t+ Y# E; T                buf:=str_to_obj(bufname);
8 c% p" G; P# A4 q: f$ Y* z                buf.deleteobject;
. B. Q+ z1 Y7 }/ Q        end;
        next;
  A7 B! F0 ]- F5 a       
        dx:=0;
- S2 K& S/ j- t- v/ A' G        dy:=0;
        for i:=1 to number_of_machine loop
3 Q6 t# L# q6 r# @  S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: f3 v! X* t" T! ?                --mark:=false;
7 M; ]/ {5 _8 b6 o- ?$ A/ l, \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& {8 h* M# I& [9 x7 J                then
4 L, X& g, c' Q1 U0 P                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
4 |* x: ~/ G. @' m' L                        print activityspace[1,rows],",",activityspace[2,rows];
' @& [5 W  e& q8 Q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" [# {1 d/ f$ \! X# m- h) u                        activityspace[1,rows]:=ct;
                        mark:=true;
( n' ~& I# \- u) t5 F; Z                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; y: _' l( G5 o$ E0 p8 B                dy:=0;
- H! s. j% A) X. t* {                        --end;
                end;
                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;
9 c7 L$ T' Z& s5 G# V0 b            if activityspace[2,rows]>dy then
; {5 [: L" r8 b; ~                        dy:=activityspace[2,rows];
9 A% A; a) D6 z4 Z; a. S# Y                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
! P6 T7 z$ u* N1 S) N- v( c                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
4 C4 P' c) |, s! |: G9 u0 ~                        activityspace[1,rows]:=ct;
                        end;*/
+ M( t2 o/ O; T( k  Y        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);
        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);
4 {6 Z( w# k% f* m, m7 N7 i" `       
        rows:=0;
; b( O# q, U) {        lines:=0;
2 S$ }, y0 H2 ]' y$ {        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
* U1 B+ B+ c/ a$ {5 c1 H                        if j=i then
9 i6 i4 p5 w$ M9 D2 k2 }# E                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 g- J$ E, \: u: t* A) X5 Z                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
9 L/ c' H$ g3 i9 ]& s9 ]  w& S                                d_from_to_chart[j,i]:=abs(dx-dy);
+ o2 r5 s# C# C+ A: {                        end;
. b4 e7 x5 A& L4 b( p                next;
        next;
0 d. S3 Y. }! y% L       
- q% T: T& c7 i3 D6 V5 l        lines:=0;
        partstable.delete;
       
- n$ ?4 V  \2 @0 U$ v  @        for i:=1 to number_of_machine loop
4 p) Q% k& m: U0 |9 L                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
9 N% y3 F: |( @& B' q1 n" X                        lines:=lines+1;
% u1 D! k, t+ w0 e0 ]0 x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ n/ v: f, O* K                        partstable[3,lines]:=sprint("parts");
* o6 T  k. X8 B! F3 b) o+ j                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
, i0 i3 O" l5 a1 |/ c        next;
        machinename:=sprint("M",rows);
: P5 v3 N, J% d) V# ^, d        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;
  C# c* }+ o' e$ w        machine.label:=activityspace[0,rows];
1 {" |: a, K7 G9 @1 r( L; T        machine.exitctrl:=ref(leave);
7 }$ d/ R& m; U3 s" i- d' _       
5 S( r8 D6 u% @2 X. p        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;
        buf.capacity:=5000;
3 u! V" ^# T% \' L% X1 v        buf.proctime:=0;
8 _' ]' Z- M5 N: l7 P2 q        .materialflow.connector.connect(buf,machine);
       
( l1 `2 m; U+ l9 O        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" h9 l$ ]' r% @* Edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 h, ~$ Z9 z- B! C- q/ f6 z* hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;