[求助]：SSGET与SSNAME的对应关系？？

xbx7920

WCS下图面上有很多平行且相等的线段，用（S ETQ    SS （SSGET））把它们选择作为一个选择集，然后用（SSNAME SS I）分别得到它们，那么（SSNAME SS    0）， （SSNAME SS 1），。。。。。（SSNAME SS （SSLENGTH  SS））与
图面上的线段的位置是否有规律的对应关系？例如说（SSNAME SS 0）得到的是最上面的线条，（SSNAME SS 1）是与 上一条 最接近的线条，而（SSNAME SS （SSLENGTH SS））是最下面的线条。急盼！

libo2000

(ssget "x")中的(ssname)是 按最后->最先绘制的实体来排序的
(ssget )中的(ssname)是 按你最先选择->最后选择的实体来排序的

eachy

最初由 xbx7920 发布
[B]WCS下图面上有很多平行且相等的线段，用（S ETQ    SS （SSGET））把它们选择作为一个选择集，然后用（SSNAME SS I）分别得到它们，那么（SSNAME SS    0）， （SSNAME SS 1），。。。。。（SSNAME SS （SSLENGTH  S... [/B]

不要试图找这种对应,你还是自己去排序吧.

zhynt

找一下吧，论坛有提供按实体的x或y坐标排序的程序。
我这里也提供一个：

2. 
   
3. ;;
   
4. ;;将选择的图元安X、Y或X+Y坐标排序 （其中SE为选择集，XORY为X、Y或XY
   
5. ;;
   
6. (defun zhy_sort_se (se xory)
   
7.   (setq newse nil)
   
8.   (setq n (sslength se))
   
9.   (setq index 0)
   
10.   (setq aal '())
    
11.   (repeat n
    
12.     (setq name (ssname se index))
    
13.     (setq lp (entget name))
    
14.     (if        (or (= xory "y") (= xory "Y"))
    
15.       (setq coy (caddr (assoc 10 lp)))
    
16.     )
    
17.     (if        (or (= xory "x") (= xory "X"))
    
18.       (setq coy (cadr (assoc 10 lp)))
    
19.     )
    
20.     (if        (or (= xory "xy") (= xory "XY"))
    
21.       (setq coy (+ (cadr (assoc 10 lp)) (caddr (assoc 10 lp))))
    
22.     )
    
23.     (setq item (list coy (cdr (assoc 5 lp))))
    
24.     (setq aal (cons item aal))
    
25.     (setq index (1+ index))
    
26.   )
    
27.   (setq        newsort
    
28.          (vl-sort aal
    
29.                   (function (lambda (e1 e2)
    
30.                               (> (car e1) (car e2))
    
31.                             )
    
32.                   )
    
33.          )
    
34.   )
    
35.   (setq n1 (length newsort))
    
36.   (setq ind 0)
    
37.   (repeat n1
    
38.     (setq ntt (nth ind newsort))
    
39.     (setq ind (1+ ind))
    
40.     (setq ty (handent (cadr ntt)))
    
41.     (if        (/= ty nil)
    
42.       (if (= newse nil)
    
43.         (setq newse (ssadd ty))
    
44.         (setq newse (ssadd ty newse))
    
45.       )
    
46.     )
    
47.   )
    
48. )
    

<br /> ;;<br /> ;;将选择的图元安X、Y或X+Y坐标排序 （其中SE为选择集，XORY为X、Y或XY<br /> ;;<br /> (defun zhy_sort_se (se xory)<br />   (setq newse nil)<br />   (setq n (sslength se))<br />   (setq index 0)<br />   (setq aal '())<br />   (repeat n<br />     (setq name (ssname se index))<br />     (setq lp (entget name))<br />     (if        (or (= xory "y") (= xory "Y"))<br />       (setq coy (caddr (assoc 10 lp)))<br />     )<br />     (if        (or (= xory "x") (= xory "X"))<br />       (setq coy (cadr (assoc 10 lp)))<br />     )<br />     (if        (or (= xory "xy") (= xory "XY"))<br />       (setq coy (+ (cadr (assoc 10 lp)) (caddr (assoc 10 lp))))<br />     )<br />     (setq item (list coy (cdr (assoc 5 lp))))<br />     (setq aal (cons item aal))<br />     (setq index (1+ index))<br />   )<br />   (setq        newsort<br />          (vl-sort aal<br />                   (function (lambda (e1 e2)<br />                               (> (car e1) (car e2))<br />                             )<br />                   )<br />          )<br />   )<br />   (setq n1 (length newsort))<br />   (setq ind 0)<br />   (repeat n1<br />     (setq ntt (nth ind newsort))<br />     (setq ind (1+ ind))<br />     (setq ty (handent (cadr ntt)))<br />     (if        (/= ty nil)<br />       (if (= newse nil)<br />         (setq newse (ssadd ty))<br />         (setq newse (ssadd ty newse))<br />       )<br />     )<br />   )<br /> )<br />