[编程交流] 打开时发出外部参照警报

 
;;code by PBEJSE
(defun c:SelXref  (/ Xr_lst)
(vlax-for blk (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object)))
(if (eq (vla-get-isXref blk) :vlax-true)
(setq Xr_lst
(cons
(cons
(vla-get-name blk)
(if (> (vla-get-count blk) 0)
"Loaded" "Unloaded"))
Xr_lst))))
(foreach n Xr_lst (print n))
(princ))

(defun c:XrefAlert (/ l)
 (vlax-for blk (vla-get-blocks
                 (vla-get-activedocument (vlax-get-acad-object))
               )
   (if (and (eq (vla-get-isXref blk) :vlax-true)
            (= 0 (setq a (vla-get-count blk)))
            )
     (setq l (vl-list* "," (vla-get-name blk) l))
     )
 )
 (if l (alert (strcat "Name of Unloaded Xrefs drawings < " (apply 'strcat (cdr l)) " >")))
 (princ)
)(vl-load-com)

(   (lambda ( / s x )
       (while (setq x (tblnext "block" (not x)))
           (if (= 4 (logand 36 (cdr (assoc 70 x))))
               (setq s (vl-list* "\n" (cdr (assoc 2 x)) s))
           )
       )
       (if s (alert (strcat "This drawing contains the following unloaded xrefs:\n" (apply 'strcat s))))
       (princ)
   )
)