Autocad 中的选集

st788796

AutoCAD 可以保存的选择集总数是 256 个，其中一个是当前选择集，也就是 (ssget "P")  或者 (cdr (ssgetfirst)) 当前夹取状态的选择集，那么用户命名保存的选择集不可以超过255个。下面做个简单测试

2. 
   
3. (setq i 1)
   
4. (repeat 257
   
5.    (set (read (strcat "ss" (itoa i))) (ssget "x"))
   
6. )
   

<br /> (setq i 1)<br /> (repeat 257<br />    (set (read (strcat "ss" (itoa i))) (ssget "x"))<br /> )<br />

执行后出现
; 错误: 超出选择集数量的最大范围
清理选集变量

2. 
   
3. (setq i 0)
   
4. (repeat 257 (set (read (strcat "ss" (itoa i))) nil) (setq i (1+ i)))

<br /> (setq i 0)<br /> (repeat 257 (set (read (strcat "ss" (itoa i))) nil) (setq i (1+ i)))

把循环改成 0 - 255 就 ok，当然程序中尽量不要这样使用不同变量保存选择集，autolisp 中 (setq ss nil) 就是释放选集。同一个变量指向的选集实际就是使用了自动管理的 P 选择集。


再说说ActiveX中的选集，选集是存在于文档中的，以当前文档（Activedocument），选集集合对象是 selectionsets

2. 
   
3. (setq ssobjs (vla-get-selectionsets curdoc))

<br /> (setq ssobjs (vla-get-selectionsets curdoc))

增加选集用 Add 方法

2. (setq mysets (vla-add ssobjs "mysets"))

(setq mysets (vla-add ssobjs "mysets"))

这时选集内对象数量(count) 为0，即空选集 (sslength = 0），使用  select selectatpoint selectbypolygon selectonscreen 方法往选集内增加索引

待续.....

sh_h

谢谢大师分享，持续关注...

evayleung

学习一下。。。。。

st788796

VLA 增加选集的方法

2. 
   
3. (vl-load-com)
   
4. (defun c:Example_Select()
   
5.     ;; This example adds members to a selection set, first by crossing and
   
6.     ;; then by filtering for circles.
   
7.     (setq acadObj (vlax-get-acad-object))
   
8.     (setq doc (vla-get-ActiveDocument acadObj))
   
9. 
   
10.     ;; Create the selection set
    
11.     (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "SSET"))
    
12.    
    
13.     ;; Add all object to the selection set that lie within a crossing of (28,17,0) and
    
14.     ;; (-3.3, -3.6,0)
    
15.     (setq mode acSelectionSetCrossing
    
16.           corner1 (vlax-3d-point 28 17 0)
    
17.           corner2 (vlax-3d-point -3.3 -3.6 0))
    
18. 
    
19.     (vla-Select ssetObj mode corner1 corner2)
    
20.     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))
    
21.     (vla-Clear ssetObj)
    
22.   
    
23.     ;; Add all the Circles to the selection set that lie within the crossing of (28,17,0) and
    
24.     ;; (-3.3, -3.6,0) by filtering from the current drawing
    
25.     (setq gpCode (vlax-make-safearray vlax-vbInteger '(0 . 0)))
    
26.     (vlax-safearray-put-element gpCode 0 0)
    
27.     (setq dataValue (vlax-make-safearray vlax-vbVariant '(0 . 0)))
    
28.     (vlax-safearray-put-element dataValue 0 "Circle")
    
29.    
    
30.     (vla-Select ssetObj mode corner1 corner2 gpCode dataValue)
    
31.     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))
    
32. 
    
33.     (vla-Delete ssetObj)
    
34. )

<br /> (vl-load-com)<br /> (defun c:Example_Select()<br />     ;; This example adds members to a selection set, first by crossing and<br />     ;; then by filtering for circles.<br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br /> <br />     ;; Create the selection set<br />     (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "SSET"))<br />     <br />     ;; Add all object to the selection set that lie within a crossing of (28,17,0) and<br />     ;; (-3.3, -3.6,0)<br />     (setq mode acSelectionSetCrossing<br />           corner1 (vlax-3d-point 28 17 0)<br />           corner2 (vlax-3d-point -3.3 -3.6 0))<br /> <br />     (vla-Select ssetObj mode corner1 corner2)<br />     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))<br />     (vla-Clear ssetObj)<br />   <br />     ;; Add all the Circles to the selection set that lie within the crossing of (28,17,0) and<br />     ;; (-3.3, -3.6,0) by filtering from the current drawing<br />     (setq gpCode (vlax-make-safearray vlax-vbInteger '(0 . 0)))<br />     (vlax-safearray-put-element gpCode 0 0)<br />     (setq dataValue (vlax-make-safearray vlax-vbVariant '(0 . 0)))<br />     (vlax-safearray-put-element dataValue 0 "Circle")<br />     <br />     (vla-Select ssetObj mode corner1 corner2 gpCode dataValue)<br />     (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))<br /> <br />     (vla-Delete ssetObj)<br /> )

vla 选集的三个方法 clear erase delete 的区别

1 Clear 把选集中的索引对应的对象清除，选集对象保留，count 不变，Selectionsets 中仍保留 选集
2 Erase 选集对象的索引删除，选集对象保留，此时 count = 0，Selectionsets 中仍保留 选集
3 Delete 选集对象从Selectionsets 中删除，索引清除

Selectionsets 中的 CURRENT

在 ACAD 中只要进行了选择（ssget、select 、VBA、vla方法），ACAD 后台自动更新 CURRENT 选集内的索引，该选集在 VBA 中总可以正确遍历，但在 VLA 方法时存在一个 BUG，这个 BUG 只要清理一次，以后都可以正确使用。

一般autolisp中使用 ssget 构造选集比 vla 的选择更方便，但是如果对实体使用 vla 操作一般有两种方法
1 vlax-ename->vla-object 转化

2. 
   
3. (if (setq ss (ssget))
   
4. (progn
   
5.   (setq i 0)
   
6.   (while (setq e (ssname ss i))
   
7.     (setq obj (vlax-ename->vla-object e))
   
8.     ....
   
9.     (setq i (1+ i))
   
10.   )
    
11. )
    
12. )

<br /> (if (setq ss (ssget))<br /> (progn<br />   (setq i 0)<br />   (while (setq e (ssname ss i))<br />     (setq obj (vlax-ename->vla-object e))<br />     ....<br />     (setq i (1+ i))<br />   )<br /> )<br /> )

2 使用 activeselectionset 即 CURRENT 选集

1. 
   
2. (if (ssget)
   
3.   (vlax-for obj (vla-get-activeselectionset curdoc)
   
4.       ....
   
5.   )
   
6. )

复制代码

其中清理方法 见论坛以前帖子 clearcset

evayleung

学习一下，谢谢分享