[编程交流] 问题：选择上的对象

(Defun C:xref_reload ( / rnames i e elist rname) 
       (setvar "cmdecho" 0)  
         (princ "\nSelect  objects on the reference file to be Reloaded:")
         (if (setq SS (ssget))
                   (progn
                             (setq Rnames "")
                             (repeat 
                               (setq I (sslength SS))
                               (setq E (ssname SS (setq I (1- I))))
                               (setq ELIST (entget E))
                               (setq Rname (cdr (assoc 2 ELIST))) 
                               (command "-xref" "R" Rname)
                               (setq Rnames (strcat Rname ", " Rnames)) 
                             );end repeat
                             (prompt "\nFiles have been Reloaded:")
                             (princ Rnames)
                   );end progn
         );end if
       (princ)
)

(defun ListUnloadedXrefs ( / ret)
 (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   (if
     (and
       (= :vlax-true (vla-get-isxref blk))
       (not (vla-get-xrefdatabase blk))
     )
     (setq ret (cons (vla-get-name blk) ret))
   )
 )
 (reverse ret)
)

(defun unloadedxrefs ( / r x )
   (while (setq x (tblnext "block" (not x)))
       (if (= 4 (logand (cdr (assoc 70 x)) 36))
           (setq r (cons (cdr (assoc 2 x)) r))
       )
   )
   (reverse r)
)

_$ (unloadedxrefs)
("xref")

(defun c:xr ( )         
(if (unloadedxrefs)
        (progn
                (foreach x (LM:listbox "Select reference file to be Reloaded" (unloadedxrefs) 1) 
                        (command "-xref" "R" x)
                )        
                (prompt "\nFiles have been Reloaded:")        
        )
        (prompt "\nNo reference file need reload.")        
)
(princ)
)

(vl-load-com)

(defun c:xr ( / lst )   
   (if (setq lst (unloadedxrefs))
       (progn
           (foreach x (LM:listbox "Select reference file to be Reloaded" lst 1)
               < ... >