VLA选择集

dcl1214

1. (progn
   
2.   (setq ss-n "SSGET")
   
3.   (vl-Catch-All-Apply
   
4.     'vla-delete
   
5.     (LIST
   
6.       (vl-Catch-All-Apply
   
7.     'vla-item
   
8.     (list (vla-get-SelectionSets
   
9.         (vla-get-ActiveDocument (vlax-get-acad-object))
   
10.           )
    
11.           ss-n
    
12.     )
    
13.       )
    
14.     )
    
15.   )
    
16.   (setq
    
17.     ss (vl-Catch-All-Apply
    
18.      'vla-add
    
19.      (list (vla-get-selectionsets
    
20.          (vla-get-activedocument (vlax-get-acad-object))
    
21.            )
    
22.            ss-n
    
23.      )
    
24.        )
    
25.   )
    
26.   (setq    filtType
    
27.      (vl-Catch-All-Apply
    
28.        'vlax-make-variant
    
29.        (LIST
    
30.          (vl-Catch-All-Apply
    
31.            'vlax-safearray-fill
    
32.            (LIST
    
33.          (vl-Catch-All-Apply 'vlax-make-safearray(LIST vlax-vbInteger '(0 . 4)))
    
34.                     ;①这里需要修改（下面②、③总数减一即可）;一维数组
    
35.          (list 0 -4 0 -4 1001)
    
36.                     ;②这里需要修改;过滤扩展数据的时候是1001
    
37.            )
    
38.          )
    
39.          (logior vlax-vbarray vlax-vbInteger)
    
40.        )
    
41.      )
    
42.   )
    
43.   (setq    filtData
    
44.      (vlax-make-variant
    
45.        (vl-Catch-All-Apply
    
46.          'vlax-safearray-fill
    
47.          (list
    
48.            (vl-Catch-All-Apply 'vlax-make-safearray(LIST vlax-vbVariant '(0 . 4)))
    
49.                     ;①这里需要修改（下面②、③总数减一即可）;一维数组
    
50.            (list "*LINE*" "<NOT" "INSERT" "NOT>" "JDCD")
    
51.                     ;③这里需要修改(和上面的②一一对应);过滤条件
    
52.          )
    
53.        )
    
54.        (vl-Catch-All-Apply
    
55.          'logior
    
56.          (list vlax-vbarray vlax-vbVariant)
    
57.        )
    
58.      )
    
59.   )
    
60.   (vl-catch-all-apply
    
61.     'vla-select
    
62.     (list ss acSelectionSetAll nil nil filtType filtData)
    
63.   )
    
64. )
    
65. 
    
66. 
    
