지적도의 지목을 편하게 쓰려고 만든 리습인데 전엔 잘 되다가 갑자기 안되는 이유가 뭔지 모르겠습니다.
뭐가 잘못되서인지 알려주셨으면……….. ^^
(defun c:yt()
(command “cmdecho” “0”)
(setq va (getvar “textstyle”))
(if (/= va “ghs”) (command “style” “ghs” “romans,cadsg” “” “” “” “” “”))
(setq pt (getpoint “Start point: “))
(setq sc (getdist pt “Text size<2.2>: “))
(if (= sc nil) (setq sc 2.2))
(setq an (getangle pt “Rotation Angle<0>: “))
(if (= an nil) (setq an 0) (setq an (/ (* an 180) pi)))
(while pt
(setq st (getstring “Text: “))
(setq l (strlen st))
(setq i 1)
(setq jt “”)
(repeat l
(setq at (substr st j 1))
(tk)
(SETQ JT (STRCAT JT MK))
(setq i (+ 1 j))
)
(command “text” pt sc an jt)
(setq pt (getpoint “Start point: “))
)
(princ “n Exiting YT text…”)
(princ)
)
(defun tk()
(setq at (strcase at))
(cond
((= at “A”) (setq MK “도”))
((= at “.”) (setq MK “대”))
((= at “C”) (setq MK “답”))
((= at “D”) (setq MK “전”))
((= at “E”) (setq MK “산”))
((= at “F”) (setq MK “학”))
((= at “G”) (setq MK “임”))
((= at “H”) (setq MK “철”))
((= at “I”) (setq MK “구”))
((= at “J”) (setq MK “사”))
((= at “K”) (setq MK “종”))
((= at “L”) (setq MK “과”))
((= at “M”) (setq MK “광”))
((= at “N”) (setq MK “유”))
((= at “O”) (setq MK “원”))
((= at “P”) (setq MK “목”))
((= at “Q”) (setq MK “수”))
((= at “R”) (setq MK “운”))
((= at “S”) (setq MK “염”))
((= at “T”) (setq MK “공”))
((= at “U”) (setq MK “제”))
((= at “V”) (setq MK “잡”))
((= at “W”) (setq MK “천”))
((= at “X”) (setq MK “장”))
((= at “Y”) (setq MK “가”))
((= at “Z”) (setq MK ” 묘”))
(t (setq mk at))
)
)
(PRINC “NC:YT”)
(princ)