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. )

(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 /> )

你有种再说一遍

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

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
不要觉得选择集过滤器什么都能过滤,
要知道过滤器是怎么制作的才明白它什么过滤不了...
如果你想知道可 ...

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