Yes, thanks again Ron and Lee
here is my modified routine:
(defun c:test ( / ht ss i elist )
;; Example by Lee Mac 2011 - www.lee-mac.com
(if
(and
(setq ht (/ (getvar "dimscale") 10.66666))
(setq ss (ssget "_X" (list (cons 7 "ANNO*,HELVL,NOTE*,STANDARD")(cons 8 "0,*ANNO*,*NOTE*,*TEXT*")(cons 0 "TEXT")(cons -4 "<NOT")(cons 40 ht)(cons -4 "NOT>"))))
)
(repeat (setq i (sslength ss))
(if (setq elist (entget (ssname ss (setq i (1- i))))
elist (entmod (subst (cons 40 ht) (assoc 40 elist) elist))
)
(entupd (cdr (assoc -1 elist)))
)
)
)
(if
(and
(setq ht (/ (getvar "dimscale") 5.33333))
(setq ss (ssget "_X" (list (cons 7 "TITLE,HELVL,NOTE*,STANDARD")(cons 8 "0,*SHTT*,*SYMB*")(cons 0 "TEXT")(cons -4 "<NOT")(cons 40 ht)(cons -4 "NOT>"))))
)
(repeat (setq i (sslength ss))
(if (setq elist (entget (ssname ss (setq i (1- i))))
elist (entmod (subst (cons 40 ht) (assoc 40 elist) elist))
)
(entupd (cdr (assoc -1 elist)))
)
)
)
(princ)
)