社区 › VB › 从未遇到的选择集怪现象！

evaporated 发表于 2005-5-7 16:05:00

从未遇到的选择集怪现象！

几乎对选择集失去信心了。请大家看看如下的奇特现象：
这是一个选择集的很普通的程序段：
Dim ssetObj As AcadSelectionSet
                       On Error Resume Next
If ThisDrawing.SelectionSets.Count0 Then                               
               If Not IsNull(ThisDrawing.SelectionSets.Item("SSS67ET")) Then
                                       Set ssetObj = ThisDrawing.SelectionSets.Item("SSS67ET")
                                                       ssetObj.Delete
                       End If
End If
                       Set ssetObj = ThisDrawing.SelectionSets.Add("SSS67ET")
                       
                       Dim mode As Integer
                       Dim corner1(0 To 2) As Double
                       Dim corner2(0 To 2) As Double
                       mode = acSelectionSetWindow
                       ...
                       (给corner1,corner2都赋了值)                       
                       
                       ssetObj.Select mode, corner1, corner2
                       ...
                       ssetObj.delete
运行时 ，在有些电脑上出现了怪现象：
2004下，用编辑器跟踪 mode 的值始终为0,就是说
mode = acSelectionSetWindow
这行语句无效。
究其原因，发现acSelectionSetWindow=0 ! 难道autocad2004将它作为变量处理？
为了绕过该问题，
                       ssetObj.Select mode, corner1, corner2
这一行中 mode 直接替换为 "4"
出现了第二个怪现象， 无论corner1,corner2所取的窗口范围有多大，ssetObj中都只有一个 item.
小弟调试了一天 ，几乎对选择集失去信心。请问各位能否指教下，这到底属于什么问题呢？

hangc 发表于 2005-5-7 17:53:00

两个建议，不是很具体，姑且听之：
1.把On Error Resume Next去掉，可能有错误被忽略了。
2.选择集合有时与范围有关
通过这些年对cad的使用，证明选择功能本身没有问题，请坚定信念。

mccad 发表于 2005-5-7 18:17:00

如果在VB中使用，会出现这种问题。可直接用数字代替。
至于哪个数字代表哪些模式，可查看对象模型。

evaporated 发表于 2005-5-8 09:32:00

明总，我在帖子中提到 ，已经把 acSelectionSetWindow 改成了 4，还是不行 。
出现了第二个奇怪的问题 。
hangc兄 ， 在实践中 发现选择集确实和范围有关。
我现在使用acSelectionSetWindow之前都要先 zoom一下。
很多莫名其妙的小问题都没了 。
但是这个还在 。
已经把 on error resume next去掉，还是不行啊 。

查看完整版本: 从未遇到的选择集怪现象！