[日积月累]：试了试 Vla-selectatpoint

eachy

选择集放到  ActiveSelectionSet

2. 
   
3. (defun ax:BuildFilter (filter)
   
4.   ;;(vl-load-com)
   
5.   (mapcar '(lambda (lst typ)
   
6.              (vlax-make-variant
   
7.                (vlax-safearray-fill
   
8.                  (vlax-make-safearray
   
9.                    typ
   
10.                    (cons 0
    
11.                          (1- (length lst))
    
12.                    )
    
13.                  )
    
14.                  lst
    
15.                )
    
16.              )
    
17.            )
    
18.           (list (mapcar 'car filter) (mapcar 'cdr filter))
    
19.           (list vlax-vbInteger vlax-vbVariant)
    
20.   )
    
21. )
    
22. (defun xdl-getptss (pt filter / cset ftyp ss)
    
23.   (if (not (vl-catch-all-error-p
    
24.              (setq cset        (vl-catch-all-apply
    
25.                           'vla-item
    
26.                           (list
    
27.                             (setq sset (vla-get-selectionsets
    
28.                                          (setq eDoc (vla-get-activedocument
    
29.                                                       (vlax-get-acad-object)
    
30.                                                     )
    
31.                                          )
    
32.                                        )
    
33.                             )
    
34.                             "CURRENT"
    
35.                           )
    
36.                         )
    
37.              )
    
38.            )
    
39.       )
    
40.     (vla-delete cset) ;_ "CURRENT"
    
41.   )
    
42.   (setq        ss   (vla-add sset "CURRENT")
    
43.         ftyp (ax:BuildFilter filter)
    
44.   )
    
45.   (vla-selectatpoint
    
46.     ss
    
47.     (vlax-3d-point pt)
    
48.     (car ftyp)
    
49.     (cadr ftyp)
    
50.   )
    
51. )

<br /> (defun ax:BuildFilter (filter)<br />   ;;(vl-load-com)<br />   (mapcar '(lambda (lst typ)<br />              (vlax-make-variant<br />                (vlax-safearray-fill<br />                  (vlax-make-safearray<br />                    typ<br />                    (cons 0<br />                          (1- (length lst))<br />                    )<br />                  )<br />                  lst<br />                )<br />              )<br />            )<br />           (list (mapcar 'car filter) (mapcar 'cdr filter))<br />           (list vlax-vbInteger vlax-vbVariant)<br />   )<br /> )<br /> (defun xdl-getptss (pt filter / cset ftyp ss)<br />   (if (not (vl-catch-all-error-p<br />              (setq cset        (vl-catch-all-apply<br />                           'vla-item<br />                           (list<br />                             (setq sset (vla-get-selectionsets<br />                                          (setq eDoc (vla-get-activedocument<br />                                                       (vlax-get-acad-object)<br />                                                     )<br />                                          )<br />                                        )<br />                             )<br />                             "CURRENT"<br />                           )<br />                         )<br />              )<br />            )<br />       )<br />     (vla-delete cset) ;_ "CURRENT"<br />   )<br />   (setq        ss   (vla-add sset "CURRENT")<br />         ftyp (ax:BuildFilter filter)<br />   )<br />   (vla-selectatpoint<br />     ss<br />     (vlax-3d-point pt)<br />     (car ftyp)<br />     (cadr ftyp)<br />   )<br /> )

zhang8755

不知道版主有没有比较过，vla-selectatpoint和ssget那个效率更高些，用vla-selectatpoint有什么好处呢？要处理变体，感觉挺麻烦。

eachy

没有用过 Vla 的选择方法，这是第一次写 vla-select 类的选择函数，尝试而已。不过感觉用点选而且后面是 vla 方法处理用这个方法也不错，ssget 同样要处理 pickbox 和 osmode

st788796

这个不好用，ActiveX Help 的 Example 中是分了两步获取，第一步 SelectAtPoint 所有，第二步然后是获取过滤的

测试中发现 vla 方法不稳定，还是用 ssget C 后调用 Activeselectionset 更灵活更保险