lisp选择集怎行与VL选择集转换

渠辉

lisp选择集怎行与VL选择集转换？？

Gu_xl

1. ;;(gxl-Sel-SS->variant ss) 选择集物体转变体
   
2. (defun gxl-Sel-SS->variant (ss / c r en)
   
3.   (repeat (setq c (sslength ss))
   
4.     (setq en (ssname ss (setq c (1- c))))
   
5.     (if  (entget en)
   
6.       (setq r (cons en r))
   
7.     )
   
8.   )
   
9.   (vlax-make-variant
   
10.     (vlax-safearray-fill
    
11.       (vlax-make-safearray
    
12.   vlax-vbObject
    
13.   (cons 0 (1- (length r)))
    
14.       )
    
15.       (mapcar 'vlax-ename->vla-object r)
    
16.     )
    
17.   )
    
18. )

;;(gxl-Sel-SS->variant ss) 选择集物体转变体<br /> (defun gxl-Sel-SS->variant (ss / c r en)<br />   (repeat (setq c (sslength ss))<br />     (setq en (ssname ss (setq c (1- c))))<br />     (if  (entget en)<br />       (setq r (cons en r))<br />     )<br />   )<br />   (vlax-make-variant<br />     (vlax-safearray-fill<br />       (vlax-make-safearray<br />   vlax-vbObject<br />   (cons 0 (1- (length r)))<br />       )<br />       (mapcar 'vlax-ename->vla-object r)<br />     )<br />   )<br /> )

wx302008008

lisp选择集中的每一个图元，可以通过图元名转换成vl对象：
使用vlax-ename->vla-object 函数

lee50310

下面有代碼

渠辉

2. (defun MJ:Export (fileName Extension SelectonSet)
   
3.   (vla-export
   
4.     (vla-get-ActiveDocument (vlax-get-acad-object))
   
5.     fileName
   
6.     Extension
   
7.     SelectonSet )
   

(defun MJ:Export (fileName Extension SelectonSet)<br />   (vla-export<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />     fileName<br />     Extension<br />     SelectonSet )<br />

渠辉

SelectonSet