CADXChange

Todos los comandos LISP

CXLAYSELCapasVersión 1.0.0Probado en AutoCAD

Seleccionar todo lo que hay en las capas que elijas

Selecciona todos los objetos de las capas de los objetos señalados, en la pestaña actual, para moverlos, copiarlos o cambiarlos juntos.

Descargar cxlaysel.lspCondiciones LISP

Cómo se usa

  1. Escribe CXLAYSEL y selecciona un objeto de cada capa que necesites.
  2. Todos los objetos de esas capas quedan seleccionados.
  3. Continúa con cualquier comando, como MOVE o PROPERTIES.

Conviene saber

  • Busca en la pestaña de modelo o de presentación actual.

Cargarlo en AutoCAD

  1. Guarda el archivo donde quieras.
  2. Escribe APPLOAD, elige el archivo y pulsa Cargar.
  3. Escribe el nombre del comando: CXLAYSEL.

Para tenerlo en cada inicio, agrégalo al Contenido de inicio en el mismo cuadro de diálogo, o carga una carpeta entera de una vez con el cargador opcional. Sobre el cargador opcional

Probado en AutoCAD (versión completa). Otros programas que ejecutan AutoLISP pueden funcionar, pero no se han probado.

El código

Texto sin más, nada oculto. Cópialo en un archivo llamado cxlaysel.lsp o descárgalo.

;;; ============================================================================
;;; CXLAYSEL - Select everything on the layers you pick
;;; Version 1.0.0
;;; CADXChange LISP tools - https://cadxchange.net/resources/lisp/cxlaysel
;;; Tested in: AutoCAD (full version). Other programs that run AutoLISP may work but are not tested.
;;; Copyright (c) CADXChange. Free for personal and commercial use; do not resell or
;;; republish it as a collection. Terms: https://cadxchange.net/legal/lisp-terms
;;; ============================================================================

;; Everything in the current space that is on one of the layers in LAYERS, as a selection set (or nil).
(defun cx:laysel-run (layers)
  (if layers
    (ssget "X" (list (cons 8 (cx:join layers ",")) (cons 410 (getvar "CTAB"))))))

(defun c:CXLAYSEL ( / *error* cx:sv ss layers sel)
  (setq *error* cx:err)
  (if (setq ss (cx:pick "\nSelect objects on the layers to select: " nil))
    (progn
      (setq layers (cx:layers-of (cx:ss->list ss))
            sel    (cx:laysel-run layers))
      (if sel
        (progn
          (sssetfirst nil sel)
          (princ (strcat "\n" (itoa (sslength sel)) " object(s) selected on " (itoa (length layers)) " layer(s).")))
        (princ "\nNothing found."))))
  (princ))


;;; ---- Shared helpers (used by the command above; identical in every CADXChange tool) ----

(defun cx:join (lst delim / out)
  (setq out "")
  (foreach s lst
    (setq out (if (= out "") s (strcat out delim s))))
  (if lst out ""))

;; Close the undo step and put the system variables back.
(defun cx:end ()
  (foreach v cx:sv (setvar (car v) (cdr v)))
  (command "_.UNDO" "_End")
  (setq cx:sv nil)
  (princ))

;; Error handler: restores everything, stays quiet on Esc.
(defun cx:err (msg)
  (if (> (getvar "CMDACTIVE") 0) (command))
  (cx:end)
  (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*")))
    (princ (strcat "\nError: " msg)))
  (princ))

;; Use the objects already selected, or ask the user to select; FILTER is an ssget filter list or nil.
(defun cx:pick (msg filter / ss)
  (setq ss (if filter (ssget "_I" filter) (ssget "_I")))
  (if (null ss)
    (progn
      (princ msg)
      (setq ss (if filter (ssget filter) (ssget)))))
  ss)

;; The distinct layer names used by the entities in NAMES, in order of first use.
(defun cx:layers-of (names / out l)
  (foreach e names
    (setq l (cdr (assoc 8 (entget e))))
    (if (not (member l out)) (setq out (cons l out))))
  (reverse out))

;; Selection set to a list of entity names.
(defun cx:ss->list (ss / i out)
  (setq i 0)
  (if ss
    (repeat (sslength ss)
      (setq out (cons (ssname ss i) out)
            i   (1+ i))))
  (reverse out))

(princ "\nCXLAYSEL loaded. Type CXLAYSEL to start.")
(princ)

Historial de versiones

Versión 1.0.0 · 27 de octubre de 2026

Primera versión.

Más comandos: Capas