[VBA函数]：轻松指定多种过过虑，在屏幕选定选择集

yuqiyu

以下为一在屏幕选取物体程序，大家可在程序段中加入这一代码，可轻松过滤多种绘图对象，
请各位多多指教。
Public Sub selection()
    Dim SSet As AcadSelectionSet
    Dim GroupCode(0 To 4) As Integer
    Dim DataValue(0 To 4) As Variant
   
    MsgBox "选择圆弧、圆、椭圆等图形"
   
On Error Resume Next
' 如果出现该选择集则把它删除
If Not IsNull(ThisDrawing.SelectionSets.Item("ArcsCirclesEllipses")) Then
    Set SSet = ThisDrawing.SelectionSets.Item("ArcsCirclesEllipses")
    SSet.Delete
End If
   
    Set SSet = ThisDrawing.SelectionSets.Add("ArcsCirclesEllipses")
    'Setup Selection Set Filter
    GroupCode(0) = -4
    DataValue(0) = "<or"
    GroupCode(1) = 0
    DataValue(1) = "Arc"        '圆弧，可以更换为Line、Spline等
    GroupCode(2) = 0
    DataValue(2) = "Circle"     '圆，可以更换，类型同上。
    GroupCode(3) = 0
    DataValue(3) = "Ellipse"    '椭圆，可以更换，类型同上。
    GroupCode(4) = -4
    DataValue(4) = "or>"
    SSet.SelectOnScreen GroupCode, DataValue

End Sub

qiaqiadeng

VBA帮助里面就有，全多了

雪山飞狐(lzh)

你没有试过这样？
Dim GroupCode(0) As Integer
Dim DataValue(0) As Variant
GroupCode(0) = 0
DataValue(0) = "Arc,Circle,Ellipse"