CXLAYSELLayerVersion 1.0.0In AutoCAD getestet

Alles auf den Layern der gewählten Objekte auswählen

Wählt alle Objekte auf den Layern der angeklickten Objekte im aktuellen Register aus, damit Sie sie gemeinsam verschieben, kopieren oder ändern können.

cxlaysel.lsp herunterladen LISP-Bedingungen

So verwenden Sie ihn

CXLAYSEL eingeben und je benötigtem Layer ein Objekt wählen.
Alle Objekte dieser Layer sind gewählt.
Weiter mit einem beliebigen Befehl wie MOVE oder PROPERTIES.

Gut zu wissen

Gesucht wird im aktuellen Modell- oder Layoutregister.

In AutoCAD laden

Speichern Sie die Datei an einem beliebigen Ort.
Geben Sie APPLOAD ein, wählen Sie die Datei und klicken Sie auf Laden.
Geben Sie den Befehl ein: CXLAYSEL.

Damit er bei jedem Start bereitsteht, fügen Sie ihn im selben Dialog zum Startup-Set hinzu, oder laden Sie mit dem optionalen Loader einen ganzen Ordner auf einmal. Der optionale Loader

In AutoCAD (Vollversion) getestet. Andere Programme, die AutoLISP ausführen, funktionieren vielleicht, wurden aber nicht getestet.

Der Code

Reiner Text, nichts ist versteckt. Kopieren Sie ihn in eine Datei namens cxlaysel.lsp oder laden Sie ihn herunter.

;;; ============================================================================
;;; 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)

Versionsverlauf

Version 1.0.0 · 27. Oktober 2026

Erste Veröffentlichung.