글자 기울기 10도 및 색상 추가 수정 가능할까요.

리습 잘쓰고 있습니다.
글자 기울기 및 색상 하늘색으로 추가 수정 가능할까요
부탁 드립니다.

(defun c:ctt( / sl-addstyle style ss temp color cp)  
 (defun sl-addstyle(nm)
  (if (not (tblsearch "STYLE" nm))
   (entmake (list (cons 0 "STYLE") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbTextStyleTableRecord") (cons 2 nm)
   (cons 70 0) (cons 40 0.0) (cons 41 1.0) (cons 50 0.0) (cons 71 0) (cons 42 0.2) (cons 3 "romans.shx") (cons 4 "whgtxt.shx")))
  )
 )
 (and
  (or (tblsearch "STYLE" (setq style "K")) (sl-addstyle "K"))
  (princ "n같은명칭의 원을 선택하시요.")
  (setq ss (ssget '((0 . "CIRCLE"))))
  (setq sbm
   (cond
    ((and sbm (/= sbm "")) (cond ((/= (setq temp (getstring (strcat "n기호문자를 입력(RP, GP…) <" (vl-princ-to-string sbm) ">:"))) "") temp) (sbm)))
    ((/= (setq temp (getstring "n기호문자를 입력(RP, GP…):")) "") temp)
   )
  )
  (setq th
   (cond
    (th  (cond ((getreal (strcat "n문자의 높이를 입력 <" (vl-princ-to-string th) ">:"))) (th)))
    ((getreal "n문자의 높이를 입력:"))
   )
  )
  (progn
   (setq color (getvar "dimclrt"))
   (foreach en (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    (setq cp (cdr (assoc 10 (entget en))))
    (entmake
     (list (cons 0 "TEXT") (cons 10 cp) (cons 40 th) (cons 1 sbm) (cons 8 "dim") (cons 7 style) (cons 71 0) (cons 72 1) (cons 11 cp) (cons 73 2))
    )
   )
  )
 )
 (princ)
)