캐드 분류
리습문의사항
컨텐츠 정보
- 216 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
연속문자리습입니다. 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)
)
관련자료
댓글 1
/ 1 페이지