7400 7000 600 650 4500 4000 이런값의 리스트가 a 라고 할때
(setq b (vl-sort a ‘(lambda (itm1 itm2) (> (itoa itm1) (itoa itm2)))))
이렇게 소트를 시키니

7400 7000 650 600 4500 4000 이렇게 소트가 되더라구요 아마도 맨 앞자리 숫자 기준으로 소트가 된것 같은데

7400 7000 4500 4000 650 600 이렇게 오름 차순으로 어떻게 소트 시키는지 가르쳐 주시면 정말 감사하겠습니다

(defun GetPolyVtx (EntList)
(setq VtxList ‘())
(foreach x EntList
(if (= (car x) 10)
(setq VtxList (append VtxList (list (cdr x))))
)
)
VtxList
);defun
;;==================================================
(defun c:sort ( )
(setq txtv 3)
(setq sf (getvar “dimscale”))
(setq se (* txtv sf))
(setq sn 1)

(if (= $real nil)
(setq $real1 1.0
$real 1.0)
(setq $real1 $real)
)

(setq xsels (ssget “x” (list (cons 8 “PC-COL-예비”)(cons 0 “LWPOLYLINE,POLYLINE”))))
(command “area” “o” ent)
(if xsels
(progn
(setq sslen (sslength xsels))
(setq n 0)
(repeat sslen
(setq entapp (append entapp (list (ssname xsels n)))
n (1+ n)
);setq
);repeat
(setq entapp (vl-sort entapp ‘(lambda (e1 e2) (> (car (assoc 10 (entget e1))) (cadr (assoc 11 (entget e2))))
(< (car (assoc 10 (entget e1))) (cadr (assoc 11 (entget e2)))))));;X,Y열 정렬
(foreach x entapp
(setq $area (rtos (* (getvar “area”) 0.000001 $real) 2 2))
(setq $_l1 (distance (car (GetPolyVtx (entget x))) (cadr (GetPolyVtx (entget x)))));x열 거리 계산
(setq $_l2 (distance (cadr (GetPolyVtx (entget x))) (caddr (GetPolyVtx (entget x)))));y열거리계산
(setq dist (distance (car (GetPolyVtx (entget x))) (caddr (GetPolyVtx (entget x)))));min_x열~max_y열 거리계산
(setq ana1 (angle (car (GetPolyVtx (entget x))) (caddr (GetPolyVtx (entget x)))));min_x열~max_y열 각도계산
(setq ana2 (angtos ana1))
(setq anga (atof ana2))
(setq anb1 (angle (car (GetPolyVtx (entget x))) (cadr (GetPolyVtx (entget x)))));x열 각도계산
(setq anb2 (angtos anb1))
(setq angb (atof anb2))
(command “line” (car (GetPolyVtx (entget x))) (caddr (GetPolyVtx (entget x)))””);min_x열~max_y열 라인긋기

(setq pnt (polar (car (GetPolyVtx (entget x))) (dtr anga) (/ dist 2)))
(command “text” “j” “mc” pnt SE “0” sn )
(setq sn (+ sn 1))

);foreach
);progn
);if

강태식님의 소스를 약간 변경시켜서 작업중입니다. ^^
그런데 객체를 소트시키면 도면에서 보시는데로 Y좌표먼저 X좌표순으로 번호를 주고 싶은데 생각대로 잘 안되네요 두번째 줄을 보시면 아실수 있습니다. 번호가 제대로 들어갈수 있도록 도움 부탁드립니다. ^^

(setvar “osmode” oldosm)
(princ)
);;defun