CADXChange

Toutes les commandes LISP

CXLAYRESCalquesVersion 1.0.0Testé dans AutoCAD

Rétablir les calques désactivés par CXLAYISO

Réactive exactement les calques que CXLAYISO a masqués. Si rien n'a été isolé, propose d'activer tous les calques désactivés.

Télécharger cxlayres.lspConditions LISP

Comment l'utiliser

  1. Saisissez CXLAYRES.
  2. Les calques masqués par CXLAYISO reviennent.
  3. Si rien n'a été isolé, répondez Yes pour activer tous les calques désactivés.

Bon à savoir

  • Fonctionne aussi après plusieurs appels de CXLAYISO dans la même session.

Le charger dans AutoCAD

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

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é cxlayres.lsp ou téléchargez-le.

;;; ============================================================================
;;; CXLAYRES - Bring back the layers CXLAYISO switched off
;;; Version 1.0.0
;;; CADXChange LISP tools - https://cadxchange.net/resources/lisp/cxlayres
;;; 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 on the layers CXLAYISO switched off. With ALL true, every layer that is off comes back instead.
;; Returns how many layers were switched on.
(defun cx:layres-run (all / n ed names)
  (setq n 0 names (if all (cx:layers) *cx-layiso*))
  (foreach name names
    (if (and (setq ed (tblsearch "LAYER" name)) (< (cdr (assoc 62 ed)) 0))
      (progn
        (cx:lay-set name 62 (- (cdr (assoc 62 ed))))
        (setq n (1+ n)))))
  (setq *cx-layiso* nil)
  n)

(defun c:CXLAYRES ( / *error* cx:sv all)
  (setq *error* cx:err)
  (setq all (if *cx-layiso* nil (= (cx:ask-kw "Nothing was isolated. Switch on every layer that is off" "Yes No" "Yes") "Yes")))
  (if (or *cx-layiso* all)
    (progn
      (cx:start '(("CMDECHO" . 0)))
      (princ (strcat "\n" (itoa (cx:layres-run all)) " layer(s) switched on."))
      (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))

;; Replace every OLD in STR by NEW (case sensitive).
(defun cx:replace (str old new / n out pos)
  (setq n (strlen old) out "" pos 1)
  (if (= n 0)
    str
    (progn
      (while (<= pos (1+ (- (strlen str) n)))
        (if (= (substr str pos n) old)
          (setq out (strcat out new) pos (+ pos n))
          (setq out (strcat out (substr str pos 1)) pos (1+ pos))))
      (strcat out (substr str pos)))))

;; Ask for one of the keywords in BITS ("Yes No"), default DEF; returns the keyword.
(defun cx:ask-kw (msg bits def / v)
  (initget 0 bits)
  (setq v (getkword (strcat "\n" msg " [" (cx:replace bits " " "/") "] <" def ">: ")))
  (if v v def))

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

(princ "\nCXLAYRES loaded. Type CXLAYRES 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

Autres commandes : Calques