Hi!
I have some circles in polygon, I have a routine for sorting X-direction from left to right. I need also sorting Right to Left direction.
Attached my routine for left to right direction.
Code:
(defun bns_esort (ss func / a lst e1 na n)
(setq ss2 (ssadd)) ;setq
(setq n 0)
(repeat (sslength ss)
(setq na (ssname ss n)
e1 (entget na)
) ;setq
;(setq lst (append lst
; (list (list (eval '(func e1))
; e1
; );list
; );list
; );append
;);setq
(setq lst (cons (list (eval '(func e1)) e1)
lst
) ;cons
) ;setq
(setq n (+ n 1)) ;setq
) ;repeat
(setq lst (acet-list-isort lst 0)) ;setq
(setq n 0)
(repeat (length lst)
(setq a (nth n lst)
a (cadr a)
a (cdr (assoc -1 a))
ss2 (ssadd a ss2)
) ;setq
(setq n (+ n 1)) ;setq
) ;repeat
ss2
)
Avinash