[讨论]：不知道这算不算VBA的一个BUG？

自由的鱼

select方法提供的控制选择方式只有5种，但是VBA中却显示了8种！把别的方法的选择方式也列在了里面！
sub tt
Dim sset As AcadSelectionSet
sset.Select

end sub

huangyanshi

确实有这么多。

雪山飞狐(lzh)

应该算VBA帮助的Bug吧

自由的鱼

是帮助的BUG？那请看看这段代码为什么错？
Sub tt()
Dim sset As AcadSelectionSet
Dim i As Integer
Dim pnt1(0 To 2) As Double
Dim pnt2(0 To 2) As Double
pnt1(0) = 100: pnt1(1) = 100: pnt1(2) = 0
pnt2(0) = 200: pnt2(1) = 200: pnt2(2) = 0
For i = 0 To ThisDrawing.SelectionSets.Count - 1
    ThisDrawing.SelectionSets.Item(i).Clear
    ThisDrawing.SelectionSets.Item(i).Delete
Next
Set sset = ThisDrawing.SelectionSets.Add("tt")
sset.Select acSelectionSetFence, pnt1, pnt2


End Sub

雪山飞狐(lzh)

智能提示提示的是AcSelect enum的所有值，确实只能用5个，这不算是Bug

自由的鱼

最初由 lzh741206 发布
[B]智能提示提示的是AcSelect enum的所有值，确实只能用5个，这不算是Bug [/B]

所以还是要参照帮助，帮助是正确的！

huangyanshi

sset.Select acSelectionSetFence, pnt1, pnt2 有错。
应为：sset.myset.SelectByPolygon  acselectionsetfence,pnt1,pnt2

自由的鱼

最初由 huangyanshi 发布
[B]sset.Select acSelectionSetFence, pnt1, pnt2 有错。
应为：sset.myset.SelectByPolygon  acselectionsetfence,pnt1,pnt2 [/B]

我当然知道那是错的，但是你SELECT后智能提示中的方法还有acSelectionSetFence，所以我觉得不太合理，才说它是一个BUG的！