Topic: Dimension background mask color

[spykat1965]

I have a routine that will toggle the background mask of a dimension On and Off but what I need is to change the fill color to "background". Does anybody know how to do this?

[Tharwat]

You can change the text fill color with this function .

Code: [Select]

vla-put-textfillcolor <vla-obj> <Number of Color>


[spykat1965]

I don't know much about VisualLisp. How do I get the <vla-obj>?

[Tharwat]

Example ..

Code: [Select]

(setq ss (car (entsel "\n Select Dimension :")))
(vla-put-textfillcolor (vlax-ename->vla-object ss) 1); Number 1 indicates to Red color


[ronjonp]

Here's something to mull over:

Code: [Select]

(defun c:younameit (/ clr ss ss->list)
  (defun ss->list (ss / e n out)
    (setq n -1)
    (if (= (type ss) 'pickset)
      (while (setq e (ssname ss (setq n (1+ n)))) (setq out (cons (vlax-ename->vla-object e) out)))
    )
  )
  (if (and (setq clr (acad_colordlg 1)) (setq ss (ssget ":L" '((0 . "dimension")))))
    (foreach dim (ss->list ss) (vlax-put dim 'textfillcolor clr) (vlax-put dim 'textfill -1))
  )
  (princ)
)

[trogg]

Found this one
2 functions with this.
TMASKON - Turn Text Mask On
TMASKOFF -Turn Text Mask OFF