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

st788796

ybl-cleancset是这个吧

newer

wowan1314 发表于 2013-6-15 20:49
像楼主这个要求！ 就不可以用（sssetfirst nil ss）这种方式实现吗？

另外EA说activeselectionset有BU ...

是可以实现，我看到你第一次说这个地时候，感觉好像说只是SSSETFIRST这个才是那个激活的，所以跟进了下。你没错。

wowan1314

newer 发表于 2013-6-15 21:15
是可以实现，我看到你第一次说这个地时候，感觉好像说只是SSSETFIRST这个才是那个激活的，所以跟进了下。 ...

1、如果可以！ 为什么楼主没选择通过SSSETFIRST来转化成VLA集合？ 感觉这样更简单点。

10楼的代码我还没看明白。消化ing

2、还有EA说
activeselectionset有时会有bug---------什么bug？

wowan1314

/db_自贡黄明儒_ 发表于 2013-6-15 15:23
(DEFUN NSS (ss)
  (sssetfirst nil ss)
  (vla-get-activeselectionset

我是这样测试的。好像还可以呀？

2. (DEFUN NSS (ss)
   
3.   (sssetfirst nil ss)
   
4. 
   
5.   (vla-get-activeselectionset
   
6.     (vla-get-activedocument (vlax-get-acad-object))
   
7.   )
   
8. )
   
9. ;;测试
   
10. (DEFUN c:T1 NIL
    
11. (setq ss (ssget))
    
12. (setq ss1 (ssget))
    
13. (setq ss2 (ssget))
    
14. (vlax-map-Collection (NSS ss) 'vla-delete)
    
15. (GETPOINT)
    
16. (vlax-map-Collection (NSS ss1) 'vla-delete)
    
17. (GETPOINT)
    
18. (vlax-map-Collection (NSS ss2) 'vla-delete)
    
19. )

(DEFUN NSS (ss)<br />   (sssetfirst nil ss)<br /> <br />   (vla-get-activeselectionset<br />     (vla-get-activedocument (vlax-get-acad-object))<br />   )<br /> )<br /> ;;测试<br /> (DEFUN c:T1 NIL<br /> (setq ss (ssget))<br /> (setq ss1 (ssget))<br /> (setq ss2 (ssget))<br /> (vlax-map-Collection (NSS ss) 'vla-delete)<br /> (GETPOINT)<br /> (vlax-map-Collection (NSS ss1) 'vla-delete)<br /> (GETPOINT)<br /> (vlax-map-Collection (NSS ss2) 'vla-delete)<br /> )

HLCAD

wowan1314 发表于 2013-6-15 20:49
像楼主这个要求！ 就不可以用（sssetfirst nil ss）这种方式实现吗？

另外EA说activeselectionset有BU ...

关于 sssetfirst 的BUG问题，见“应用sssetfirst后，可能导致程序死循环”一例
http://bbs.mjtd.com/thread-101019-1-1.html

wowan1314

HLCAD 发表于 2013-6-16 08:30
关于 sssetfirst 的BUG问题，见“应用sssetfirst后，可能导致程序死循环”一例
http://bbs.mjtd.com/th ...

那个不是sssetfirst的问题！ 是他自己程序的问题。

而且EA说的是activeselectionset的BUG!

eachy

这个帖子有ea:clearcset
http://www.xdcad.net/forum/forum.php?mod=redirect&goto=findpost&ptid=668149&pid=3454379
一般我都是这样用：
SSget之前 先行 (ea:clearcset) , 在 ssget 之后就可以
[pcode=lisp,true]
(vlax-for obj (vla-get-activeselectionset (vla-get-activedoument (vlax-get-acad-object)))
  (setq olst (cons obj olst))
)
[/pcode]
当然也可以在 vlax-for 中直接执行这个操作，这个仅对一个选择集是操作，如果用几个选择集时，也可以分别取得Object List后用表操作

/db_自贡黄明儒_

wowan1314 发表于 2013-6-15 21:26
1、如果可以！ 为什么楼主没选择通过SSSETFIRST来转化成VLA集合？ 感觉这样更简单点。

10楼的代码我还 ...

我试过SSSETFIRST了，也是不行的,难道你成功了？

裸奔的花猫

可以用SNSJ版主的VLA选择函数直接得到VLA选择集
http://www.xdcad.net/forum/forum ... p;page=1&extra=

zhoujun518

值得学习，我的代码里加了（sssetfirst nil ss）确实解决了问题，否则出错