;;;Detach selected XREF. ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; Modified 4-25-02 to unload xrefs instead of detach ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; (DEFUN c:xru (/ rtnswp) (IF (= "INSERT" (CDR (ASSOC 0 (ENTGET (CAR (SETQ xrent (ENTSEL "\nPick XREF to unload. "))) ) ;_ end of ENTGET ) ;_ end of assoc ) ;_ end of cdr ) ;_ end of = (PROGN (SETQ xrname (CDR (ASSOC 2 (ENTGET (CAR xrent))))) (TBLNEXT "block" T) (SETQ tblent (TBLSEARCH "block" xrname)) (IF (= (REM (CDR (ASSOC 70 tblent)) 4) 0) (COMMAND ".xref" "unload" xrname) (PRINC "\nNot an XREF. ") ) ;_ end of IF ) ;_ end of PROGN (PRINC "\nNot an XREF. ") ) ;_ end of IF (PRINC) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T) ***Don't add text below the comment!***|;