[Request] Lisp to replace Dim text override

[haisagiviz]

Hi everyone,

 

Please help me a lisp to search and replace Dimension text override (like as Lee Mac's lisp but just run in background, not with DCL).

E.g: Replace all of dimensions text from <mesurevalue> to <> (in background)

 

Thank you so much.
HAI

[Lee Mac]

If you're merely looking to remove any & all dimension text overrides, you can try the following:

(defun c:removedimtextoverride ( / i s x )
    (if (setq s (ssget "_X" '((0 . "*DIMENSION") (1 . "*?*"))))
        (repeat (setq i (sslength s))
            (setq i (1- i)
                  x (entget (ssname s i))
            )
            (entmod (subst '(1 . "") (assoc 1 x) x))
        )
        (princ "\nNo dimension measurements have been overridden.")
    )
    (princ)
)

 

[haisagiviz]

Thank @Lee Mac for your help.

 

But actually I need to search and replace just apply to Dimension element only.

Is there any method to do that?