모든 MTEXT의 LINE SPACE FACTOR를 1로 변경하는 리습

안녕하세요. 제목처럼 모든 MTEXT의 LINE SPACE FACTOR를 1로 변경하는 리습이 필요합니다.
외부프로그램을 이용해서 캐드파일을 생성하고 정리하는데, 간혹 LINE SPACE값이 엉켜서
MTEXT의 줄간격이 이상하게 되어버려서 매번 퀵셀렉트로 선택해서 설정창에서 LINE SPACE FACTOR값을 1로
바꾸는 일을 합니다.

구글링을 해보아도, 선택한 객체의 LINE SPACE FACTOR를 1로 변경하는 건 있어도 전체를 선택해서 변경하는
리습은 나오지 않아서 여기에 질문글을 올려보아요.

다른 리습보고 이렇게 만들면 되나 싶어서 만들어보았으나

(defun c:RS (/ getmtexts vla_object)
    (vl-load-com)
    (setq getmtexts (ssget "_x" '((0 . "MTEXT"))))
    (setq vla_object (vlax-ename->vla-object getmtexts))
    (vla-put-LineSpacingFactor vla_object 1)
)

작동하지 않습니다. 실력이 미천하여, 왜 안되는지도 모르겠네요.