홈/ 질문/Q 101220
다음
진행 중
Lv.0
등록일: 2014-05-17T12:53:20+09:00 카테고리:

좌표의 순서 정렬 궁금합니다.

adf.jpg

위의 그림을 보시면 네모난 도곽에
서클이 불규칙하게 위치해 있는데요
제가 하고싶은건 서클의 위치가

‘오른쪽부터 왼쪽으로, 위에서,아래로’

의 기준을 적용하면 위의 빨간숫자 처럼 번호를 매길수 있거든요.
리습으로 좌표의  ‘오른쪽부터 왼쪽으로, 위에서,아래로’ 
정렬해서 위의 그림처럼 순번을 매기고싶은데…

알고리즘이 안떠오르네요…
이런방법이 가능할까요?

공유

    관련 있는 질문들

    4 답변

    1. aalan

    2. 그림은 정렬이 불규칙합니다. 1부터 9까지 정렬된 기준이 없는 것 같네요.

      • 0
    3. Lv.0
      아래 구문에서 각 변수들을 조정하면 원하는 결과를 얻을 수 있으실 듯 합니다.
      문자스타일,크기는 현재 설정된 치수스타일을 따라가도록 하였습니다.
      (defun c:NB ( / #SA #ST #Tol ss n li) ;광역변수 = #nbr
      (prompt (strcat “NUMBERINGn번호를 기입할 원 객체를 선택…”))
      (setq #SA ‘TR);TL=좌상,TR=우상,BL=좌하,BR=우하
      (setq #ST ‘X);진행방향설정, X=X방향, Y=Y방향
      (setq #Tol 1e-6);허용공차, 현재값 소숫점6자리, 상하한으로 적용됨(0.1 = 최대0.2)
      (setq ss (ssget (list (cons 0 “Circle”))))
      (mapcar ‘(lambda (x) (setq li (append li (vl-remove-if-not ‘(lambda (y) (= (type y) ‘ENAME)) x)))) (ssnamex ss))
      (setq li
        (vl-sort li
          ‘(lambda (a b)
            (if (= #ST ‘X)
      (if (equal (cadr (cdr (assoc 10 (entget a)))) (cadr (cdr (assoc 10 (entget b)))) #Tol)
       (if (or (= #SA ‘TR) (= #SA ‘BR))
         (> (car (cdr (assoc 10 (entget a)))) (car (cdr (assoc 10 (entget b)))))
           (< (car (cdr (assoc 10 (entget a)))) (car (cdr (assoc 10 (entget b)))))
       )
       (if (or (= #SA ‘TL) (= #SA ‘TR))
         (> (cadr (cdr (assoc 10 (entget a)))) (cadr (cdr (assoc 10 (entget b)))))
           (< (cadr (cdr (assoc 10 (entget a)))) (cadr (cdr (assoc 10 (entget b)))))
       )
      )
      (if (equal (car (cdr (assoc 10 (entget a)))) (car (cdr (assoc 10 (entget b)))) #Tol)
       (if (or (= #SA ‘TL) (= #SA ‘TR))
         (> (cadr (cdr (assoc 10 (entget a)))) (cadr (cdr (assoc 10 (entget b)))))
           (< (cadr (cdr (assoc 10 (entget a)))) (cadr (cdr (assoc 10 (entget b)))))
       )
       (if (or (= #SA ‘TR) (= #SA ‘BR))
         (> (car (cdr (assoc 10 (entget a)))) (car (cdr (assoc 10 (entget b)))))
           (< (car (cdr (assoc 10 (entget a)))) (car (cdr (assoc 10 (entget b)))))
       )
      )
            )
          )
        )
      )
      (or #nbr (= (type #nbr) ‘INT) (setq #nbr 0)) (setq #nbr (abs #nbr))
      (if (setq n (getint (strcat “n시작 번호 지정<” (rtos (1+ #nbr) 2 0)  “>: “))) (setq #nbr (1- (abs n)) n 0) (setq n 0))
      (repeat (length li)
        (entmake (list ‘(0 . “MTEXT”) ‘(100 . “AcDbEntity”) ‘(100 . “AcDbMText”) (cons 10 (cdr (assoc 10 (entget (nth n li))))) (cons 40 (* (getvar ‘dimtxt) (getvar ‘dimscale))) ‘(71 . 5) (cons 1 (rtos (setq #nbr (1+ #nbr)) 2 0)) (cons 7 (getvar ‘DIMTXSTY))))
        (setq n (1+ n))
      )
      (prompt (strcat “n번호를 ” (rtos n 2 0) “번까지 작성하였습니다.”))
      (princ)
      )
      • 0

    4. 스톰님 말씀처럼 규칙이 없어서 완벽하게 하는건 어려울듯 하네요

      • 0

    5. 3분다 답변에 감사드립니다~~~

      • 0