Change the color of dim text overrides

[dennis.moyes]

I would like to change the color of manual dim text overrides as they are created. I need a simple routine that answers 1 if/then statement: IF there is text in the dim text override property THEN change its color. Any ideas? I have next to no experience with LSP myself.

Thanks,
Dennis

[tedg]

I would like to change the color of manual dim text overrides as they are created. I need a simple routine that answers 1 if/then statement: IF there is text in the dim text override property THEN change its color. Any ideas? I have next to no experience with LSP myself.

Thanks,
Dennis

Can you explain more what you're trying to do?

If there's TEXT added to (overridden with) a dimension, you want THAT to be a different color that you choose?
You want to do this on existing dimensions in a drawing (find and fix)?
You want to do that as you're adding (overriding to) TEXT?

I don't have an answer but it could help get an answer to know more about your process.

[Tom Beauford]

Kent Cooper's lisp modified to only change color

;https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-to-change-color-of-dimensions-with-text-override/m-p/5107144#M323608
(vl-load-com); [if not already done]
(if (setq ss (ssget "_X" '((0 . "DIMENSION") (1 . "~")))); ignores no-override ones; returns nil if it finds none
  (progn ; "wrapper" to make all operations into one 'then' argument
    (command "_.layer" "_thaw" "Dimensions_Overridden Text" ""); just in case -- won't care if it doesn't exist
    (repeat (sslength ss)
      (setq en (ssname ss 0))
      (if (not (wcmatch (cdr (assoc 1 (entget en))) "*<>*")); override doesn't contain actual measurement
        (progn ; 'then'
          (if (not (tblsearch "layer" "Dimensions_Overridden Text"))
            ; doesn't already exist -- create only if not and if appropriate object(s) found
            (command "_.layer" "_new" "Dimensions_Overridden Text" "c" "6" "Dimensions_Overridden Text" "")
              ; [no need to Thaw if new]
          ); if
          (vlax-put (setq obj (vlax-ename->vla-object en))  'Color 256); = Bylayer
        ); progn
      ); if
      (ssdel en ss)
    ); repeat
  ); progn ['then' -- no 'else' -- do nothing if none found]
); if [found some potentially appropriate object(s)]
(princ)

Change Color from 256 (ByLayer) to the color you want like 6
His original code makes it stand out better and allows you to modify properties like the color easily by modifying the "Layer "Dimensions_Overridden Text".

[dennis.moyes]

Can you explain more what you're trying to do?

If there's TEXT added to (overridden with) a dimension, you want THAT to be a different color that you choose?
You want to do this on existing dimensions in a drawing (find and fix)?
You want to do that as you're adding (overriding to) TEXT?

I don't have an answer but it could help get an answer to know more about your process.

I want to change the color when I override the text. No find and fix is necessary and I want the text to remain on the layer it was created on.

[BIG-AL]

Maybe this, needs the check for isit overidden as per Tom,s post

(defun c:wow ( / ent)
(setq col (acad_colordlg 1))
(while (setq ent (car (entsel "\nPick dim Enter to exit")))
(vlax-put  (vlax-ename->vla-object ent)  'TextColor col)
)
(princ)
)

[pendean]

How about the attached LISP FAKEDIM.LSP

[tedg]

How about the attached LISP FAKEDIM.LSP

Just a quick look at this, seems to want to put "forged dims" on a special layer, the OP didn't want a different layer, just to change the color.
But pretty cool concept though.