CXLAYISOCalquesVersion 1.0.0Testé dans AutoCAD

Isoler les calques des objets que vous désignez

Désactive tous les calques sauf ceux des objets sélectionnés, pour vous concentrer sur un seul corps de métier. CXLAYRES remet tout en place.

Télécharger cxlayiso.lsp Conditions LISP

Comment l'utiliser

Sélectionnez d'abord des objets, ou saisissez CXLAYISO puis sélectionnez-les.
Tous les autres calques sont désactivés. Le calque courant reste actif.
Saisissez CXLAYRES quand vous avez terminé.

Bon à savoir

Seuls les calques qui étaient actifs sont touchés : ceux que vous aviez désactivés vous-même restent désactivés après la restauration.

Le charger dans AutoCAD

Enregistrez le fichier où vous voulez.
Tapez APPLOAD, choisissez le fichier et cliquez sur Charger.
Tapez le nom de la commande : CXLAYISO.

Pour l'avoir à chaque démarrage, ajoutez-le à la Mallette de démarrage dans la même boîte de dialogue, ou chargez un dossier entier d'un coup avec le chargeur facultatif. À propos du chargeur facultatif

Testé dans AutoCAD (version complète). D'autres programmes qui exécutent AutoLISP peuvent fonctionner, mais ils n'ont pas été testés.

Le code

Du texte brut, rien de caché. Copiez-le dans un fichier nommé cxlayiso.lsp ou téléchargez-le.

;;; ============================================================================
;;; CXLAYISO - Isolate the layers of the objects you pick
;;; Version 1.0.0
;;; CADXChange LISP tools - https://cadxchange.net/resources/lisp/cxlayiso
;;; 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
;;; ============================================================================

;; Switch off every layer except KEEP (a list of names) and the current layer.
;; The layers that were on are remembered in *cx-layiso* so that CXLAYRES can switch them on again.
;; Returns how many layers were switched off.
(defun cx:layiso-run (keep / n ed)
  (setq n 0 *cx-layiso* nil)
  (foreach name (cx:layers)
    (setq ed (tblsearch "LAYER" name))
    (if (and (not (member name keep)) (/= (strcase name) (strcase (getvar "CLAYER"))) (> (cdr (assoc 62 ed)) 0))
      (progn
        (setq *cx-layiso* (cons name *cx-layiso*))
        (cx:lay-set name 62 (- (cdr (assoc 62 ed))))
        (setq n (1+ n)))))
  n)

(defun c:CXLAYISO ( / *error* cx:sv ss)
  (setq *error* cx:err)
  (if (setq ss (cx:pick "\nSelect objects on the layers to keep: " nil))
    (progn
      (cx:start '(("CMDECHO" . 0)))
      (princ (strcat "\n" (itoa (cx:layiso-run (cx:layers-of (cx:ss->list ss)))) " layer(s) switched off. CXLAYRES brings them back."))
      (cx:end)))
  (princ))


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

(defun cx:dxf (code ed)
  (cdr (assoc code ed)))

;; Names of all layers.
(defun cx:layers (/ r out)
  (setq r (tblnext "LAYER" T))
  (while r
    (setq out (cons (cx:dxf 2 r) out) r (tblnext "LAYER")))
  (reverse out))

;; Set the DXF group CODE of layer NAME to VAL; returns T, or nil when there is no such layer.
(defun cx:lay-set (name code val / en ed)
  (if (setq en (tblobjname "LAYER" name))
    (progn
      (setq ed (entget en))
      (entmod (if (assoc code ed)
                (subst (cons code val) (assoc code ed) ed)
                (append ed (list (cons code val)))))
      T)))

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

;; Save the system variables in VARS ((name . value) ...), set them, and open one undo step.
;; The caller declares cx:sv as a local so the saved values live exactly as long as the command.
(defun cx:start (vars)
  (setq cx:sv (mapcar (function (lambda (v) (cons (car v) (getvar (car v))))) vars))
  (command "_.UNDO" "_Begin")
  (foreach v vars (setvar (car v) (cdr v)))
  (princ))

;; 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 "\nCXLAYISO loaded. Type CXLAYISO to start.")
(princ)

Historique des versions

Version 1.0.0 · 27 octobre 2026

Première version.

Besoin de le faire sur de nombreux dessins ?

LayerSync effectue ce genre de tâche sur tout un dossier de dessins en une seule passe.

LayerSync