有人知道没啊？请教！！！

rociceblue · 发表于 2008-12-20 15:21:00

自己找了个在限定范围内查找对象的函数和方法，可是为什么选择不上对象呢？
count总是0 啊！！！！！
Dim sel1 As AcadSelectionSet
Dim p1(0 To 2) As Double
Dim p2(0 To 2) As Double
p1(0) = 0: p1(1) = 0: p1(2) = 0
p2(0) = 300: p2(1) = 300: p2(2) = 0
Set sel1 = ThisDrawing.SelectionSets.Add("sel3")
Call sel1.Select(acselectionsetcrossing, p1, p2) '选择对象
msgbox sel1.count
谁知道啊！！！
谁知道啊！！！
谁知道啊！！！
谁知道啊！！！
谁知道啊！！！
谁知道啊！！！