도면 넘버링 리습 제작중에.

; alanjt
  ; http://forums.augi.com/showthread.php?137837-Sort-Selectionset-by-X-coord%22]http://forums.augi.com/showthread.php?137837-Sort-Selectionset-by-X-coord[/URL
  (defun _SortSSByXValue (sa / lst i e add)
    (if (eq (type sa) ‘PICKSET)
      (progn
        (repeat (setq i (sslength sa))
          (setq lst (cons (cons (setq e (ssname ss (setq i (1- i))))
                                (cadr (assoc 10 (entget e))))
                          lst)))
        (setq add (ssadd))
        (foreach e (vl-sort lst (function (lambda (a b) (< (cdr a) (cdr b)))))
          (ssadd (car e) add))
        (if (> (sslength add) 0)
          add))))
  ;;;;
;;; 선택된 박스를 좌에서 우측으로 쇼팅

(defun Maxp(entibox / apo xpo ypo xmaxq ymaxq pt1)
 (setq xent entibox)
   (setq lengent (length xent))
 (setq num 0)
   (setq elementen (assoc 10 xent))
  (setq xmaxq (cadr elementen))
   (setq ymaxq (caddr elementen))
 (repeat 2
   (repeat lengent
    (setq apo (nth num xent))
  (if (= (car apo) 10)
   (progn
    (setq xpo (cadr apo) ypo (caddr apo))
      (if (>= xpo xmaxq)(setq xmaxq xpo))
      (if (>= ypo ymaxq)(setq ymaxq ypo))
   )
  )
  (setq num (+ 1 num))
   ))
   (setq maxpt (list xmaxq ymaxq 0))
)

(defun Minp(entibox / apo xpo ypo xminq yminq pt2)
 (setq xent entibox)
   (setq lengent (length xent))
 (setq num 0)
   (setq elementen (assoc 10 xent))
  (setq xminq (cadr elementen))
   (setq yminq (caddr elementen))
 (repeat 2
  (repeat lengent
    (setq apo (nth num xent))
  (if (= (car apo) 10)
   (progn
    (setq xpo (cadr apo) ypo (caddr apo))
      (if (<= xpo xminq)(setq xminq xpo))
      (if (<= ypo yminq)(setq yminq ypo))
   )
  )
  (setq num (+ 1 num))
   ))
   (setq minpt (list xminq yminq 0))
)

;;;; 박스의 왼쪽 아래점과 오른쪽 위점을 추출
—————————————————————-

(defun c:ATN ()
        (setq ss (ssget (list (cons 8 “pl_box”))))
        (setq boxset (_SortSSByXValue ss))
        (setq boxsetlength (sslength boxset))
 (setq n 0)
         (repeat boxsetlength
         (setq xent (entget (ssname boxset n)))
    (setq pt1 (minp xent))
  (setq pt2 (maxp xent))
  (setq pt3 (car pt1))
                (setq pt4 (car pt2))
  (setq pt5 (cadr pt1)) 
                (setq dx (abs (- pt3 pt4)))
  (setq XSCALE (/ dx 420))
         (setq ts (* 3 XSCALE))
   (setq pp1 (+ pt3 (* 407.50 XSCALE)))
   (setq pp2 (+ pt5 (* 7.7 XSCALE)))
                (setq txt_pt (list pp1 pp2)) ; 여기를 list로 하면 잘못된건지 궁금합니다.
         (setq nums (+ n 1))
                (command “-text” “s” “견고딕” “j” “l” txt_pt ts “0” nums “”) ; txt_pt는 add watch 해보면 원하는 좌표로 나옴니다.
       (COMMAND “CHANGE” “L” “” “P” “C” “255” “”) ; 색상 변경
                (setq n (+ n 1)) ; 증가로 가는 거라. 끝이 안나나요?
         )
  )

;;;;

파일이 안열리면 스크립트라도 올려볼께요. 좀 긴데. 제가 건드린건 아래쪽 뿐이라.

네 본문삽입으로 다시 올렸습니다.

하하하.. 세시간을 날렸는데.ㅠ 그런일이.ㅎㅎ 감사합니다 덕분에 큰 교훈을 받은 느낌입니다.