선택순으로 문자편집 lisp (2018로 바꾼후 안되네요.)

1. DDEDIT 선택순으로 문자 편집하기
2.폰트없는 글씨 다른 폰트로 한꺼번에 바꾸는 리습

그 전에는 아무탈 없이 사용했었는데 CAD2018버전으로 바꾸고 나서 어디서 충돌이 나는지 모르겠는데 골치아프네요. ㅜㅜ
리습이 뭐가 잘못 된건지 확인 부탁드립니다.
—————————————————————————————–
(defun c:dd(/ ss ssn a k en db1)
   (prompt “n선택순으로 문자편집 또는 <글쓰기순>:”)
   (setq ss (ssget ‘( (-4 . “<OR”)(0 . “TEXT,MTEXT,DIMENSION,ATTDEF”)
                      (-4 . “<AND”)(0 . “INSERT”)(66 . 1)
                      (-4 . “AND>”)(-4 . “OR>”)  ) ))(terpri)
   (if (= ss nil) (progn
      (prompt “n글쓰기순으로 문자편집하기…”)
      (setq ss (ssget ‘((0 . “TEXT,MTEXT”))))
      (setq ssnew (@ss_new_lst ss))
      (setq ss ssnew)  )
   )
   (prompt “nSpace Bar입력=>전단계 편집<U>상태로 돌아감…”)
   (setq ssn (sslength ss))
   (setq k 0)
   (while (< k ssn)
      (setq en (ssname ss k))
      (setq tem (cdr (assoc 0 (entget en))))
      (if (= tem “TEXT”) (redraw en 3))
      (command “ddedit” en “”)
      (setq db1 (cdr (assoc 1 (entget en))))
      (if (and (> k 0) (= db1 ” “))
         (progn (command “u”) (setq k (- k 2))))
      (if (= tem “TEXT”) (redraw en 4))
      (setq k (+ k 1))
   )
(prin1))
————————————————————-
(defun C:tt()
  (setq !Style (tblnext “STYLE” T))
  (while !Style
    (setq !Style (strcase (cdr (assoc 2 !Style))))
    (command “style” !Style “HY울릉도M.SHX” “0” “0.9” “0” “N” “N”)
    (setq !Style (tblnext “STYLE”))
  )
)
————————————————————————