（XD::VLA:IsPickset）判断是否是选择集

marting

1. (defun XD::VLA:IsPickset (ss)
   
2.   (or (= (type ss) 'PICKSET)
   
3.       (and (eq 'VLA-OBJECT (type SS))
   
4.            (vl-every '(lambda (x) (vlax-property-available-p SS x))
   
5.                      '(Application Count Name)
   
6.            )
   
7.            (vl-every '(lambda (x) (vlax-method-applicable-p SS x))
   
8.                      '(AddItems             Clear           Delete
   
9.                        Erase             Highlight           Item
   
10.                        RemoveItems   Select           SelectAtPoint
    
11.                        SelectByPolygon                   SelectOnScreen
    
12.                        Update
    
13.                       )
    
14.            )
    
15.       )
    
16.   )
    
17. )
    

(defun XD::VLA:IsPickset (ss)<br />   (or (= (type ss) 'PICKSET)<br />       (and (eq 'VLA-OBJECT (type SS))<br />            (vl-every '(lambda (x) (vlax-property-available-p SS x))<br />                      '(Application Count Name)<br />            )<br />            (vl-every '(lambda (x) (vlax-method-applicable-p SS x))<br />                      '(AddItems             Clear           Delete<br />                        Erase             Highlight           Item<br />                        RemoveItems   Select           SelectAtPoint<br />                        SelectByPolygon                   SelectOnScreen<br />                        Update<br />                       )<br />            )<br />       )<br />   )<br /> )<br />

yangjian001

做一个热心并受欢迎的人

wang112358

感谢楼主分享啊，学习

43876861

谢谢楼主分享