홈/ 질문/Q 109478
다음
진행 중
Lv.0
등록일: 2018-02-25T20:34:08+09:00 카테고리:

selection set 리스트를 x좌표를 기준으로 정렬(소트)하는 방법 질문드립니다.

안녕하세요.

selection set 리스트를 x좌표를 기준으로 정렬(소트)하는 방법 질문드립니다.

제가 구현하고 싶은 것은 사용자로부터 ssget을 통해 line들을 선택받은 뒤 그것을 리스트에 저장한 후, 그 리스트의 각 엔티티들을 선의 시작점 x좌표를 기준으로 오름차순 혹은 내림차순으로 정렬하여 저장하는 방법을 알고싶습니다.

검색해보니 vl-sort 와 lambda 기능을 활용하여 구현하는 것 같은데 자세한 사용 방법을 검색해도 찾을 수가 없어 구현하지 못하고 있습니다.

  (setq ss (ssget ‘( (0 . “LINE”) ) ) ) 를 통해 얻은 엔티티들을 정렬하는 방법 아시는 고수분 있으면 방법좀 부탁드리겠습니다.



추가)
  (vl-sort ss ‘(lambda (e1 e2) (> (cdr(assoc 10 (entget e1))) (cdr(assoc 10 (entget e2))) ) ) )
위의 코드를 짜봤는데,
; 오류: 잘못된 인수 유형: listp <Selection set: 9ff> 라고 나옵니다.

혹시 어떤 문제가 있는 걸까요…

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.21
      일단 오름차순 내림차순이 나오는 거 보니 라인이 수평라인이겠군요 
      라인 시작점에 대한 단순생각을 가지신거 보니 라인도 한 방향으로 그렸다는 얘기고요
      (좌에서 우로만 그렸던가 우에서 좌로만 그렸던가…)
      2두가지 추리를 기준으로 소트 기본만 적용된 단순 구문입니다 
      (defun c:ff(/ ss e L n)(vl-load-com)
       (setq ss (ssget (list(cons 0 “LINE”))) n 0)
       (repeat (sslength ss)
        (setq e(ssname ss n))
        (setq L(cons(cdr(assoc 10 (entget e)))L))
        (setq n (1+ n))
       )
       (setq L (vl-sort L ‘(lambda (a b)(< (cadr a)(cadr b))))); 오름차순
       (setq n 1)
       (foreach a L
          (ks_text a (getvar ‘textsize) (itoa n))
          (setq n (1+ n))
        )  
       (princ)
      ) 
      (defun ks_Text (pt hgt str)
        (entmakex (list (cons 0 “TEXT”)
                        (cons 10  pt)
                        (cons 40 hgt)
                        (cons 1  str)
                  )
        )
       )
      결과값 .
      녹화_2018_02_26_09_27_39_682.gif
      • 0

    3. 아, 수평라인이고 시작점과 끝점이 한 방향이라는 것을 기재했어야 했는데 제가 누락했군요.
      부족한 질문임에도 명쾌한 답변 주셔서 정말 감사드립니다. ㅠㅠ 딱 제가 찾던 그 소스입니다.
      써주신 답변 토대로 잘 적용하겠습니다. 감사합니다.

      • 0