在cad里使用VBA ,将sset选择集里边符合条件的图元存放到选择集sset2里边
时间: 2023-10-17 21:05:16 浏览: 47
您好!针对您的问题,可以使用以下VBA代码实现:
```
Sub SelectByCondition()
Dim doc As Document
Set doc = ThisDocument
Dim sset As AcadSelectionSet
Set sset = doc.SelectionSets.Item("sset") '获取选择集sset
Dim sset2 As AcadSelectionSet
Set sset2 = doc.SelectionSets.Add("sset2") '创建选择集sset2
Dim ent As AcadEntity
For Each ent In sset '遍历选择集sset中的每一个实体
'判断实体是否符合条件,这里以实体类型为例
If TypeOf ent Is AcadCircle Then
sset2.Select ent '将符合条件的实体加入选择集sset2
End If
Next ent
sset2.Highlight '高亮显示选择集sset2中的所有实体
End Sub
```
以上代码中,我们首先通过`doc.SelectionSets.Item`方法获取名为`sset`的选择集,然后使用`doc.SelectionSets.Add`方法创建名为`sset2`的选择集。接着,我们遍历`sset`中的每一个实体,判断是否符合条件,如果符合条件,则将其加入`sset2`中。最后,我们使用`sset2.Highlight`方法高亮显示`sset2`中的所有实体。
注意:在使用前请先将`sset`选择集中的实体类型改为您需要的类型。
相关推荐
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)