The code below with change the attribute text width, how can it be modified to change the text height?
(defun c:test (/ sset cnt enam attlst att)
(setvar "cmdecho" 0)
;(ARCH:SET-ARIAL)
(setq SSET
(ssget
"X"
(list
(cons 0 "INSERT")
(cons
2
"*PN*"
)
(cons 8 "*A-,P-*,M-*,S-*")
)
)
CNT 0
)
(if SSET
(progn
(repeat (sslength SSET)
(setq ENAM (ssname SSET CNT)
CNT (1+ CNT)
)
(if (= (cdr (assoc 66 (entget ENAM))) 1)
(progn
(setq ATTLST (vlax-safearray->list
(variant-value
(vla-getattributes
(vlax-ename->vla-object ENAM)
)
)
)
)
(foreach
ATT
ATTLST
(if
(or (wcmatch (strcase (vla-get-stylename ATT)) "ARIAL")
)
(progn
(ARCH:WORKING)
(vla-put-stylename ATT "ARIAL")
(vla-put-scalefactor ATT 1.0) ;;text width
)
)
)
)
)
)
(prompt
"\n* Attribute: Textstyle Notes completed *"
)
)
)
(princ)
)
[\code]
