- UID
- 241900
- 积分
- 0
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2005-4-11
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
几乎对选择集失去信心了。请大家看看如下的奇特现象:
这是一个选择集的很普通的程序段:
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
运行时 ,在有些电脑上出现了怪现象:
autocad2004下,用编辑器跟踪 mode 的值始终为0,就是说
mode = acSelectionSetWindow
这行语句无效。
究其原因,发现acSelectionSetWindow=0 ! 难道autocad2004将它作为变量处理?
为了绕过该问题,
ssetObj.Select mode, corner1, corner2
这一行中 mode 直接替换为 "4"
出现了第二个怪现象, 无论corner1,corner2所取的窗口范围有多大,ssetObj中都只有一个 item.
小弟调试了一天 ,几乎对选择集失去信心。请问各位能否指教下,这到底属于什么问题呢? |
|