CXDIMRESETNettoyageVersion 1.0.0Testé dans AutoCAD

Remettre la valeur mesurée dans les textes de cotes modifiés à la main

Trouve les cotes dont le texte a été écrasé à la main et remet la vraie valeur mesurée, pour qu'on puisse de nouveau se fier aux chiffres.

Télécharger cxdimreset.lsp Conditions LISP

Comment l'utiliser

Sélectionnez d'abord des cotes, ou saisissez CXDIMRESET puis sélectionnez-les.
Les cotes dont le texte est remplacé sont réinitialisées.
Le rapport indique combien ont changé.

Bon à savoir

Les cotes qui affichent déjà la mesure ne sont pas touchées.

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

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

;;; ============================================================================
;;; CXDIMRESET - Reset typed-over dimension text to the measured value
;;; Version 1.0.0
;;; CADXChange LISP tools - https://cadxchange.net/resources/lisp/cxdimreset
;;; 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
;;; ============================================================================

;; Put the measured value back on the dimensions in NAMES whose text was typed over. Returns how many changed.
(defun cx:dimreset-run (names / n ed txt)
  (setq n 0)
  (foreach e names
    (setq ed  (entget e)
          txt (cdr (assoc 1 ed)))
    (if (and txt (/= txt "") (/= txt "<>"))
      (progn (entmod (subst (cons 1 "<>") (assoc 1 ed) ed)) (entupd e) (setq n (1+ n)))))
  n)

(defun c:CXDIMRESET ( / *error* cx:sv ss)
  (setq *error* cx:err)
  (if (setq ss (cx:pick "\nSelect dimensions: " '((0 . "DIMENSION"))))
    (progn
      (cx:start '(("CMDECHO" . 0)))
      (princ (strcat "\n" (itoa (cx:dimreset-run (cx:ss->list ss))) " dimension(s) reset to their measured value."))
      (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))

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

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

Historique des versions

Version 1.0.0 · 27 octobre 2026

Première version.