리습 강좌 - 여러 text 를 한번에 선택하여 ddedit (문자수정) 하기 예제.

본 강좌는 아키오피스(김희태)에 의해 만들어 졌으며 어떠한 웹이나
출판물에 아키오피스(김희태)의 동의없이 올리는 것을 허락하지 않습니다.

 

이 예제는 수정하고자 하는 문자들을 한번에 선택하여
선택된 문자들을 연속으로 ddedit 명령으로써 문자를 수정하는 기능입니다.


(m-ddedit) =>수정할 문자들 선택 => 연속으로 ddedit창이 뜸.

 
코드
  
(defun m-ddedit ( / ent entapp n)
  (setq ent (ssget '((0 . "text"))))
  (if ent
    (progn
      (setq n 0)
      (repeat (sslength ent)
        (setq entapp (append entapp (list (ssname ent n)))
              n (1+ n)
        )
      )
      (setq entapp (vl-sort entapp '(lambda (e1 e2) (< (cadr (assoc 10 (entget e1))) (cadr (assoc 10 (entget e2)))))))
      (foreach x entapp
        (command "ddedit" x "")
      )      
    )
  )
  (princ)
)
설명

(defun m-ddedit ( / 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 "")
      )      
    )
  )
  (princ)
)