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

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

几乎对选择集失去信心了。请大家看看如下的奇特现象：
这是一个选择集的很普通的程序段：
Dim ssetObj As AcadSelectionSet
   On Error Resume Next
If ThisDrawing.SelectionSets.Count  0 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去掉，还是不行啊。

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

发表回复

精选推荐