图元怎么按照从左到右的位置关系排序？

ljcgq

图元怎么按照从左到右的位置关系排序？

meflying

在选择集中排序还是在图形中？

ljcgq

在选择集合中排序!!

ljcgq

下面是我用lisp 写了一个线段的排序程序,与、由于我知道的函数很少,可能走了很多弯路,肯望希望高手门多多指教,本人不胜感激!! ;=====================================
;本程序主要用于线段的图元排序,由无序的ss转换成有序的fs
;本程序运行时坐标系必须是世界坐标系。
;编程 LJC 2004.2.4 唐山
;=====================================
(defun c:stpx( / )
(setq ss0 (ssget '((0 . "line")) ))
(pnb ss0)
(px mxb)
(fs pb lt)
) ;****************构造表生成************
(defun pnb( ss / n pnb q zd md mdx mdy mdz )
(setq n 0)
(setq pnb nil)
(setq mxb nil)
(setq pb nil)
;(setq ss(ssget))
(setq n (sslength ss))
(repeat n
(setq n (- n 1))

(setq name(ssname ss n))
(setq q(entget name))
(setq qd (cdr(assoc 10 q)))
(setq qdx (car qd))
(setq qdy (cadr qd))
(setq qdz(caddr qd))
(setq zd (cdr(assoc 11 q)))
(setq zdx (car zd))
(setq zdy (cadr zd))
(setq zdz(caddr zd)) (setq mdx(+ (/ (- zdx qdx) 2) qdx))
(setq mdy(+ (/ (- zdy qdy) 2) qdy))
(setq mdz(+ (/ (- zdz qdz) 2) qdz))

(setq md(list mdx mdy mdz))
(setq pnb (list mdx name))
( setq pb (cons pnb pb) ) ; （中点x 坐标 图元名）表
(setq mxb (cons mdx mxb)) ; 中点x 坐标表
) )
;***********************中点x坐标排序*******
(defun px( l / lmin lmax )

(setq lt nil)
(setq n(length l))

(repeat n
(setq lmin(apply ' min l))
(setq lmax (apply 'max l))
(setq l(subst lmin lmax l) )
(setq lt(cons lmax lt) )
)

(print lt)
(print) )
;***********************图元排序****************
(defun fs (pb lt / fs a n mdx name )
(setq fs (ssadd))
(setq a 0)
(setq n (length lt))
(repeat n
(print a)
(setq mdx(nth a lt))
(print mdx)
(setq name (cdr (assoc mdx pb)))
(print name)
(setq name (car name))
(print name)
(ssadd name fs)
(setq a (+ a 1))
)
(setq fs0 fs)
(print a)
(print fs)
)

无痕

2. ;|(xss-softx ss) = 选集按dxf10坐标x从小到大排序－－－－－－－－－－－－－－－－－－－－－－－－－无痕.2004.1
3.   返回排序后的实体名列表.
4. ;(xss-sortx (ssget))
5. ;(vl-cmdf ".move" (nth 3 (xss-sortx (ssget))) "")
6. |;
7. (defun xss-sortx (ss / enlst)
8.    (repeat (setq n (sslength ss))
9.        (setq enlst (cons (cdr (assoc -1 (entget (ssname ss (setq n (1- n)))))) enlst))
10.    )
11.    (vl-sort enlst '(lambda (x y) (< (car (cdr(assoc 10 (entget x)))) (car (cdr(assoc 10 (entget y)))))))
12. )

;|(xss-softx ss) = 选集按dxf10坐标x从小到大排序－－－－－－－－－－－－－－－－－－－－－－－－－无痕.2004.1   返回排序后的实体名列表. ;(xss-sortx (ssget)) ;(vl-cmdf ".move" (nth 3 (xss-sortx (ssget))) "") |; (defun xss-sortx (ss / enlst)    (repeat (setq n (sslength ss))        (setq enlst (cons (cdr (assoc -1 (entget (ssname ss (setq n (1- n)))))) enlst))    )    (vl-sort enlst '(lambda (x y) (< (car (cdr(assoc 10 (entget x)))) (car (cdr(assoc 10 (entget y))))))) )

ljcgq

1.dxf10是什么意思?我不懂,能帮我解释一下吗?


2. 我希望的是按照图形在屏幕上的位置从左到右排序,


                         但是我用你的程序好象不是我的意思!?

ljcgq

无痕

2. ;|(xss-sortbox ss) = 选集按实体box从左到右排序－－－－－－－－－－－－－－－－－－－－－－－－－无痕.2004.1
3.   返回排序后的实体名列表.
4. ;(xss-sortbox (ssget))
5. ;(vl-cmdf ".move" (nth 3 (xss-sortbox (ssget))) "")
6. |;
7. (defun xss-sortbox (ss / enlst)
8.    (repeat (setq n (sslength ss))
9.        (setq enlst (cons (cdr (assoc -1 (entget (ssname ss (setq n (1- n)))))) enlst))
10.    )
11.    (vl-sort enlst '(lambda (x y) (< (car (xboxcen x)) (car (xboxcen y)))))
12. )
13. ;
14. (defun xboxcen (e)
15.    (setq eobj (vlax-ename->vla-object e))
16.    (vla-GetBoundingBox eobj 'minpt 'maxpt)
17.    (mapcar '(lambda (x y) (/ (+ x y) 2)) (vlax-safearray->list minpt) (vlax-safearray->list maxpt))
18. )

;|(xss-sortbox ss) = 选集按实体box从左到右排序－－－－－－－－－－－－－－－－－－－－－－－－－无痕.2004.1   返回排序后的实体名列表. ;(xss-sortbox (ssget)) ;(vl-cmdf ".move" (nth 3 (xss-sortbox (ssget))) "") |; (defun xss-sortbox (ss / enlst)    (repeat (setq n (sslength ss))        (setq enlst (cons (cdr (assoc -1 (entget (ssname ss (setq n (1- n)))))) enlst))    )    (vl-sort enlst '(lambda (x y) (< (car (xboxcen x)) (car (xboxcen y))))) ) ; (defun xboxcen (e)    (setq eobj (vlax-ename->vla-object e))    (vla-GetBoundingBox eobj 'minpt 'maxpt)    (mapcar '(lambda (x y) (/ (+ x y) 2)) (vlax-safearray->list minpt) (vlax-safearray->list maxpt)) )

BDYCAD

無痕您好 冒號: 是這樣的. 我也用到排序的程序如下. 由於我的要求也是很簡單的排序, 這個程序對目前的工作剛好達到要求. 我想再加以改進. 就是按實體的長度排序. 由短排到長, 我不知如何完善. 還望您可以在百忙之中抽出寶貴的時間看看. 謝謝. (defun computer0101(/ ss i ssd ssl sone slen ssda ssla)
(setq ss (ssget "x" '((8 . "0"))))
(setq i 0)
(setq ssd (ssadd))
(setq ssl (ssadd))
(repeat (sslength ss)
(setq sone (ssname ss i))
(setq slen(vlax-curve-getdistatparam
(setq env (vlax-ename->vla-object sone)); 取圖素的長度.
(vlax-curve-getendparam env)))
(if (< slen 20)
(setq ssd (ssadd sone ssd))
(setq ssl (ssadd sone ssl)))
(setq i (1+ i))
)
(setq i 0)
(repeat (sslength ssd)
(setq ssda(ssname ssd i))
(entmake (entget ssda))
(entdel ssda)
(setq i (1+ i)))
(setq i 0)
(repeat (sslength ssl)
(setq ssla (ssname ssl i))
(entmake (entget ssla))
(entdel ssla)
(setq i (1+ i)))
(princ))

龙龙仔

就是按實體的長度排序. 由短排到長 (defun C:TT (/ SS N LEN_LIST)
(setq SS (ssget '((0 . "*LINE")))
N 0
)
(repeat (sslength SS)
(setq
LEN_LIST (cons (list (setq ENT (ssname SS N))
(vlax-curve-getdistatparam
(setq ENT (vlax-ename->vla-object ENT))
(vlax-curve-getendparam ENT)
)
)
LEN_LIST
)
)
(setq N (1+ N))
)
(vl-sort LEN_LIST
(function (lambda (P1 P2) (< (cadr P1) (cadr P2))))
)
)