;;; Remove any unloaded (unreferenced) XREFs,IMAGE's,PDF's,DGN's and DWF's in a one click
;;; Combined from existing subroutines by Igal Averbuh 2016
;;; Based on https://www.theswamp.org/index.php?topic=51337.0
;;; With respect to T.Willey
; Detach any unloaded (unreferenced) XREFs
)
(setq BIND_cont
(entget (vlax
-vla
-object
->ename BIND_xrefname
)) )
)
)
)
)
)
)
(defun c:RID
(/ isDefReferenced dict data name tData lst imName
) ; Remove image definition of unreferenced and unloaded definitions.
(defun isDefReferenced
(aEname
/ cnt data
) (= (cdr (assoc 0 data
)) "IMAGEDEF_REACTOR") )
)
)
)
)
(> cnt 0)
)
;-------------------------------------------------------
(setq name
"ACAD_IMAGE_DICT") ;check to see if unreferenced or unload
(not (isDefReferenced
(cdr i
))) )
)
)
)
)
)
)
" image definition(s)."
)
)
)
)
)
(defun c:RPD
(/ isDefReferenced dict data name tData lst imName
) ; Remove pdf definition of unreferenced and unloaded definitions.
(defun isDefReferenced
(aEname
/ cnt data
) (= (cdr (assoc 0 data
)) "IMAGEDEF_REACTOR") )
)
)
)
)
(> cnt 0)
)
;-------------------------------------------------------
(setq name
"ACAD_PDFDEFINITIONS") ;check to see if unreferenced or unload
(not (isDefReferenced
(cdr i
))) )
)
)
)
)
)
)
" pdf definition(s)."
)
)
)
)
)
(defun c:RDD
(/ isDefReferenced dict data name tData lst imName
) ; Remove dgn definition of unreferenced and unloaded definitions.
(defun isDefReferenced
(aEname
/ cnt data
) (= (cdr (assoc 0 data
)) "IMAGEDEF_REACTOR") )
)
)
)
)
(> cnt 0)
)
;-------------------------------------------------------
(setq name
"ACAD_DGNDEFINITIONS") ;check to see if unreferenced or unload
(not (isDefReferenced
(cdr i
))) )
)
)
)
)
)
)
" dgn definition(s)."
)
)
)
)
)
(defun c:RWD
(/ isDefReferenced dict data name tData lst imName
) ; Remove dwf definition of unreferenced and unloaded definitions.
(defun isDefReferenced
(aEname
/ cnt data
) (= (cdr (assoc 0 data
)) "IMAGEDEF_REACTOR") )
)
)
)
)
(> cnt 0)
)
;-------------------------------------------------------
(setq name
"ACAD_DWFDEFINITIONS") ;check to see if unreferenced or unload
(not (isDefReferenced
(cdr i
))) )
)
)
)
)
)
)
" dwf definition(s)."
)
)
)
)
)
; NoRecentBlist
(defun c:NoRecentBlist
( / reg
-key n
) )
)
(c:NoRecentBlist)
(c:dux)
(c:rid)
(c:rpd)
(c:rdd)
(c:rwd)
)