CXDIMRESETAufräumenVersion 1.0.0In AutoCAD getestet

Überschriebenen Maßtext auf den gemessenen Wert zurücksetzen

Findet Bemaßungen, deren Text von Hand überschrieben wurde, und setzt den echten Messwert wieder ein, damit man den Zahlen wieder trauen kann.

cxdimreset.lsp herunterladen LISP-Bedingungen

So verwenden Sie ihn

Zuerst Bemaßungen wählen oder CXDIMRESET eingeben und dann wählen.
Bemaßungen mit überschriebenem Text werden zurückgesetzt.
Der Bericht nennt, wie viele geändert wurden.

Gut zu wissen

Bemaßungen, die schon den Messwert zeigen, bleiben unberührt.

In AutoCAD laden

Speichern Sie die Datei an einem beliebigen Ort.
Geben Sie APPLOAD ein, wählen Sie die Datei und klicken Sie auf Laden.
Geben Sie den Befehl ein: CXDIMRESET.

Damit er bei jedem Start bereitsteht, fügen Sie ihn im selben Dialog zum Startup-Set hinzu, oder laden Sie mit dem optionalen Loader einen ganzen Ordner auf einmal. Der optionale Loader

In AutoCAD (Vollversion) getestet. Andere Programme, die AutoLISP ausführen, funktionieren vielleicht, wurden aber nicht getestet.

Der Code

Reiner Text, nichts ist versteckt. Kopieren Sie ihn in eine Datei namens cxdimreset.lsp oder laden Sie ihn herunter.

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

Versionsverlauf

Version 1.0.0 · 27. Oktober 2026

Erste Veröffentlichung.