请教各位大神一个问题，SSGET选择集执行顺序的问题！

312735894

如上图，用“ssget”框选上图所有的图形，不知道有没有什么办法让程序首先处理最外面红色的多段线，然后在处理里面的多段线啊？？？？

自贡黄明儒

ssget没有办法，只有用程序解决。

fl202

找规律用选择集排序，或者选择的时候手动选先后。

本论坛有许多选择集排序的例子。

llsheng_73

如果只是象上边的图那样可以把选择集按面积从大到小排序后进行处理
也可以根据后边的具体处理办法考虑要不要在第一次SSGET框选时过滤到里边的白线(如果它们的图层或者颜色与红线可以区分的话很容易过滤)，这样先过滤了的话就不用排序了，处理每一根红线时再用红线的坐标进行ssget“wp”去选择里边的白线来进行处理
当然究竟怎么弄要根据后续的处理方式来决定

edata

llsheng_73 发表于 2014-1-3 09:54
如果只是象上边的图那样可以把选择集按面积从大到小排序后进行处理

楼主的意图是计算红色线，再处理红色线内的白色线，完成后继续处理红色线，处理红色线的白色线。。。。所以，简单的面积计算排序不合适，理论上说还得判断多边形位置关系。

llsheng_73

(defun SstoEs(ss / a en lst)
  (if ss(progn(setq a -1)
         (while(setq en(ssname ss(setq a(1+ a))))
           (setq lst(cons en lst)))))
  lst)
(defun Plinexy(e / p a b n ob q et d d1 en et) ;;多线段节点坐标(滤掉了多余点，未处理假闭合)
   (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)
   (cond((="LWPOLYLINE"et)
         (repeat(length a)(setq b (nth n a) n (+ n 1))
           (if (= 10 (car b))(progn
                               (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))
                               (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
                                 (setq p (list q))))
             )))
        ((="POLYLINE"et)
         (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
         (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")
           (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))
           (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
             (setq p (list q)))
           (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))
         (setq p(reverse p))
         ))
   P)

