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

zooey

is
) z7 X& h1 L8 ~; f) p$ ^; c        mark:boolean;
4 m9 J# x  h$ M        dx,dy,ct:real;
    i,j,rows,lines:integer;
, j5 U" A0 p7 h4 P( A    machinename,bufname:string;
5 ^3 k; F" R7 c# f# P8 e9 O    machine,buf:object;
% b4 L- j- r! R/ X# sdo
; e0 I* i3 _& j' [" o! f        current.eraselayer(1);
       
/ d4 R; ~  v3 Y5 v6 f$ ?  O4 V& v' w        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' W$ g$ G  X- w& D* p+ U7 X- P                when 16 then
                        print"yes";
; _+ @, a) B3 V                when 32 then
                        print"no";
) j4 s; b# c6 H7 R                else
% J/ w$ W  Q, y6 ]. b                        print"cancel";
                end;
                eventcontroller.stop;
4 k7 R- t4 a5 Q% ?        end;
       
9 I) ^9 j  [. e: w3 E, H        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' V% p* Z  }3 d                machine.deleteobject;
, N0 j) Y% p1 B8 E( r1 s, @$ q        end;
        bufname:=sprint("BF",i);
* Q5 B  H( p7 M0 Z; p9 A        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: a& Y2 M6 x8 f% i, t                buf.deleteobject;
6 i, z& \0 a% m) a, N        end;
        next;
       
        dx:=0;
        dy:=0;
$ ]7 |7 |( O" F5 y0 m        for i:=1 to number_of_machine loop
; K2 M0 @* b5 b! B3 \- n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& o2 q7 B4 `6 y* N5 [                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( r5 ^  z# Q1 H, ~! S                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
$ q0 r5 r* ^- S+ \+ \  x5 R                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
1 z- ]! P8 ], h! t$ B9 ?                        ct:=activityspace[2,rows];
% V) `, y8 z& h( y% r$ ^" G9 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
4 G$ h. h3 w4 A* B                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
/ j' x) H" \, d& @  V                dy:=0;
                        --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;
            if activityspace[2,rows]>dy then
9 R6 O7 a. v( J7 t+ f/ T6 b                        dy:=activityspace[2,rows];
: |0 U' ~/ ]& l4 G. _* U8 S! M                end;
                dx:=dx+activityspace[1,rows];
& Q6 F) ?* E2 c: q                /*if mark=true then
7 C* e* \7 J: |* p# D9 r4 C3 U                ct:=activityspace[2,rows];
& `. x2 o, \/ ]" Z                        activityspace[2,rows]:=activityspace[1,rows];
+ c& s; }1 k1 E/ c: E: z4 h# O4 r                        activityspace[1,rows]:=ct;
+ v+ c" y" S0 T' g9 {' l# Q                        end;*/
* H' V" a8 X  w$ P        next;
' }5 [; ?/ z. j# [. E        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);
/ S" G$ S! l- W/ r1 ~6 Z# [+ c        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);
       
        rows:=0;
  v5 o1 B4 n; e2 a- l  B        lines:=0;
1 a0 U( S9 a9 R& {$ h& d0 r8 _        for i:=1 to number_of_machine loop
7 _6 M. c/ w8 T9 m6 N# C                for j:=1 to number_of_machine loop
. v9 ~. {1 R3 Q: }                        if j=i then
                                d_from_to_chart[j,i]:=0;
  S) {6 q4 E; K, N; x5 k7 M2 p                        else
, [$ G8 N5 r) j* @0 m. Z  B                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  ?* w! k( w3 ~/ r! l                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
) r6 I5 c! o! ~, C7 Z, I                                d_from_to_chart[j,i]:=abs(dx-dy);
' s: D) k% d+ ?  S& g                        end;
& _- ~5 q6 Z$ O# ]' G                next;
        next;
  B6 ^2 e! E2 L, U- J3 A* u       
4 ^+ f/ X1 h. R' |& ]        lines:=0;
        partstable.delete;
/ y) c! k- }$ \7 ~1 E' f& `/ R       
$ B! ]) G- _) a, M" K        for i:=1 to number_of_machine loop
6 ?: X/ H- }& x! n8 Q& \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- u! K3 w' x; f/ o9 {9 e7 ^) w; n                for j:=1 to number_of_machine loop
4 P- T& s1 W8 P6 _, h. t                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 w/ _9 T4 t- R1 b5 ?8 ]0 K                        partstable[2,lines]:=w_from_to_chart[j,rows];
- k4 ]3 o. n# n) B                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
6 U" G! E6 i" y4 d$ l. M9 j                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
        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;
        machine.label:=activityspace[0,rows];
* d: e. A# H2 r  l/ Q* B  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]);
7 r) C" w& H5 h0 O4 s/ X0 F        buf.name:=bufname;
5 a0 q# \1 B8 q5 X! w/ [  v1 T        buf.capacity:=5000;
: g& a- W: x8 [5 }/ f        buf.proctime:=0;
. Q" x$ k# ]6 c/ A6 j5 V- c' \        .materialflow.connector.connect(buf,machine);
+ N( R5 d4 {2 _1 z* D& X: s       
: m+ h( E0 [' p' a0 g        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. T# l' W2 t: h1 E' F  E# N4 kdy:=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);
6 O  w2 W7 P. ]4 Fnext;
# |; J5 E4 N- ?! J2 i  F9 iend;