论坛 › VBA/ActiveX 函数库 › [VBA函数]：创建一个空白选择集

dubing 发表于 2002-4-5 03:34:48

[VBA函数]：创建

'返回一个空白选择集

Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet
    Dim ss As AcadSelectionSet
    On Error Resume Next
    Set ss = ThisDrawing.SelectionSets(ssName)
    If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
    ss.Clear
    Set CreateSelectionSet = ss
End Function

                                                          希望对大家有用   沈阳 杜冰

查看完整版本: [VBA函数]：创建一个空白选择集