ssget得到的选择集，转为vla集合，谁有好办法？------总结

自贡黄明儒

根据各位高手的帮忙，现总结如下：

1. ;;161.1 [功能] 选择集->VlaSS集合
   
2. ;;(vlax-map-Collection (ss->vlass ss) 'vla-delete)
   
3. (defun ss->vlass (ss)
   
4.   (command "_.select" ss "")
   
5.   (vla-get-activeselectionset
   
6.     (vla-get-ActiveDocument (vlax-get-acad-object))
   
7.   )
   
8. )
   
9. ;;161.2 [功能] lisp选择集或图元转为vla选择集 By namezg
   
10. ;;(vlax-map-Collection (SS->vlaSS ss) 'vla-delete)
    
11. (defun SS->vlaSS1 (ss / *DOC* I OBJLST SARRAY SSET VLA)
    
12.   (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))
    
13.   (setq SSet (vla-get-ActiveSelectionSet *DOC*))
    
14.   (vla-Clear SSet)      ;清空选择集
    
15.   ;;得到VLA物体列表
    
16.   (repeat (setq i (sslength ss))
    
17.     (setq vla (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
    
18.     (setq objlst (cons vla objlst))
    
19.   )
    
20.   (setq  sArray (vlax-make-safearray
    
21.      vlax-vbobject
    
22.      (cons 0 (1- (length objlst)))
    
23.          )
    
24.   )          ;在数组 SArray 的元素中存储数据
    
25.   (vlax-safearray-fill sArray objlst)
    
26.   (vla-AddItems SSet sArray)  
    
27.   SSet
    
28. )
    
29. 
    
30. ;;161.3 [功能] 将一个选择集转化为VLA选择集 By 裸奔的花猫
    
31. (defun ss->vlass2 (ss / *DOC* I OBJLST SSET VLA)
    
32.   (setq  *DOC*  (vla-get-activedocument (vlax-get-acad-object))
    
33.   sset (vla-get-SelectionSets *DOC*)
    
34.   )
    
35.   ;;有选择集$Set，则先删除,或者(vla-Clear $Set)
    
36.   (if (vl-catch-all-error-p
    
37.   (vl-catch-all-apply 'vla-item (list sset "$Set"))
    
38.       )
    
39.     nil
    
40.     (vla-delete (vla-item sset "$Set"))
    
41.   )
    
42.   (setq SSet (vla-add sset "$Set"))  ;新建一个VLA选择集
    
43.   ;;得到VLA物体列表
    
44.   (repeat (setq i (sslength ss))
    
45.     (setq vla (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
    
46.     (setq objlst (cons vla objlst))
    
47.   )
    
48.   (vlax-invoke SSet 'additems objlst)
    
49.   SSet
    
50. )
    

;;161.1 [功能] 选择集->VlaSS集合<br /> ;;(vlax-map-Collection (ss->vlass ss) 'vla-delete)<br /> (defun ss->vlass (ss)<br />   (command "_.select" ss "")<br />   (vla-get-activeselectionset<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />   )<br /> )<br /> ;;161.2 [功能] lisp选择集或图元转为vla选择集 By namezg<br /> ;;(vlax-map-Collection (SS->vlaSS ss) 'vla-delete)<br /> (defun SS->vlaSS1 (ss / *DOC* I OBJLST SARRAY SSET VLA)<br />   (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq SSet (vla-get-ActiveSelectionSet *DOC*))<br />   (vla-Clear SSet)      ;清空选择集<br />   ;;得到VLA物体列表<br />   (repeat (setq i (sslength ss))<br />     (setq vla (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br />     (setq objlst (cons vla objlst))<br />   )<br />   (setq  sArray (vlax-make-safearray<br />      vlax-vbobject<br />      (cons 0 (1- (length objlst)))<br />          )<br />   )          ;在数组 SArray 的元素中存储数据<br />   (vlax-safearray-fill sArray objlst)<br />   (vla-AddItems SSet sArray)  <br />   SSet<br /> )<br /> <br /> ;;161.3 [功能] 将一个选择集转化为VLA选择集 By 裸奔的花猫<br /> (defun ss->vlass2 (ss / *DOC* I OBJLST SSET VLA)<br />   (setq  *DOC*  (vla-get-activedocument (vlax-get-acad-object))<br />   sset (vla-get-SelectionSets *DOC*)<br />   )<br />   ;;有选择集$Set，则先删除,或者(vla-Clear $Set)<br />   (if (vl-catch-all-error-p<br />   (vl-catch-all-apply 'vla-item (list sset "$Set"))<br />       )<br />     nil<br />     (vla-delete (vla-item sset "$Set"))<br />   )<br />   (setq SSet (vla-add sset "$Set"))  ;新建一个VLA选择集<br />   ;;得到VLA物体列表<br />   (repeat (setq i (sslength ss))<br />     (setq vla (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br />     (setq objlst (cons vla objlst))<br />   )<br />   (vlax-invoke SSet 'additems objlst)<br />   SSet<br /> )<br />

nzl1116

转集合没必要吧，真的想的话，我知道的只能用AddLine AddCircle...等等
就想在模型空间里添加图元一样，模型空间就是一个集合

namezg

2. ;lisp选择集或图元转为vla选择集
   
3. ;ss--lisp选择集或图元
   
4. ;(setq SSet (zg-SS->vla-SSet (ssget)));#<VLA-OBJECT IAcadSelectionSet 0e697004>
   
5. ;方法一
   
6. (defun zg-SS->vla-SSet (ss / AcadObject AcadDocument SSet)
   
7.         (command "_.select" ss "")
   
8.         (setq AcadObject (vlax-get-acad-object))
   
9.         (setq AcadDocument (vla-get-ActiveDocument Acadobject))
   
10.         (setq SSet (vla-get-ActiveSelectionSet AcadDocument))
    
11.         ;(vla-Highlight SSet "true")  ;亮显选择集
    
12.         SSet
    
13. )

;lisp选择集或图元转为vla选择集<br /> ;ss--lisp选择集或图元<br /> ;(setq SSet (zg-SS->vla-SSet (ssget)));#<VLA-OBJECT IAcadSelectionSet 0e697004><br /> ;方法一<br /> (defun zg-SS->vla-SSet (ss / AcadObject AcadDocument SSet)<br />         (command "_.select" ss "")<br />         (setq AcadObject (vlax-get-acad-object))<br />         (setq AcadDocument (vla-get-ActiveDocument Acadobject))<br />         (setq SSet (vla-get-ActiveSelectionSet AcadDocument))<br />         ;(vla-Highlight SSet "true")  ;亮显选择集<br />         SSet<br /> )

namezg

2. ;lisp选择集或图元转为vla选择集
   
3. ;ss--lisp选择集或图元
   
4. ;(setq SSet (zg-SS->vla-SSet (ssget)))
   
5. ;方法二
   
6. (defun zg-SS->vla-SSet (ss / AcadObject AcadDocument SelectionSets SSet SSetName objlst sArray index item)
   
7.         ;功能：lisp选择集或图元转换为vla对象列表
   
8.         ;参数：ss--lisp选择集或图元
   
9.         ;返回：vla对象列表，ss为nil时，返回nil
   
10.         ;(setq objlst (zg-ss->vla-objectlist (ssget)))
    
11.         ;(#<VLA-OBJECT IAcadLine 1fab0e04> #<VLA-OBJECT IAcadLine 1fab0e64> #<VLA-OBJECT IAcadLine 1fab1b84> #<VLA-OBJECT IAcadLine 1fab1044> #<VLA-OBJECT IAcadLine 1fab1164>)
    
12.         (defun zg-ss->vla-objectlist (ss / i objlst)
    
13.                 (setq objlst '())
    
14.                 (cond
    
15.                         ((= (type ss) 'ENAME)
    
16.                                 (setq objlst (cons (vlax-ename->vla-object ss) objlst))
    
17.                         )
    
18.                         ((= (type ss) 'PICKSET)
    
19.                                 (setq i -1)
    
20.                                 (repeat (sslength ss)
    
21.                                         (setq objlst (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i)))) objlst))
    
22.                                 )
    
23.                         )
    
24.                 )
    
25.                 objlst
    
26.         )
    
27.         (setq AcadObject (vlax-get-acad-object))
    
28.         (setq AcadDocument (vla-get-ActiveDocument Acadobject))
    
29.         ;建立一个选择集
    
30.         (setq SSet (vla-get-ActiveSelectionSet AcadDocument))
    
31.         (vla-Clear SSet);清空选择集
    
32.         (setq objlst (zg-ss->vla-objectlist ss))
    
33.         (setq sArray (vlax-make-safearray vlax-vbobject (cons 0 (1- (length objlst)))))
    
34.         ;在数组 SArray 的元素中存储数据
    
35.         (vlax-safearray-fill sArray objlst)
    
36.         (vla-AddItems SSet sArray)
    
37.         SSet
    
38. )

;lisp选择集或图元转为vla选择集<br /> ;ss--lisp选择集或图元<br /> ;(setq SSet (zg-SS->vla-SSet (ssget)))<br /> ;方法二<br /> (defun zg-SS->vla-SSet (ss / AcadObject AcadDocument SelectionSets SSet SSetName objlst sArray index item)<br />         ;功能：lisp选择集或图元转换为vla对象列表<br />         ;参数：ss--lisp选择集或图元<br />         ;返回：vla对象列表，ss为nil时，返回nil<br />         ;(setq objlst (zg-ss->vla-objectlist (ssget)))<br />         ;(#<VLA-OBJECT IAcadLine 1fab0e04> #<VLA-OBJECT IAcadLine 1fab0e64> #<VLA-OBJECT IAcadLine 1fab1b84> #<VLA-OBJECT IAcadLine 1fab1044> #<VLA-OBJECT IAcadLine 1fab1164>)<br />         (defun zg-ss->vla-objectlist (ss / i objlst)<br />                 (setq objlst '())<br />                 (cond<br />                         ((= (type ss) 'ENAME)<br />                                 (setq objlst (cons (vlax-ename->vla-object ss) objlst))<br />                         )<br />                         ((= (type ss) 'PICKSET)<br />                                 (setq i -1)<br />                                 (repeat (sslength ss)<br />                                         (setq objlst (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i)))) objlst))<br />                                 )<br />                         )<br />                 )<br />                 objlst<br />         )<br />         (setq AcadObject (vlax-get-acad-object))<br />         (setq AcadDocument (vla-get-ActiveDocument Acadobject))<br />         ;建立一个选择集<br />         (setq SSet (vla-get-ActiveSelectionSet AcadDocument))<br />         (vla-Clear SSet);清空选择集<br />         (setq objlst (zg-ss->vla-objectlist ss))<br />         (setq sArray (vlax-make-safearray vlax-vbobject (cons 0 (1- (length objlst)))))<br />         ;在数组 SArray 的元素中存储数据<br />         (vlax-safearray-fill sArray objlst)<br />         (vla-AddItems SSet sArray)<br />         SSet<br /> )

434939575

今天在考虑这个问题。如果是vLa阵列选择集用这个就好]。来取经了。

434939575

今天在考虑这个问题。如果是vLa阵列选择集用这个就好]。来取经了。

bbswen

做个记号，;lisp选择集或图元转为vla选择集

jicqj

不错的程序  做个记号 用得到

yx5277

想知道转了之后的好处

springwillow

如何不用ssget直接构建VLA选择集呢？最好是也能带有过滤功能的