(setq ss(sstoes(ssget'((0 . "*lyline")(-4 . "<OR")(70 . 1)(70 . 129)(-4 . "OR>"))))m(length ss)n 0;;;其实这里可以加上过滤去掉白线
      ss(vl-sort ss'(lambda(x y)(>(vla-get-area(vlax-ename->vla-object x))(vla-get-area(vlax-ename->vla-object y))))))
(while(< n m)
  (setq e(nth n m)n(1+ n)
        s1(sstoes(ssget"wp"(plinexy e)'((0 . "*lyline")(-4 . "<OR")(70 . 1)(70 . 129)(-4 . "OR>")))))
  ;;添加对红线的处理;;
  (foreach e1 s1
    (setq ss(vl-remove e1 ss)m(1- m))
    ;;添加对白线的处理;;
    )
  )

edata

我来个慢的。

2. ;;;******************************************************************************
   
3. ;;; No.51 判断点是否在多边形内(狂刀程序)
   
4. ;;;xPt是要判断的点坐标(x y z ), Points是多边形顶点列表((x1 y1 z1) (x2 y2 z2)...)
   
5. ;;;******************************************************************************
   
6. ;;; 测试 (ISPTINPM '(2 1) '((0 0)(10 0)(10 10)))
   
7. (defun ISPTINPM (XPT POINTS)
   
8. (equal
   
9. pi
   
10. (abs
    
11. (apply
    
12. '+
    
13. (mapcar
    
14. '(lambda (X Y)
    
15. (rem (- (angle XPT X) (angle XPT Y)) pi)
    
16. )
    
17. (reverse (cdr (reverse (cons (last POINTS) POINTS)))
    
18. )
    
19. POINTS
    
20. )
    
21. )
    
22. )
    
23. 1e-6
    
24. ) ;end_equal
    
25. )
    
26. ;;返回多段线顶点表
    
27. (defun vertexs (ename / plist pp n)        
    
28.   (setq obj (vlax-ename->vla-object ename))
    
29.   (setq plist (vlax-safearray->list
    
30.   (vlax-variant-value
    
31.     (vla-get-coordinates obj))))
    
32.   (setq n 0)
    
33.   (repeat (/ (length plist) 2)
    
34.     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
    
35.     (setq n (+ n 2))
    
36.   )
    
37.   pp
    
38. )
    
39. (defun combination (lst m);组合函数
    
40.   (cond        ((zerop m) '(()))
    
41.         ((null lst) '())
    
42.         (T
    
43.          (append (mapcar '(lambda (y) (cons (car lst) y))
    
44.                          (combination (cdr lst) (- m 1))
    
45.                  )
    
46.                  (combination (cdr lst) m)
    
47.          )
    
48.         )
    
49.   )
    
50. )
    
51. ;主程序
    
52. (defun c:tt(/ COM_LST EN ENLST1 ENLST2 ENT1 ENT2 EN_LST SS SS_LST
    
53.             CENPTS CENT1 CENT2 NEW_LST OVERLST SK_NUM1 SS2
    
54.             EN2 SS_NEW S_LST2 X
    
55.             )
    
56.   (vl-load-com)
    
57.   (if (setq ss(ssget'((0 . "lwpolyline"))))
    
58.     (progn
    
59.       (setq ss_lst '());转选择集为表
    
60.       (while (setq en(ssname ss 0))
    
61.         (setq ss_lst(cons en ss_lst))
    
62.         (setq ss(ssdel en ss))
    
63.         )
    
64.       (setq ss_lst(reverse ss_lst))
    
65.       (if(> (length ss_lst) 1)
    
66.         (setq com_lst(combination ss_lst 2)));组合表
    
67.       (if com_lst
    
68.         (progn
    
69.           (setq new_lst '());判断外框
    
70.           (while(setq en_lst(car com_lst))
    
71.           (setq ent1(car en_lst)
    
72.                 ent2(cadr en_lst)
    
73.                 )
    
74.           (setq enlst1(vertexs ent1)
    
75.                 enlst2(vertexs ent2)
    
76.                 )
    
77.           (cond
    
78.             ((ISPTINPM (car enlst1) enlst2);只取一点判断
    
79.              ;(princ "\nA")
    
80.              ;(vla-put-color (vlax-ename->vla-object ent2) 6)
    
81.              (setq new_lst(cons ent2 new_lst))
    
82.              )
    
83.             ((ISPTINPM (car enlst2) enlst1)
    
84.              ;(princ "\nB")
    
85.              ;(vla-put-color(vlax-ename->vla-object ent1) 6)
    
86.              (setq new_lst(cons ent1 new_lst))
    
87.              )
    
88.             ;(T (princ"\nC"))
    
89.             )
    
90.             (setq com_lst(cdr com_lst))
    
91.             )
    
92.           )
    
93.         )      
    
94.       (if (and new_lst (> (length new_lst) 0 ))
    
95.         (progn
    
96.           (setq ss_new(ssadd))
    
97.           (mapcar'(lambda (x) (setq ss_new(ssadd x ss_new))) new_lst)
    
98.           (setq s_lst2 '());转选择集为表
    
99.       (while (setq en2(ssname ss_new 0))
    
100.         (setq s_lst2(cons en2 s_lst2))
     
101.         (setq ss_new(ssdel en2 ss_new))
     
102.         )
     
103.           (setq new_lst (reverse s_lst2))
     
104.           (setq sk_num1 1 overlst '());处理外框并选择内部图元
     
105.           (while (setq cent1(car new_lst))
     
106.             (setq overlst(cons (list  sk_num1 (setq cenpts(vertexs cent1))) overlst))
     
107.             (vl-cmdf "_.zoom" "o" cent1 "");缩放视口 &&有的版本可能不行
     
108.             (if (setq ss2(ssget "_wp" cenpts '((0 . "lwpolyline"))))
     
109.               (progn
     
110.                 (while (setq cent2(ssname ss2 0))
     
111.                   (setq overlst(cons (list  sk_num1 (vertexs cent2)) overlst))
     
112.                   (setq ss2 (ssdel cent2 ss2))
     
113.                   )
     
114.                 )
     
115.               )
     
116.             (vl-cmdf "_.zoom" "p");恢复视口
     
117.             (setq new_lst(cdr new_lst)
     
118.                   sk_num1 (1+ sk_num1))
     
119.             )
     
120.           (setq overlst(reverse overlst))
     
121.           )
     
122.         )
     
123.       (princ overlst)
     
124.       ;(princ new_lst)
     
125.       )
     
126.     )
     
127.   (princ)
     
128.   )
     
129. ;;;(defun c:tt() ;狂刀的点在多边形内判断测试 对有弧线的pl线无效 点在线上可能不准确
     
130. ;;;  (setq p1(getpoint))
     
131. ;;;  (setq en(car(entsel)))
     
132. ;;;  (setq lst (vertexs en))
     
133. ;;;  (ISPTINPM p1 lst)
     
134. ;;;  )
     
135. 
     
136. ;;;
     
137. ;;;((1 ((920.438 421.839) (1029.87 421.839) (1070.91 371.163) (1070.91 296.573)
     
138. ;;;(1014.48 296.573) (985.415 346.679) (935.257 373.441) (911.888 402.48))) (1
     
139. ;;;((1042.22 365.269) (1050.64 359.104) (1054.29 316.506) (1040.82 309.22)
     
140. ;;;(1029.04 317.347) (1029.04 349.015))) (1 ((955.18 402.184) (981.172 386.605)
     
141. ;;;(1010.76 362.637) (1027.16 385.806) (1010.36 409.774) (1002.77 409.774)
     
142. ;;;(979.972 409.774))) (2 ((1114.27 534.255) (1223.7 534.255) (1264.74 483.579)
     
143. ;;;(1264.74 408.989) (1208.31 408.989) (1179.25 459.095) (1129.09 485.857)
     
144. ;;;(1105.72 514.896))) (2 ((1236.06 477.685) (1244.47 471.52) (1248.12 428.923)
     
145. ;;;(1234.65 421.636) (1222.87 429.763) (1222.87 461.431))) (2 ((1149.01 514.6)
     
146. ;;;(1175.0 499.021) (1204.59 475.053) (1220.99 498.222) (1204.19 522.19) (1196.6
     
147. ;;;522.19) (1173.8 522.19))))
     

;;;******************************************************************************<br /> ;;; No.51 判断点是否在多边形内(狂刀程序) <br /> ;;;xPt是要判断的点坐标(x y z ), Points是多边形顶点列表((x1 y1 z1) (x2 y2 z2)...) <br /> ;;;******************************************************************************<br /> ;;; 测试 (ISPTINPM '(2 1) '((0 0)(10 0)(10 10)))<br /> (defun ISPTINPM (XPT POINTS)<br /> (equal<br /> pi<br /> (abs<br /> (apply<br /> '+<br /> (mapcar<br /> '(lambda (X Y)<br /> (rem (- (angle XPT X) (angle XPT Y)) pi)<br /> )<br /> (reverse (cdr (reverse (cons (last POINTS) POINTS)))<br /> )<br /> POINTS<br /> )<br /> )<br /> )<br /> 1e-6<br /> ) ;end_equal<br /> )<br /> ;;返回多段线顶点表<br /> (defun vertexs (ename / plist pp n)        <br />   (setq obj (vlax-ename->vla-object ename))<br />   (setq plist (vlax-safearray->list<br />   (vlax-variant-value<br />     (vla-get-coordinates obj))))<br />   (setq n 0)<br />   (repeat (/ (length plist) 2)<br />     (setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))<br />     (setq n (+ n 2))<br />   )<br />   pp<br /> )<br /> (defun combination (lst m);组合函数<br />   (cond        ((zerop m) '(()))<br />         ((null lst) '())<br />         (T<br />          (append (mapcar '(lambda (y) (cons (car lst) y))<br />                          (combination (cdr lst) (- m 1))<br />                  )<br />                  (combination (cdr lst) m)<br />          )<br />         )<br />   )<br /> )<br /> ;主程序<br /> (defun c:tt(/ COM_LST EN ENLST1 ENLST2 ENT1 ENT2 EN_LST SS SS_LST<br />             CENPTS CENT1 CENT2 NEW_LST OVERLST SK_NUM1 SS2<br />             EN2 SS_NEW S_LST2 X<br />             )<br />   (vl-load-com)<br />   (if (setq ss(ssget'((0 . "lwpolyline"))))<br />     (progn<br />       (setq ss_lst '());转选择集为表<br />       (while (setq en(ssname ss 0))<br />         (setq ss_lst(cons en ss_lst))<br />         (setq ss(ssdel en ss))<br />         )<br />       (setq ss_lst(reverse ss_lst))<br />       (if(> (length ss_lst) 1)<br />         (setq com_lst(combination ss_lst 2)));组合表<br />       (if com_lst<br />         (progn<br />           (setq new_lst '());判断外框<br />           (while(setq en_lst(car com_lst))<br />           (setq ent1(car en_lst)<br />                 ent2(cadr en_lst)<br />                 )<br />           (setq enlst1(vertexs ent1)<br />                 enlst2(vertexs ent2)<br />                 )<br />           (cond<br />             ((ISPTINPM (car enlst1) enlst2);只取一点判断<br />              ;(princ "\nA")<br />              ;(vla-put-color (vlax-ename->vla-object ent2) 6)<br />              (setq new_lst(cons ent2 new_lst))<br />              )<br />             ((ISPTINPM (car enlst2) enlst1)<br />              ;(princ "\nB")<br />              ;(vla-put-color(vlax-ename->vla-object ent1) 6)<br />              (setq new_lst(cons ent1 new_lst))<br />              )<br />             ;(T (princ"\nC"))<br />             )<br />             (setq com_lst(cdr com_lst))<br />             )<br />           )<br />         )      <br />       (if (and new_lst (> (length new_lst) 0 ))<br />         (progn<br />           (setq ss_new(ssadd))<br />           (mapcar'(lambda (x) (setq ss_new(ssadd x ss_new))) new_lst)<br />           (setq s_lst2 '());转选择集为表<br />       (while (setq en2(ssname ss_new 0))<br />         (setq s_lst2(cons en2 s_lst2))<br />         (setq ss_new(ssdel en2 ss_new))<br />         )<br />           (setq new_lst (reverse s_lst2))<br />           (setq sk_num1 1 overlst '());处理外框并选择内部图元<br />           (while (setq cent1(car new_lst))<br />             (setq overlst(cons (list  sk_num1 (setq cenpts(vertexs cent1))) overlst))<br />             (vl-cmdf "_.zoom" "o" cent1 "");缩放视口 &&有的版本可能不行<br />             (if (setq ss2(ssget "_wp" cenpts '((0 . "lwpolyline"))))<br />               (progn<br />                 (while (setq cent2(ssname ss2 0))<br />                   (setq overlst(cons (list  sk_num1 (vertexs cent2)) overlst))<br />                   (setq ss2 (ssdel cent2 ss2))<br />                   )<br />                 )<br />               )<br />             (vl-cmdf "_.zoom" "p");恢复视口<br />             (setq new_lst(cdr new_lst)<br />                   sk_num1 (1+ sk_num1))<br />             )<br />           (setq overlst(reverse overlst))<br />           )<br />         )<br />       (princ overlst)<br />       ;(princ new_lst)<br />       )<br />     )<br />   (princ)<br />   )<br /> ;;;(defun c:tt() ;狂刀的点在多边形内判断测试 对有弧线的pl线无效 点在线上可能不准确<br /> ;;;  (setq p1(getpoint))<br /> ;;;  (setq en(car(entsel)))<br /> ;;;  (setq lst (vertexs en))<br /> ;;;  (ISPTINPM p1 lst)<br /> ;;;  )<br /> <br /> ;;;<br /> ;;;((1 ((920.438 421.839) (1029.87 421.839) (1070.91 371.163) (1070.91 296.573) <br /> ;;;(1014.48 296.573) (985.415 346.679) (935.257 373.441) (911.888 402.48))) (1 <br /> ;;;((1042.22 365.269) (1050.64 359.104) (1054.29 316.506) (1040.82 309.22) <br /> ;;;(1029.04 317.347) (1029.04 349.015))) (1 ((955.18 402.184) (981.172 386.605) <br /> ;;;(1010.76 362.637) (1027.16 385.806) (1010.36 409.774) (1002.77 409.774) <br /> ;;;(979.972 409.774))) (2 ((1114.27 534.255) (1223.7 534.255) (1264.74 483.579) <br /> ;;;(1264.74 408.989) (1208.31 408.989) (1179.25 459.095) (1129.09 485.857) <br /> ;;;(1105.72 514.896))) (2 ((1236.06 477.685) (1244.47 471.52) (1248.12 428.923) <br /> ;;;(1234.65 421.636) (1222.87 429.763) (1222.87 461.431))) (2 ((1149.01 514.6) <br /> ;;;(1175.0 499.021) (1204.59 475.053) (1220.99 498.222) (1204.19 522.19) (1196.6 <br /> ;;;522.19) (1173.8 522.19))))<br />

312735894

llsheng_73 发表于 2014-1-3 10:40
(defun SstoEs(ss / a en lst)
  (if ss(progn(setq a -1)
         (while(setq en(ssname ss(setq a(1+ ...

谢谢大大解答！受益匪浅！

312735894

edata 发表于 2014-1-3 11:44
我来个慢的。

谢谢大神解答，谢谢了！