Append text to dimension

Hi

I would like to write a program to append text to a dimension. What I do now
is, select the dim, go to the properties box and in the text override box
type some thing like "<>(12Pls)" if I have more then one that will have the
same text I just select all of them first, I would like to have the the
command ask for the text and then just select all the dimension I need to
add the text to. I'm just learning lisp. I look at the help files and
believe I may need to use Active x but I'm not sure. Like I said I'm a
newbie.

Thanks
Tim

 

Maybe something like:

(defun c:AppendDim (/ tmpEnt tmpTxt tmpEntData Txt ss)

(if
(and
(setq Txt (getstring T"\n Enter value to add to end of dimension text: "))
(setq ss (ssget '((0 . "DIMENSION"))))
)
(while (setq tmpEnt (ssname ss 0))
(setq tmpEntData (entget tmpEnt))
(setq tmpTxt (cdr (assoc 1 tmpEntData)))
(entmod (subst (cons 1 (strcat tmpTxt " "Txt)) (assoc 1 tmpEntData) tmpEntData))
(ssdel tmpEnt ss)
)
)
(princ)
)

Tim

 

Thank you it works great,
Very Cool, I'll have to sit here and study how it all works allot simpler
than I thought.

Thank you again.

 

You're welcome. If you don't understand something after looking through it and the help file, post and someone will most likely answer.

Tim