Change Line space factor of MTexts in AA-TEXT-NOTE Layer

(defun KM:CLsfMT (/)
;; chage Line space factor of MText
(setq pt1 '(760 430))
(setq pt2 '(750 420))
(progn
;;(setq e (ssget))
(setq e (ssget "c" pt1 pt2))
(setq var (entget (ssname e 0)))
(setq old (assoc 44 var)) ;; (44 . 0.8348)
(setq new (cons 44 1.1)) ;; change Line space factor value to 1.1
(setq chg (subst new old var))
(entmod chg)
)

 

(defun KM:CLsfMT ( / e var old new chg )
;; chage Line space factor of ALL of MTexts
(setq e (ssget "x" '((0 . "MTEXT"))))
(setq i 0)
(setq cnt (sslength e))
(while (> cnt i)
(setq var (entget (ssname e i)))
(setq old (assoc 44 var)) ;; (44 . 0.8348)
(setq new (cons 44 1.1)) ;; change Line space factor value to 1.1
(setq chg (subst new old var))
(setq i (1+ i))
(entmod chg)
); end while
(princ))
(defun c:asf ()
(KM:CLsfMT)
)