CADXChange

Toutes les commandes LISP

CXDELTYPENettoyageVersion 1.0.0Testé dans AutoCAD

Supprimer tous les objets du type que vous désignez

Cliquez sur un objet, par exemple une hachure ou une ligne de repère, et supprimez tous les objets du même type, dans tout l'onglet ou seulement sur ce calque.

Télécharger cxdeltype.lspConditions LISP

Comment l'utiliser

  1. Saisissez CXDELTYPE et cliquez sur un objet du type à supprimer.
  2. Choisissez All ou ThisLayer.
  3. Le rapport indique combien ont été supprimés.

Bon à savoir

  • U annule en une seule étape.

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 : CXDELTYPE.

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

;;; ============================================================================
;;; CXDELTYPE - Delete every object of the type you pick
;;; Version 1.0.0
;;; CADXChange LISP tools - https://cadxchange.net/resources/lisp/cxdeltype
;;; 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
;;; ============================================================================

;; Erase every entity of type TYPE (a DXF name such as "HATCH") in the current space. With LAYER, only those on
;; that layer. Returns how many were erased.
(defun cx:deltype-run (type layer / filter ss n i)
  (setq filter (list (cons 0 type) (cons 410 (getvar "CTAB"))))
  (if layer (setq filter (cons (cons 8 layer) filter)))
  (setq n 0)
  (if (setq ss (ssget "X" filter))
    (progn
      (setq i 0)
      (repeat (sslength ss)
        (if (entdel (ssname ss i)) (setq n (1+ n)))
        (setq i (1+ i)))))
  n)

(defun c:CXDELTYPE ( / *error* cx:sv pick ed scope n)
  (setq *error* cx:err)
  (if (setq pick (car (entsel "\nSelect an object of the type to delete: ")))
    (progn
      (setq ed (entget pick))
      (setq scope (cx:ask-kw (strcat "Delete every " (cdr (assoc 0 ed)) " on") "All ThisLayer" "All"))
      (cx:start '(("CMDECHO" . 0)))
      (setq n (cx:deltype-run (cdr (assoc 0 ed)) (if (= scope "All") nil (cdr (assoc 8 ed)))))
      (princ (strcat "\n" (itoa n) " " (cdr (assoc 0 ed)) " object(s) deleted."))
      (cx:end)))
  (princ))


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

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

Historique des versions

Version 1.0.0 · 27 octobre 2026

Première version.

Autres commandes : Nettoyage