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

zooey

is
' T) k. x9 }. l4 N! X% J1 ~        mark:boolean;
  `: [7 ^' c( R# l! v8 J; K        dx,dy,ct:real;
' Z- n/ X. `: m9 O2 e    i,j,rows,lines:integer;
/ ]6 n4 I% H2 P; Y    machinename,bufname:string;
- p" A' s8 D# C7 W( B4 T3 N+ z    machine,buf:object;
do
+ a2 }+ A' x$ m0 k6 R        current.eraselayer(1);
  W4 J, @$ T8 x       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ {9 U, o, z& M5 k8 T, ?' n                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, Q, {2 S. ]8 X, U- ^# d/ w                        print"yes";
) C: T* u+ Q  n3 n7 |5 R                when 32 then
                        print"no";
9 q7 b* L8 A7 ~, N) V                else
                        print"cancel";
                end;
( M& r' C' K% k5 f9 s/ X% b: I" W7 s) Y                eventcontroller.stop;
& ~& `! _/ |6 l        end;
0 y+ n* L1 \1 R1 B       
7 a. o# i4 n. k: R$ r5 ~( u$ U        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
9 L- t/ X6 Q" s( W; h/ k/ B' G        if existsobject(machinename) then
1 N7 j' J) j. w% |/ t( W                machine:=str_to_obj(machinename);
- o2 E! ?" u. z& ?. h  l                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 ]. D$ Z( g. W$ {/ g& ~2 R                buf:=str_to_obj(bufname);
                buf.deleteobject;
& q1 {8 `6 h% z: ~, _6 b        end;
  m9 T4 V7 Y) U5 f        next;
       
        dx:=0;
" U+ X& }( X2 x/ i, u        dy:=0;
# J' r3 q5 ?7 ^2 O        for i:=1 to number_of_machine loop
+ p0 y# _1 H/ d* L, O# t: c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! N( o5 X# }; M                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. H. v% @* p6 i) ?2 U7 `4 a  k                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ X1 @5 Q* |6 `# d" K8 \' }                        and activityspace[1,rows]<(1.05*y_max) then
. r4 S1 Z1 X8 R. S8 K3 d                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  _8 H2 @- ^) l1 n) a                        activityspace[1,rows]:=ct;
' Q; \) R" c# m) H& a                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
* u4 U# Z, c* x0 f5 v- r                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
7 q& {( N) U4 F4 e+ B: h2 b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
) n; M5 ^, s- }% s0 _                ct:=activityspace[2,rows];
& x8 Y& {$ u, K1 x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
% t! X) _/ j3 L  Q5 P        y_max:=y_max+dy;
* ?( d0 O5 x$ `3 P        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);
: L* }( J2 M% t6 M2 e       
        rows:=0;
: w6 {- Q* H! X$ d        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
3 w- f" C0 X7 Q( l  s0 k7 p: J                        if j=i then
  T" U2 F" c: K4 D                                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];
                                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);
! U, p4 i2 S5 x) _                        end;
$ P5 O8 r& s" O* j# g+ B/ C' J                next;
" o3 H3 T% l- |        next;
       
7 H$ D* J% r* L8 P# B! B5 z& T        lines:=0;
        partstable.delete;
       
4 {4 B% b7 p: a4 T9 @+ `        for i:=1 to number_of_machine loop
; g9 I" K% @( c& P- ~3 i. F! Z                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% h) j/ u. j8 n                machinesequence[2,i]:=rows;
) D$ {+ f! c$ j4 L* F! h% n, c+ X                for j:=1 to number_of_machine loop
" F( Q; r2 t, W9 H* C. `                        if w_from_to_chart[j,rows]>0 then
5 b! Z- ~7 Y; T, [. E& g8 v* Z                        lines:=lines+1;
; m( g0 d4 Z: y$ K                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
: |# T2 o6 h9 G5 @! s" G                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( Q7 J$ N- S8 I. i1 m- t9 I6 K' [  F                        partstable[6,lines]:=j;
# S$ p. U: s5 v+ n                end;
        next;
        machinename:=sprint("M",rows);
- P0 O* ^! H6 x3 a3 w: P6 u        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;
! Y% V8 a8 y+ s3 X" t0 X        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
, }& W* B6 d5 s8 P: [" E5 e+ y/ A- s        bufname:=sprint("BF",rows);
1 L5 N) g6 U- Y) E2 w        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]);
. {. }* I' a3 a& R+ x+ Y; E) l        buf.name:=bufname;
        buf.capacity:=5000;
$ y  M$ _( ]) W7 l" s% N  C        buf.proctime:=0;
/ C  L! J' R7 R( n! V, r        .materialflow.connector.connect(buf,machine);
% |9 F! ], |1 h* u: y/ v; p       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& W# M* m5 y8 K1 Cdy:=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);
8 ?& \0 M3 K& Y: W' Nnext;
end;
/ M/ {' ], K$ u$ J. n$ ~4 P, X4 g) S