vla选择集activeselectionset如何使用？

aws

;为什么这个vla-get-activeselectionset有时候会失灵？
例如：原因：Automation 错误。未提供说明。
Automation 错误。 调用方法 AddItems (接口 IAcadSelectionSet) 失败

1. (defun c:dc(/ doc objss ss)
   
2.         (vl-load-com)
   
3.         (if(setq ss(ssget))
   
4.                 (progn
   
5.                         (setq doc(vla-get-ActiveDocument(vlax-get-acad-object)))
   
6.                         (setq objss(vla-get-activeselectionset doc))
   
7.                         (vla-wblock doc "D:/Temp.dwg" objss)
   
8.                         (print "文件导出成功！")
   
9.                 )
   
10.         )
    
11.         (princ)
    
12. )
    

(defun c:dc(/ doc objss ss)<br />         (vl-load-com)<br />         (if(setq ss(ssget))<br />                 (progn<br />                         (setq doc(vla-get-ActiveDocument(vlax-get-acad-object)))<br />                         (setq objss(vla-get-activeselectionset doc))<br />                         (vla-wblock doc "D:/Temp.dwg" objss)<br />                         (print "文件导出成功！")<br />                 )<br />         )<br />         (princ)<br /> )<br />

yshf

(defun c:dc(/ ssa doc ssetObj objss ni)
    (vl-load-com)
     (if (setq ssa (ssget))
         (progn
             (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
             (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "WBLOCKSET"))
             (setq objss (vlax-make-safearray vlax-vbObject (cons 0 (1- (sslength ssa)))))
             (repeat (setq ni (sslength ssa))
                 (setq ni (1- ni))
                 (vlax-safearray-put-element objss ni (vlax-ename->vla-object (ssname ssa ni)))
             )
             (vla-AddItems ssetObj objss)
             (vla-wblock doc "D:\\Temp.dwg" ssetObj)
             (vla-Delete ssetObj)
             (print "文件导出成功！")
          )
     )
     (princ)
)

yshf

或者

2. <div class="blockcode"><blockquote>(defun c:dca(/ ssa doc setss ents objss ssetObj)
   
3.     (vl-load-com)
   
4.      (if (setq ssa (ssget))
   
5.          (progn
   
6.        (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
7.        (setq setss (vla-get-SelectionSets doc))
   
8.        (setq ents (vl-remove-if 'listp (mapcar 'cadr (ssnamex ssa))))
   
9.        (setq objss (vlax-make-safearray vlax-vbObject (cons 0 (1- (length ents)))))
   
10.        (vlax-safearray-fill objss (mapcar 'vlax-ename->vla-object ents))
    
11.        (if (vl-catch-all-error-p (setq ssetObj (vl-catch-all-apply 'vla-Add (list setss "WBLOCKSET"))))
    
12.            (vla-Delete (vla-item setss "WBLOCKSET"))
    
13.        )
    
14.        (setq ssetObj (vla-Add setss "WBLOCKSET"))
    
15.        (vla-AddItems ssetObj objss)
    
16.              (vla-wblock doc "D:\\Temp.dwg" ssetObj)
    
17.              (vla-Delete ssetObj)
    
18.        (print "文件导出成功！")
    
19.           )
    
20.      )
    
21.      (princ)
    
22. )

<div class="blockcode"><blockquote>(defun c:dca(/ ssa doc setss ents objss ssetObj)<br />     (vl-load-com)<br />      (if (setq ssa (ssget))<br />          (progn<br />        (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />        (setq setss (vla-get-SelectionSets doc))<br />        (setq ents (vl-remove-if 'listp (mapcar 'cadr (ssnamex ssa))))<br />        (setq objss (vlax-make-safearray vlax-vbObject (cons 0 (1- (length ents)))))<br />        (vlax-safearray-fill objss (mapcar 'vlax-ename->vla-object ents))<br />        (if (vl-catch-all-error-p (setq ssetObj (vl-catch-all-apply 'vla-Add (list setss "WBLOCKSET"))))<br />            (vla-Delete (vla-item setss "WBLOCKSET"))<br />        )<br />        (setq ssetObj (vla-Add setss "WBLOCKSET"))<br />        (vla-AddItems ssetObj objss)<br />              (vla-wblock doc "D:\\Temp.dwg" ssetObj)<br />              (vla-Delete ssetObj)<br />        (print "文件导出成功！")<br />           )<br />      )<br />      (princ)<br /> )