2014리습 2012캐드에서도 되는 방법 알려주시면 감사해요~

어떻게 고쳐야 하는지 알려주시면 감사하겠습니다~!


(defun c:1 (/ sel_origin_txt1 sel_origin_txt origin_txt sel_change_txt1 sel_change_txt ch_txt)

  (setq sel_origin_txt1 (entsel "n복사할 문자 선택 :"))
 
  (while (= sel_origin_txt1 nil)
  (setq sel_origin_txt1 (entsel "n복사할 문자 선택 :"))
  )
  (setq sel_origin_txt (entget (car sel_origin_txt1 )))
  (setq origin_txt (cdr (assoc 1 sel_origin_txt)))
;;;  (princ (strcat "복사 하고 싶은 내용 : " origin_txt))

(setq continue t)
  (while (= continue t)
  (setq sel_change_txt1  (entsel "n변경할 문자 선택 :"))
  (while (= sel_change_txt1 nil)
(setq sel_change_txt1  (entsel "n변경할 문자 선택 :"))
    )
  (setq sel_change_txt  (entget (car sel_change_txt1)))
 
  (setq ch_txt (cdr (assoc 1 sel_change_txt)))
  (PRINC (strcat "n"     ch_txt      " 을(를)"
   "n"     origin_txt
   " 로(으로) 변경합니다."
  )
  )
  (entmod  (subst (cons 1 origin_txt)  (assoc 1 sel_change_txt)  sel_change_txt ))
        )
   

 
  (princ)
)