67. (defun $vla-ssget$ (pt1 pt2 lst / obj selectionsets xzj-n ss)
    
68.   (setq        selectionSets
    
69.          (vla-get-selectionsets
    
70.            (vla-get-activedocument (vlax-get-acad-object))
    
71.          )
    
72.   )
    
73.   (setq xzj-n "ssget")
    
74.   (setq        obj (vl-catch-all-apply
    
75.               'vla-item
    
76.               (list selectionSets xzj-n)
    
77.             )
    
78.   )
    
79.   (if (vl-catch-all-error-p obj)
    
80.     ()
    
81.     (vla-delete obj)
    
82.   )
    
83.   (setq        obj nil
    
84.         ss  nil
    
85.   )
    
86.   (setq        ss
    
87.          (vl-catch-all-apply 'vla-add (list selectionSets xzj-n))
    
88.   )
    
89.   (if (not (vl-catch-all-error-p obj))
    
90.     (progn
    
91.       (vl-catch-all-apply
    
92.         (function
    
93.           (lambda (/ filterType)
    
94.             (setq filterType
    
95.                    (vlax-make-safearray vlax-vbinteger '(0 . 3))
    
96.             )
    
97.                                         ;①②③④共计四个数字减去一个即可
    
98. 
    
99.             (vlax-safearray-put-element filterType 0 -4) ;①
    
100.             (vlax-safearray-put-element filterType 1 0) ;②
     
101.             (vlax-safearray-put-element filterType 2 62) ;③
     
102.             (vlax-safearray-put-element filterType 3 -4) ;④
     
103. 
     
104.             (setq filterData
     
105.                    (vlax-make-safearray vlax-vbvariant '(0 . 3))
     
106.             )
     
107.                                         ;①②③④共计四个数字减去一个即可
     
108. 
     
109.             (vlax-safearray-put-element filterData 0 "<AND")
     
110.                                         ;与上面①对应
     
111.             (vlax-safearray-put-element filterData 1 "Circle")
     
112.                                         ;与上面②对应
     
113.             (vlax-safearray-put-element filterData 2 6) ;与上面③对应
     
114.             (vlax-safearray-put-element filterData 3 "AND>")
     
115.                                         ;与上面④对应
     
116.             (if        (and pt1 pt2)
     
117.               (progn
     
118.                 (setq pt1 (list (car pt1) (cadr pt1) 0))
     
119.                 (setq pt2 (list (car pt2) (cadr pt2) 0))
     
120.                 (vla-ZoomWindow
     
121.                   (vlax-get-acad-object)
     
122.                   (vlax-3d-point pt1)
     
123.                   (vlax-3d-point pt2)
     
124.                 )
     
125.                 (vl-catch-all-apply
     
126.                   'vla-select
     
127.                   (list
     
128.                     ss
     
129.                     acSelectionSetCrossing
     
130.                     (vlax-3d-point pt1)
     
131.                     (vlax-3d-point pt2)
     
132.                     filterType
     
133.                     filterData
     
134.                   )
     
135.                 )
     
136.                 (vla-zoomprevious (vlax-get-acad-object))
     
137.                                         ;逐个返回的，视口缩放返回上一个
     
138.               )
     
139.               (vl-catch-all-apply
     
140.                 'vla-select
     
141.                 (list
     
142.                   ss                acSelectionSetAll
     
143.                   nil                nil              filterType
     
144.                   filterData
     
145.                  )
     
146.               )
     
147.             )
     
148.             (vl-catch-all-apply 'vla-Highlight (list ss :vlax-true))
     
149.           )
     
150.         )
     
151.       )
     
152.     )
     
153.   )
     
154.   ss
     
155. )

(progn<br />   (setq ss-n "SSGET")<br />   (vl-Catch-All-Apply<br />     'vla-delete<br />     (LIST<br />       (vl-Catch-All-Apply<br />     'vla-item<br />     (list (vla-get-SelectionSets<br />         (vla-get-ActiveDocument (vlax-get-acad-object))<br />           )<br />           ss-n<br />     )<br />       )<br />     )<br />   )<br />   (setq<br />     ss (vl-Catch-All-Apply<br />      'vla-add<br />      (list (vla-get-selectionsets<br />          (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />            ss-n<br />      )<br />        )<br />   )<br />   (setq    filtType<br />      (vl-Catch-All-Apply<br />        'vlax-make-variant<br />        (LIST<br />          (vl-Catch-All-Apply<br />            'vlax-safearray-fill<br />            (LIST<br />          (vl-Catch-All-Apply 'vlax-make-safearray(LIST vlax-vbInteger '(0 . 4)))<br />                     ;①这里需要修改（下面②、③总数减一即可）;一维数组<br />          (list 0 -4 0 -4 1001)<br />                     ;②这里需要修改;过滤扩展数据的时候是1001<br />            )<br />          )<br />          (logior vlax-vbarray vlax-vbInteger)<br />        )<br />      )<br />   )<br />   (setq    filtData<br />      (vlax-make-variant<br />        (vl-Catch-All-Apply<br />          'vlax-safearray-fill<br />          (list<br />            (vl-Catch-All-Apply 'vlax-make-safearray(LIST vlax-vbVariant '(0 . 4)))<br />                     ;①这里需要修改（下面②、③总数减一即可）;一维数组<br />            (list "*LINE*" "<NOT" "INSERT" "NOT>" "JDCD")<br />                     ;③这里需要修改(和上面的②一一对应);过滤条件<br />          )<br />        )<br />        (vl-Catch-All-Apply<br />          'logior<br />          (list vlax-vbarray vlax-vbVariant)<br />        )<br />      )<br />   )<br />   (vl-catch-all-apply<br />     'vla-select<br />     (list ss acSelectionSetAll nil nil filtType filtData)<br />   )<br /> )<br /> <br /> <br /> (defun $vla-ssget$ (pt1 pt2 lst / obj selectionsets xzj-n ss)<br />   (setq        selectionSets<br />          (vla-get-selectionsets<br />            (vla-get-activedocument (vlax-get-acad-object))<br />          )<br />   )<br />   (setq xzj-n "ssget")<br />   (setq        obj (vl-catch-all-apply<br />               'vla-item<br />               (list selectionSets xzj-n)<br />             )<br />   )<br />   (if (vl-catch-all-error-p obj)<br />     ()<br />     (vla-delete obj)<br />   )<br />   (setq        obj nil<br />         ss  nil<br />   )<br />   (setq        ss<br />          (vl-catch-all-apply 'vla-add (list selectionSets xzj-n))<br />   )<br />   (if (not (vl-catch-all-error-p obj))<br />     (progn<br />       (vl-catch-all-apply<br />         (function<br />           (lambda (/ filterType)<br />             (setq filterType<br />                    (vlax-make-safearray vlax-vbinteger '(0 . 3))<br />             )<br />                                         ;①②③④共计四个数字减去一个即可<br /> <br />             (vlax-safearray-put-element filterType 0 -4) ;①<br />             (vlax-safearray-put-element filterType 1 0) ;②<br />             (vlax-safearray-put-element filterType 2 62) ;③<br />             (vlax-safearray-put-element filterType 3 -4) ;④<br /> <br />             (setq filterData<br />                    (vlax-make-safearray vlax-vbvariant '(0 . 3))<br />             )<br />                                         ;①②③④共计四个数字减去一个即可<br /> <br />             (vlax-safearray-put-element filterData 0 "<AND")<br />                                         ;与上面①对应<br />             (vlax-safearray-put-element filterData 1 "Circle")<br />                                         ;与上面②对应<br />             (vlax-safearray-put-element filterData 2 6) ;与上面③对应<br />             (vlax-safearray-put-element filterData 3 "AND>")<br />                                         ;与上面④对应<br />             (if        (and pt1 pt2)<br />               (progn<br />                 (setq pt1 (list (car pt1) (cadr pt1) 0))<br />                 (setq pt2 (list (car pt2) (cadr pt2) 0))<br />                 (vla-ZoomWindow<br />                   (vlax-get-acad-object)<br />                   (vlax-3d-point pt1)<br />                   (vlax-3d-point pt2)<br />                 )<br />                 (vl-catch-all-apply<br />                   'vla-select<br />                   (list<br />                     ss<br />                     acSelectionSetCrossing<br />                     (vlax-3d-point pt1)<br />                     (vlax-3d-point pt2)<br />                     filterType<br />                     filterData<br />                   )<br />                 )<br />                 (vla-zoomprevious (vlax-get-acad-object))<br />                                         ;逐个返回的，视口缩放返回上一个<br />               )<br />               (vl-catch-all-apply<br />                 'vla-select<br />                 (list<br />                   ss                acSelectionSetAll<br />                   nil                nil              filterType<br />                   filterData<br />                  )<br />               )<br />             )<br />             (vl-catch-all-apply 'vla-Highlight (list ss :vlax-true))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   ss<br /> )

你有种再说一遍

鼓掌鼓掌鼓掌鼓掌鼓掌鼓掌吧

guosheyang

我测试没选出来   你们测试通过了吗？

magicheno

感谢大佬分享

null.

试出来了，运行后为nil,查结果ss里面有图元。

guosheyang

null. 发表于 2024-4-25 20:59
试出来了，运行后为nil,查结果ss里面有图元。

帮吗测试下 这个文件的扩展数据，看看代码要如何改？谢谢！    (-3 ("注册名称" (1000 . "扩展数据")))

null.

C:MIAN
命令: MIAN
命令: 1   注册名称
"AcDbCircle"
2   注册名称
"AcDbCircle"
3   注册名称
"AcDbCircle"
命令: 1   JZDST
"AcDbCircle"
2   JZDST
"AcDbCircle"
3   JZDST
"AcDbCircle"
4   JZDST
"AcDbCircle"
5   JZDST
"AcDbCircle"
6   JZDST
"AcDbCircle"
7   JZDST
"AcDbCircle"

guosheyang

null. 发表于 2024-4-26 14:57
C:MIAN
命令: MIAN
命令: 1   注册名称

(sssetfirst nil (setq ss(SSGET "X" (list (list -3 (list "JZDST"))))))     能否实现这个代码对应的功能？

你有种再说一遍

guosheyang 发表于 2024-4-28 00:04
(sssetfirst nil (setq ss(SSGET "X" (list (list -3 (list "JZDST"))))))     能否实现这个代码对应的功 ...

不要觉得选择集过滤器什么都能过滤,
要知道过滤器是怎么制作的才明白它什么过滤不了...
如果你想知道可以接着问我

guosheyang

你有种再说一遍 发表于 2024-4-28 01:20
不要觉得选择集过滤器什么都能过滤,
要知道过滤器是怎么制作的才明白它什么过滤不了...
如果你想知道可 ...

好的  感谢 ！  清楚了 ，群里面也讨论过了，不是所有的都能选择的，有的只有遍历选择