;TIP1165.LSP: DETXREF.LSP Detach Xrefs in Hurry (c)1995, Murray Clack

(defun C:DXR (/ XR NAME)
(setq XR (entget (car (entsel "\nSelect an xref to detach"))))
(setq NAME (cdr (assoc 2 XR)))
(command ".xref" "d" NAME)
(prompt (strcat "\nThe xref " NAME " has been detached" ))
(princ)
)
(c:dxr)
; end detxref.lsp

Advertisements