CADXChange

Todos los comandos LISP

CXDIMRESETLimpiezaVersión 1.0.0Probado en AutoCAD

Devolver el valor medido a los textos de cota modificados a mano

Encuentra las cotas cuyo texto se escribió encima a mano y vuelve a poner el valor medido real, para poder fiarse otra vez de los números.

Descargar cxdimreset.lspCondiciones LISP

Cómo se usa

  1. Selecciona primero cotas, o escribe CXDIMRESET y luego selecciónalas.
  2. Las cotas con el texto sobrescrito se restablecen.
  3. El informe indica cuántas cambiaron.

Conviene saber

  • Las cotas que ya muestran la medida no se tocan.

Cargarlo en AutoCAD

  1. Guarda el archivo donde quieras.
  2. Escribe APPLOAD, elige el archivo y pulsa Cargar.
  3. Escribe el nombre del comando: CXDIMRESET.

Para tenerlo en cada inicio, agrégalo al Contenido de inicio en el mismo cuadro de diálogo, o carga una carpeta entera de una vez con el cargador opcional. Sobre el cargador opcional

Probado en AutoCAD (versión completa). Otros programas que ejecutan AutoLISP pueden funcionar, pero no se han probado.

El código

Texto sin más, nada oculto. Cópialo en un archivo llamado cxdimreset.lsp o descárgalo.

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

Historial de versiones

Versión 1.0.0 · 27 de octubre de 2026

Primera versión.

Más comandos: Limpieza