간단 TEXT입력 수정 부탁드립니다.

안녕하세요?

현재 제가 쓰고 있는 리습입니다만,

여기서 명령어 치고 문자의 시작점, 문자의 높이지정, 내용 이런순서에서

문자의 높이를 그냥 현재의 “dimscale 값 x 3” 으로 고정되었으면 합니다.

그리고 내용 입력시 띄어쓰기 할려고 스페이를 누르면 엔터로 인식되어서

불편합니다 ㅠㅠ 부탁드려봅니다.

(defun c:tt ( / spt zza)
 (and
  (setq spt (getpoint “n문자의 시작점 지정: “))
  (setq sptt
   (cond
    (sptt
     (cond
      ((getdist spt (strcat “n문자의 높이 지정<” (vl-princ-to-string sptt) “>:”)))
      (sptt)
     )
    )
    ((getdist spt “n문자의 높이 지정:”))
   )
  )
  (setq zza (getstring “n : 원하는 글자를 입력하세요 —>  “))
  (progn
   (or
    (tblsearch “STYLE” “ROMANT”)
    (entmakex
     ‘(
      (0 . “STYLE”)
      (100 . “AcDbSymbolTableRecord”)
      (100 . “AcDbTextStyleTableRecord”)
      (2 . “유형33”)
      (70 . 0)
      (40 . 0.0)
      (41 . 1.0)
      (50 . 0.0)
      (71 . 0)
      (42 . 2.5)
;      (3 . “GulimChe.ttf”)
      (3 . “굴림”)
      (4 . “”)
     )
    )
   )
   (entmakex
    (list
     (cons 0 “TEXT”)
     (cons 10 (trans spt 1 0))
     (cons 40 sptt)
     (cons 1 zza)
     (cons 7 “유형33”)
     (cons 71 0)
     (cons 72 0)
     (cons 73 0)
    )
   )
  )
 )
 (princ)
)