Activex方法创建带过滤表的选择集

XDSoft

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 filtVar (logior vlax-vbarray vlax-vbInteger))
   
10.   )
    
11.   (setq filtArray (vlax-make-safearray vlax-vbVariant '(0 . 1))
    
12.         filtVar (vlax-safearray-fill filtArray (list "INSERT" "MYAPP"))
    
13.         filtData (vlax-make-variant filtVar (logior vlax-vbarray vlax-vbVariant))
    
14.   )
    
15.   (vla-select loSelectionSet acSelectionSetAll nil nil filtType filtData)
    
16.   (setq count (vla-get-count loSelectionSet))
    
17.   (princ count)
    
18.   (setq ssets (vla-get-selectionsets loDoc))
    
19.   (vla-delete (vla-item ssets "filtSet"))
    
20.   (princ)
    
21. )
    

(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 filtVar (logior vlax-vbarray vlax-vbInteger))<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 filtVar (logior vlax-vbarray vlax-vbVariant))<br />   )<br />   (vla-select loSelectionSet acSelectionSetAll nil nil filtType filtData)<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.

wowan1314

收藏啦。 VL函数还是了解不多。