构造ActiveX方式的过滤选择

Free-Lancer

Making a filtered selection set using Visual LISP (ActiveX functions)                                                        By Balaji Ramamoorthy
The ActiveX method SelectionSet.Select to create a filtered set of database objects that meet this criteria:
Block references, such as INSERT entities, and that have extended entity data that is registered under application name "MYAPP"
The plain AutoLISP expression is:  (ssget "X" '((0 . "INSERT") (-3 ("MYAPP"))))
Here is the code using the ActiveX call :

1. (defun c:myappSet ()
   
2.     (vl-load-com)
   
3.     (setq loAcad    (vlax-get-acad-object)
   
4.           loDoc        (vla-get-activedocument loAcad)
   
5.           loSelectionSet (vla-add (vla-get-selectionsets loDoc) "filtSet")
   
6.     )
   
7.     (setq filtArray (vlax-make-safearray vlax-vbInteger '(0 . 1))
   
8.           filtVar   (vlax-safearray-fill filtArray (list 0 1001))
   
9.           filtType  (vlax-make-variant
   
10.                         filtVar
    
11.                         (logior vlax-vbarray vlax-vbInteger)
    
12.                     )
    
13.     )
    
14.     (setq filtArray (vlax-make-safearray vlax-vbVariant '(0 . 1))
    
15.           filtVar   (vlax-safearray-fill filtArray (list "INSERT" "MYAPP"))
    
16.           filtData  (vlax-make-variant
    
17.                         filtVar
    
18.                         (logior vlax-vbarray vlax-vbVariant)
    
19.                     )
    
20.     )
    
21.     (vla-select
    
22.                 loSelectionSet
    
23.                 acSelectionSetAll
    
24.                 nil
    
25.                 nil
    
26.                 filtType
    
27.                 filtData
    
28.     )
    
29.     (setq count (vla-get-count loSelectionSet))
    
30.     (princ count)
    
31.     (setq ssets (vla-get-selectionsets loDoc))
    
32.     (vla-delete (vla-item ssets "filtSet"))
    
33.     (princ)
    
34. )
    

(defun c:myappSet ()<br />     (vl-load-com)<br />     (setq loAcad    (vlax-get-acad-object)<br />           loDoc        (vla-get-activedocument loAcad)<br />           loSelectionSet (vla-add (vla-get-selectionsets loDoc) "filtSet")<br />     )<br />     (setq filtArray (vlax-make-safearray vlax-vbInteger '(0 . 1))<br />           filtVar   (vlax-safearray-fill filtArray (list 0 1001))<br />           filtType  (vlax-make-variant<br />                         filtVar<br />                         (logior vlax-vbarray vlax-vbInteger)<br />                     )<br />     )<br />     (setq filtArray (vlax-make-safearray vlax-vbVariant '(0 . 1))<br />           filtVar   (vlax-safearray-fill filtArray (list "INSERT" "MYAPP"))<br />           filtData  (vlax-make-variant<br />                         filtVar<br />                         (logior vlax-vbarray vlax-vbVariant)<br />                     )<br />     )<br />     (vla-select<br />                 loSelectionSet<br />                 acSelectionSetAll<br />                 nil<br />                 nil<br />                 filtType<br />                 filtData<br />     )<br />     (setq count (vla-get-count loSelectionSet))<br />     (princ count)<br />     (setq ssets (vla-get-selectionsets loDoc))<br />     (vla-delete (vla-item ssets "filtSet"))<br />     (princ)<br /> )<br />

It is tempting for a Visual LISP developer to supply list arguments for the parameters filtType and filtData in the vla-select call, but ActiveX does not comprehend lists. The filtType parameter requires an array of integers while filtData is permitted to be a array of variant types.
For a closer examination of safearrays and variants, see the Visual LISP Developer's Guide. Refer to the section entitled "Converting AutoLISP Data Types to ActiveX Data Types".
Also, the group code designating xdata is 1001 instead of -3. This is different, of course, from the Visual LISP approach to filtering xdata, which makes use of the -3 extended data sentinel rather than group code.

pengfei2010

英语没学好的  表示压力很大

xlouluo

困扰好久天，终于找到了，万分感谢！