리습문의사항

연속문자리습입니다. 2011버젼에서 잘 사용하다가

2015년 버젼으로 하니 먹히질 않더라고요

고수님들에게 여쭤봅니다.

(defun C:de( / ent entapp n)
  (setq ent (ssget '((0 . "text"))))  ;; text 만 선택된다….
  (if ent  ;; text 선택된것이 있다면.
    (progn
      (setq n 0)
      ;; select set 을 ename 리스트로 만든다.
      (repeat (sslength ent)
        (setq entapp (append entapp (list (ssname ent n)))
              n (1+ n)
        )
      )
      ;; text x 좌표를 기준으로 오름차순으로 리스트를 sort 한다.
      ;; 만약 y 좌표를 기준으로 오름차순으로 sort 하려면 (caddr (assoc 10 (entget e1))) 로 바꾸어 주면 된다.
      (setq entapp (vl-sort entapp '(lambda (e1 e2) (< (cadr (assoc 10 (entget e1))) (cadr (assoc 10 (entget e2)))))))
      ;; 순서대로 문자를 수정한다.
      (foreach x entapp
        (command "ddedit" x "")
      )     
    )
  )
     (setq osm(getvar "osmode"))
  (princ)
)