글씨 바꾸기 리습인데요 여기서 다른기능 추가되나요?

 ;;CHANHEE LISP11 빽뜨기START
(defun c:BAT () ;; 글씨바꾸기
  (command “layer” “m” “TEXT” “c” “4” “” “”)
  (setq o_cmdecho (getvar “cmdecho”))
  (setvar “cmdecho” 0)
  (setq b (ssget))
  (command “chprop” b “” “la” “TEXT” “c” “bylayer” “”)
  (setvar “cmdecho” o_cmdecho)
  (princ)
)

(defun c:BATT () ;; 글씨바꾸기
  (command “layer” “m” “FF-TEXT” “c” “4” “” “”)
  (setq o_cmdecho (getvar “cmdecho”))
  (setvar “cmdecho” 0)
  (setq b (ssget))
  (command “chprop” b “” “la” “FF-TEXT” “c” “bylayer” “”)
  (setvar “cmdecho” o_cmdecho)
  (princ)
)

 ;;CHANHEE LISP11 빽뜨기END


이 리습은요 bat라는 명령어를 치면 글씨색이랑 레이어가 동시에 지정된걸로 바뀌는겁니다 ㅎㅎ

그런데 이 명령어를 쳤을때 글씨 폰트도 바뀌게 할수 있나요? 그 기능이 있으면 만들어 주실수있나요?

혹시나해서 올려봅니다…