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

zooey

is
        mark:boolean;
* V8 Q& z1 ]$ d8 n        dx,dy,ct:real;
$ d- Y+ e5 b4 e" r! l" T; Z& q# n  ^    i,j,rows,lines:integer;
! I5 A0 K0 K- j0 y- p  N  u, X4 z: Q7 S    machinename,bufname:string;
" b3 ^, u4 M8 ?2 ^    machine,buf:object;
do
        current.eraselayer(1);
! Y; F0 e; [' y5 s4 o  @) g* Z       
9 k, M& H) t1 n' {, n) v# [" e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* U- s% I- Q8 [* V                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
+ e- F; [, M9 w                when 32 then
: h  n* Q- e7 W$ d                        print"no";
7 ~" k) T- }0 r  e                else
                        print"cancel";
                end;
" N+ j( f# G8 l& }                eventcontroller.stop;
* o( C# h7 ?) M2 O' c  ]$ A        end;
0 L& n! B- ]* N6 G       
        for i:=1 to number_of_machine loop
. Q: w% v2 j" U1 v' b- \0 |' t        machinename:=sprint("M",i);
        if existsobject(machinename) then
8 x( w" i+ F" H8 p3 @                machine:=str_to_obj(machinename);
                machine.deleteobject;
# T0 b+ Y: H  r0 r2 W        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! r9 Z3 o& \: G                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
' A. g3 Q9 X7 Z0 e3 {6 W       
0 I8 i9 c' A/ ~        dx:=0;
: p# y( u2 {0 a5 p1 x+ @        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 }/ |" [* S6 j9 O                --mark:=false;
! r4 J1 M) U+ `& P3 l# u# D                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
1 F7 |4 X9 B4 K. s+ E  ^                then
                        /*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];
! U  [( K2 K4 R' f0 f! F6 U                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
0 T4 s" `1 y1 f) p% k                        mark:=true;
9 a% l7 {! Q6 U                        else*/
                        y_max:=y_max+dy;
5 f  Z( S: [- F& G+ p+ H% W- l7 l                        dx:=0;
6 ?' [8 N9 o4 q. q4 {6 i                dy:=0;
+ }' L1 I  _$ S4 y' B                        --end;
                end;
4 b" P: ]- ^1 o0 o2 s) j                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: [/ w2 U) ?8 W7 B; \                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
+ A0 i) r- G5 C+ `7 }* N            if activityspace[2,rows]>dy then
5 V  _/ |$ K) p                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
( Y, O2 R9 r, q$ @- K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
' V3 s" n; ~1 E; v. y* i" J        next;
: Q: Z- K8 W) }. V9 j; a. D: b2 j! ~8 d        y_max:=y_max+dy;
5 {0 d, j% e# N  ?8 M! A2 x        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);
* h  S" j, q/ c- t6 E! F       
( M' V3 Y* R1 H- p        rows:=0;
        lines:=0;
. {2 ?5 O' r$ U  n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
( R) Z( N: Z( d7 W' x) a7 i4 u                        if j=i then
                                d_from_to_chart[j,i]:=0;
% a0 h2 p. D  \$ d                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ P4 D8 S. V3 u; o/ j                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
# n) b5 w4 Y+ U" V1 ?$ G                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
- @, a+ [7 j+ |2 M        next;
. T+ [* ^1 u& e  i9 I       
        lines:=0;
        partstable.delete;
) F5 a1 v. d& Q& E       
4 v/ a3 q0 l" n; Z        for i:=1 to number_of_machine loop
; `2 V! \, F% W; s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
7 R, {+ N" V. w# i5 D$ F4 O  a) r                        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];
: I$ h. I- o7 y, M, t9 Q                        partstable[3,lines]:=sprint("parts");
- |( [8 L* D3 T/ F) p: ^                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
: ~# E5 V+ r  z                end;
        next;
        machinename:=sprint("M",rows);
  i0 F  q, ^4 v! u6 Z        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;标识符未知
+ ~  `1 ^1 ?9 N( \! ^        machine.proctime:=5;
; c/ s8 R1 ~3 C# O6 w9 V4 ?% Y        machine.label:=activityspace[0,rows];
        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]);
' J$ C* L2 L# h( ?- P        buf.name:=bufname;
        buf.capacity:=5000;
; z- ]% \, I1 T7 F. R- O; L% F: I        buf.proctime:=0;
% m- w- r5 v  {( `/ c        .materialflow.connector.connect(buf,machine);
       
9 o  T/ ]8 y0 h. {  p8 f7 ~9 E        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
7 b" N( s( A% i& i, wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ ^- e* T; @& U6 g9 [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
- T9 ^% W6 I* y: [  g* ~end;
. O2 `* A/ s6 L