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

zooey

is
2 M. r0 j2 w) P$ U( y* z        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
3 P* V; D6 i5 O/ X0 G& `2 s    machine,buf:object;
! d* E& j) t9 X) N+ Zdo
4 ?. A9 I. v7 j3 g5 T        current.eraselayer(1);
  Z  E4 z6 [" u       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
  i" E; a4 D4 B3 @+ l" C                inspect messagebox("设施数目不对！请核查...,",50,13)
" ~- j; r8 F7 y                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
( x. E% c  r* }0 e( l( \  X                end;
                eventcontroller.stop;
, y9 Y2 f0 T" t! P7 ]& Q$ S        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
% N( W' p- Z2 j$ ]        end;
        bufname:=sprint("BF",i);
7 j/ W: L) P7 |! O$ M4 q3 f! Z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. K5 o, G; \7 z% m; d5 `# _                buf.deleteobject;
  r* J  n) F8 @7 K        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
4 O) `# k4 v: F( J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 s9 `9 K1 h' j, }' Y                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
* N* o- t, o2 c3 Q                        print activityspace[1,rows],",",activityspace[2,rows];
" r( q- u- ^5 y' L. F$ s* L                        ct:=activityspace[2,rows];
6 X8 n' S2 x0 p) [+ M& y                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
, G% [$ W' [; k* o0 R                        dx:=0;
. M' ?3 O2 n6 E. }. S+ O                dy:=0;
                        --end;
' {. G# O) m% T1 `. C; d6 a                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) k! Y7 c! R8 Y/ J8 n- l# g, W: ]                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 ?. }' Z/ w: k$ I, u; |            if activityspace[2,rows]>dy then
; O( Z0 e3 f  n/ m5 L  Q6 N; J8 P                        dy:=activityspace[2,rows];
1 @$ c4 c4 M& b                end;
                dx:=dx+activityspace[1,rows];
& u' ~! n3 s& Y1 y! U/ o& Y                /*if mark=true then
                ct:=activityspace[2,rows];
3 d$ U3 U- ]# e1 |/ E+ W) g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
; _- M! i* h3 m0 }) @        next;
        y_max:=y_max+dy;
6 F+ z* C! N1 @# u' W        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);
       
        rows:=0;
0 o. K) x- B2 x# [# O        lines:=0;
        for i:=1 to number_of_machine loop
! I. `9 B; t3 S- O: ~  A. m8 U1 k                for j:=1 to number_of_machine loop
                        if j=i then
1 d, @. I" r! Y, O                                d_from_to_chart[j,i]:=0;
                        else
% O/ `6 U" ^1 F, w7 r9 v2 u                                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];
6 G4 u: u  O, F                                d_from_to_chart[j,i]:=abs(dx-dy);
. h* b; g8 l+ S0 p                        end;
                next;
  Y% p: @# F1 d3 W( G) e7 _        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
" j1 F5 S9 r0 J* [" o" g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& ]6 f% j; P6 g& t9 S3 g                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
* [: T, V7 h- b( D9 I# j* h2 s4 z( h                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 p% ^& n. d2 m+ Y7 P: T  y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 d0 R  f' o  ~3 `                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. V/ R, U9 P. T7 r. ?# F1 h/ u                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- k, w, m/ [$ V8 e0 ~* T8 \                end;
        next;
        machinename:=sprint("M",rows);
3 c4 G/ s; R- f7 }. ]' }        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;标识符未知
. a4 @% G4 R- ~- b# y7 y6 @9 R0 F        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
) ]- }2 n$ }. L6 d8 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;
1 ^$ n8 g/ V" s& h8 @' n        buf.proctime:=0;
, J% ]$ {2 m/ }5 N3 O9 m* s0 L        .materialflow.connector.connect(buf,machine);
       
& z0 L/ _5 ~- Q; A( W; {3 G        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 t  b: o# R# ]  H3 Z. v6 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);
next;
7 f3 _  p2 C: v% d% d$ |+ n" Q1 vend;