Gesto_Xrefs.lsp

;;; Início Gesto_Xrefs.lsp
;;; Ver 1.1

;;; J.A.
;;; www.cadtom.com

;;; Ver 1.0 - 2003-06-10
;;; Ver 1.1 - 2007-01-29

;;; Gesto_Xrefs.lsp : Pequeno gestor de referências externas


;;;  Função XDE
;;;  Desligar (Detach) referência externa por selecção

(defun C:XDE (/ CMDCH GTENT ENTNAM ENTGT XFNAME)

  (command "_.undo" "begin")
  (setq CMDCH (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (princ "\n»» Seleccione Xrefs a desligar (Detach)\n")
  (setq GTENT (entsel))
  (setq ENTNAM (car GTENT))
  (setq ENTGT (entget ENTNAM))
  (setq XFNAME (cdr (assoc 2 ENTGT)))
  (command ".-xref" "d" XFNAME)
  (setvar "cmdecho" CMDCH)
  (command "_.undo" "end")
)

;;;  Função XDEE
;;;  Desligar (Detach) todas as referências externas

(defun C:XDEE (/ CMDCH)

  (command "_.undo" "begin")
  (setq CMDCH (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command ".-xref" "d" "*")
  (command "_.undo" "end")
)

;;;  Função XUN
;;;  Desactivar (Unload) referência externa por selecção

(defun C:XUN (/ CMDCH GTENT ENTNAM ENTGT XFNAME)

  (command "_.undo" "begin")
  (setq CMDCH (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (princ "\n»» Seleccione Xrefs a desactivar (Unload)\n")
  (setq GTENT (entsel))
  (setq ENTNAM (car GTENT))
  (setq ENTGT (entget ENTNAM))
  (setq XFNAME (cdr (assoc 2 ENTGT)))
  (command ".-xref" "u" XFNAME)
  (setvar "cmdecho" CMDCH)
  (command "_.undo" "end")
)

;;;  Função XUNN
;;;  Desactivar (Unload) todas as referências externas

(defun C:XUNN (/ CMDCH)

  (command "_.undo" "begin")
  (setq CMDCH (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command ".-xref" "u" "*")
  (command "_.undo" "end")
)

;;;  Função XRE
;;;  Reinicializar (Reload) referência externa por selecção

(defun C:XRE (/ CMDCH GTENT ENTNAM ENTGT XFNAME)

  (command "_.undo" "begin")
  (setq CMDCH (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (princ "\n»» Seleccione Xref a reinicializar (Reload)\n")
  (setq GTENT (entsel))
  (setq ENTNAM (car GTENT))
  (setq ENTGT (entget ENTNAM))
  (setq XFNAME (cdr (assoc 2 ENTGT)))
  (command ".-xref" "r" XFNAME)
  (setvar "cmdecho" CMDCH)
  (command "_.undo" "end")
)

;;;  Função XREE
;;;  Reinicializar (Reload) todas as referências externas

(defun C:XREE (/ CMDCH)

  (command "_.undo" "begin")
  (setq CMDCH (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command ".-xref" "r" "*")
  (command "_.undo" "end")
)

;;;  Função XBI
;;;  Unir (Bind) referência externa por selecção

(defun C:XBI (/ CMDCH GTENT ENTNAM ENTGT XFNAME)

  (command "_.undo" "begin")
  (setq CMDCH (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (princ "\n»» Seleccione Xref a unir (Bind)\n")
  (setq GTENT (entsel))
  (setq ENTNAM (car GTENT))
  (setq ENTGT (entget ENTNAM))
  (setq XFNAME (cdr (assoc 2 ENTGT)))
  (command "-xref" "b" XFNAME)
  (setvar "cmdecho" CMDCH)
  (command "_.undo" "end")
)

(terpri)
(princ
  "»» Comandos: XDE / XDEE / XUN / XUNN / XRE / XREE / XBI "
)
(terpri)









Top