text 생성 리습 가능할까요?

안녕하세요~리습 질문이있어 이렇게 글을올립니다.
제가 간단하게 쓰는 TEXT리습인데요.
더 편리하게 바꾸어봤으면 좋겠어서 이렇게 문의 드립니다.
(일반적으로 위리습은 클릭한곳에 “ABCDE”를 적어주는 리습입니다)
==============================================================
(defun c:tt()
  (setq spt (getpoint “n시작점: “))
  (command “text” spt 25 0 “ABCDE”)
  (princ)
)
==============================================================

질문1.-STYLE을 바꿔서 설정가능하도록 가능한가요?

질문2.단축명령어를 적용후 “특정문구”를 작성후 시작점에 클릭하면 “특정문구”라는 문자가 작성되도록
           가능할까여?

(질문1),(질문2)를 한번에 적용되도록된다면 더감사할따름입니다.