두개의 문자내용을 서로 바꿔 주는 리습 있을까요?

(defun c:TNT (/ #a #b #c #d) (vl-load-com) (setq #a(vlax-ename->vla-object(car(entsel “nSelect first:”))) #b(vlax-ename->vla-object(car(entsel “nSelect second:”))) #c(vla-get-textstring #a) #d(vla-get-textstring #b) ) (vla-put-textstring #a #d) (vla-put-textstring #b #c) );;defun

그대로 복사해서 했는데, 안되는데 뭐가 잘못된걸까요ㅠ 제가 리습추가를 못한걸까요,ㅠ

2008버젼 제가 쓰고 있는건데……..캐드 종류 버젼에 따른 애러 인것 같네요

밑에걸루 함 해보세요…….. (defun C:TNT () (setvar “cmdecho” 0) (setvar “blipmode” 0) (prompt “n** Text Select **”) (setq new-text (entsel) text-list (entget (car new-text)) new-string (cdr (assoc 1 text-list)) );;end of setq (prompt “n** Change Text **”) (setq sel (ssget)) (setq sl (sslength sel)) (setq cn 0) (while (< cn sl) (if (= “TEXT” (cdr (assoc 0 (entget (ssname sel cn))))) (progn (setq ef1 (ssname sel cn)) (setq el1 (entget ef1)) (setq el2 (cdr (assoc 1 el1))) (setq el3 (strcat new-string)) (setq el1 (subst (cons 1 el3) (assoc 1 el1) el1)) (entmod el1) (setq cn (+ 1 cn)) ); progn (setq cn (+ 1 cn)) );if );while (prin1) );defun

제가 2012버전 쓰고있습니다. 두번째로 주신것도 해봤는데 알수없는 명령이라고 자꾸 뜨네요 ㅠ_ㅠ

2023 버젼 쓰고있어요… 리습 로드가 안된듯하네요 ….apploae

감사합니다^^. 명령어를,,잘못 입력했었네요..죄송해요! 감사드립니다!!