第一次发帖恳请大家帮帮忙！筛选扩展属性

yaokui25

要求写在资料里了，就是如何过滤掉附件内的两种情况。
在这里谢谢大家。

newer

1、你是想SSGET时候过滤掉？
2、你要过滤掉的和其他 有什么不同？ 图片上没看出来。

yaokui25

newer 发表于 2017-6-10 21:28

图片中的画云线的两种情况想从选择集中剔除。
只有1条线 或者 1两条以上并不相连的线 且不含有 "PMF_GROUP_HEADER_EXTENSION"扩展属性的对象。

yaokui25

newer 发表于 2017-6-10 21:28

版主如果有时间的话，下载一下附件执行以下就知道怎么回事儿了。

marting

yaokui25 发表于 2017-6-10 21:53

(ssget "x" '((-3 ("PMF_GROUP_HEADER_EXTENSION")))

yaokui25

marting 发表于 2017-6-10 22:00

谢谢你的回答。可能是我没表达明白。
图片中的画云线的两种情况想从选择集中剔除
只有1条线 或者 1两条以上并不相连的线 且不含有 "PMF_GROUP_HEADER_EXTENSION"的扩展属性对象。

Lispboy

yaokui25 发表于 2017-6-10 22:20

你是直接想在SSGET里面过滤出结果吗？ 扩展实体属性可以直接SSGET过滤，只有一条，或者什么的，都不能在SSGET里面直接过滤，不要直接打SSGET的主意了。
你要先用SSGET把能过滤的都过滤出来，在循环处理选择集，在判断其他的条件，不符合的删除掉

Lispboy

你下面云线里面的，都只有2个顶点
你上面那些想保留（所谓相连）为什么不画成多段线呢？ 如果是多段线，还可以通过过滤顶点数大于2来选择到上面的。

首尾相连的LINE，为什么不连城多段线？

SSGET是直接判断不了线是否相连的，SSGET能过滤的是单个实体自身的DXF组码的属性值。

st788796

看了下你的图，是插件生成的图形吗？

每个图形都是连续生成的，而且是首尾相接（注意里面有圆弧时可能 Normal 是反向以达到首尾相接）

知道这个规律就可以区分了，在 ssget 中实体的顺序和图形是对应的，判断首尾相接构造一个个组，然后再判断组内的实体有几个含扩展属性

yaokui25

Lispboy 发表于 2017-6-11 01:56

谢谢您的关注，如果您能下载附件cad文件和lisp代码的话，执行一下就能明白了。谢谢

yaokui25

st788796 发表于 2017-6-11 02:18

是插件生成的，但有些情况需要自己画。
你说的方法好像可行，如果有时间的话能不能帮忙修改一下代码，谢谢。

yaokui25

Lispboy 发表于 2017-6-11 01:56

如果把属性不一样的线段圆弧等连成多段线，整个图像的扩展属性就会发生变化

st788796

yaokui25 发表于 2017-6-11 07:28

自己画的就打破这个规律了，比如你删除了一根线，然后自己又重画了一根，后处理应该在插件生成的原始图上，否则就自找麻烦了
仅对样图有效

2. 
   
3. (defun c:tt (/ ss i e lst s lst1 lst2)
   
4.   (if (setq ss (ssget '((8 . "kai")
   
5.                         (0 . "line,arc,lwpolyline")
   
6.                         (-4 . "<not")
   
7.                         (-3 ("PMF_GROUP_HEADER_EXTENSION"))
   
8.                         (-4 . "not>")
   
9.                        )
   
10.                )
    
11.       )
    
12.     (progn
    
13.       (setq i 0)
    
14.       (while (setq e (ssname ss i))
    
15.         (if lst
    
16.           (if (or (equal (vlax-curve-getendpoint e) (vlax-curve-getstartpoint (caar lst)) 1e-6)
    
17.                   (equal (vlax-curve-getstartpoint e) (vlax-curve-getendpoint (caar lst)) 1e-6)
    
18.               )
    
19.             (setq lst (cons (cons e (car lst)) (cdr lst)))
    
20.             (setq lst (cons (list e) lst))
    
21.           )
    
22.           (setq lst (cons (list e) lst))
    
23.         )
    
24.         (setq i (1+ i))
    
25.       )
    
26.       (setq lst1 (vl-remove-if
    
27.                    '(lambda (x)
    
28.                       (or (> (length x) 2)
    
29.                           (and (= (length x) 2)
    
30.                                (or (equal (vlax-curve-getstartpoint (car x))
    
31.                                           (vlax-curve-getendpoint (cadr x))
    
32.                                           1e-6
    
33.                                    )
    
34.                                    (equal (vlax-curve-getendpoint (car x))
    
35.                                           (vlax-curve-getstartpoint (cadr x))
    
36.                                           1e-6
    
37.                                    )
    
38.                                )
    
39.                           )
    
40.                       )
    
41.                     )
    
42.                    lst
    
43.                  )
    
44.             lst2 (vl-remove-if '(lambda (x) (member x lst1)) lst)
    
45.             lst1 (vl-remove-if
    
46.                    (function (lambda (x)
    
47.                                (and (= (length x) 1)
    
48.                                     (vl-some (function (lambda (a)
    
49.                                                          (or (equal (vlax-curve-getstartpoint (car x))
    
50.                                                                     (vlax-curve-getendpoint (car a))
    
51.                                                                     1e-6
    
52.                                                              )
    
53.                                                              (equal (vlax-curve-getstartpoint (car x))
    
54.                                                                     (vlax-curve-getendpoint (last a))
    
55.                                                                     1e-6
    
56.                                                              )
    
57.                                                              (equal (vlax-curve-getendpoint (car x))
    
58.                                                                     (vlax-curve-getstartpoint (car a))
    
59.                                                                     1e-6
    
60.                                                              )
    
61.                                                              (equal (vlax-curve-getendpoint (car x))
    
62.                                                                     (vlax-curve-getstartpoint (last a))
    
63.                                                                     1e-6
    
64.                                                              )
    
65.                                                          )
    
66.                                                        )
    
67.                                              )
    
68.                                              lst2
    
69.                                     )
    
70.                                )
    
71.                              )
    
72.                    )
    
73.                    lst1
    
74.                  )
    
75.       )
    
76.       (if lst1
    
77.         (progn
    
78.           (setq s (ssadd))
    
79.           (foreach x (apply 'append lst1) (ssadd x s))
    
80.           (sssetfirst nil s)
    
81.         )
    
82.       )
    
83.     )
    
84.   )
    
85.   (princ)
    
86. )
    

<br /> (defun c:tt (/ ss i e lst s lst1 lst2)<br />   (if (setq ss (ssget '((8 . "kai")<br />                         (0 . "line,arc,lwpolyline")<br />                         (-4 . "<not")<br />                         (-3 ("PMF_GROUP_HEADER_EXTENSION"))<br />                         (-4 . "not>")<br />                        )<br />                )<br />       )<br />     (progn<br />       (setq i 0)<br />       (while (setq e (ssname ss i))<br />         (if lst<br />           (if (or (equal (vlax-curve-getendpoint e) (vlax-curve-getstartpoint (caar lst)) 1e-6)<br />                   (equal (vlax-curve-getstartpoint e) (vlax-curve-getendpoint (caar lst)) 1e-6)<br />               )<br />             (setq lst (cons (cons e (car lst)) (cdr lst)))<br />             (setq lst (cons (list e) lst))<br />           )<br />           (setq lst (cons (list e) lst))<br />         )<br />         (setq i (1+ i))<br />       )<br />       (setq lst1 (vl-remove-if<br />                    '(lambda (x)<br />                       (or (> (length x) 2)<br />                           (and (= (length x) 2)<br />                                (or (equal (vlax-curve-getstartpoint (car x))<br />                                           (vlax-curve-getendpoint (cadr x))<br />                                           1e-6<br />                                    )<br />                                    (equal (vlax-curve-getendpoint (car x))<br />                                           (vlax-curve-getstartpoint (cadr x))<br />                                           1e-6<br />                                    )<br />                                )<br />                           )<br />                       )<br />                     )<br />                    lst<br />                  )<br />             lst2 (vl-remove-if '(lambda (x) (member x lst1)) lst)<br />             lst1 (vl-remove-if<br />                    (function (lambda (x)<br />                                (and (= (length x) 1)<br />                                     (vl-some (function (lambda (a)<br />                                                          (or (equal (vlax-curve-getstartpoint (car x))<br />                                                                     (vlax-curve-getendpoint (car a))<br />                                                                     1e-6<br />                                                              )<br />                                                              (equal (vlax-curve-getstartpoint (car x))<br />                                                                     (vlax-curve-getendpoint (last a))<br />                                                                     1e-6<br />                                                              )<br />                                                              (equal (vlax-curve-getendpoint (car x))<br />                                                                     (vlax-curve-getstartpoint (car a))<br />                                                                     1e-6<br />                                                              )<br />                                                              (equal (vlax-curve-getendpoint (car x))<br />                                                                     (vlax-curve-getstartpoint (last a))<br />                                                                     1e-6<br />                                                              )<br />                                                          )<br />                                                        )<br />                                              )<br />                                              lst2<br />                                     )<br />                                )<br />                              )<br />                    )<br />                    lst1<br />                  )<br />       )<br />       (if lst1<br />         (progn<br />           (setq s (ssadd))<br />           (foreach x (apply 'append lst1) (ssadd x s))<br />           (sssetfirst nil s)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />